Split och räkna filer problem

Jag har två problem.

1 Split.

Jag försöker splita en fil:

C:\Inetpub\wwwroot\Hemsidor\WHL\M_Temp\tmp_1_Index.asp

Borde inte vara några problem.

Dela = Split(g, "_",)

Som jag se det, så är ju denna filen i 4:a delar
0=C:\Inetpub\wwwroot\Hemsidor\WHL\M
1=Temp\tmp
2=1
3=Index.asp
Det är index 3 jag vill ha tag i, men så fort som jag skriver Del = Dela(3) så får jag ett error:
Supscript out off range.
Som jag läser det, jag vill ha någonting som ligger utanför index.
Hur löser jag det??

2 Räkna

Jag behöver räkna hur många av samma fill som finns i katalogen.
Det kan se ut så här:

tmp_1_Index.asp
tmp_2_Index.asp
tmp_3_Index.asp
tmp_4_Index.asp
tmp_1_Historia.asp
tmp_2_Historia.asp

Som ni ser, så förekommer samma filnamn flera gånger(när den är splittad).
Jag försöker så här:

WebbPath = Form1.StatusBar1.Panels(1).Text & "\M_Temp\"

       For Each g In fso.GetFolder(WebbPath).Files
       If fso.FileExists(g) Then
        Dela = Split(g, "_")
        Del = Dela(3) <----------------------Här ligger första felet
            If Del <> Form1.List2 Then
                k = 1
            Else
                k = k + 1 <--------------------Här skulle jag räkna filerna, men hur?
            End If
         End If
       Next

Några förslag till lösning?

Är g verkligen en sträng som innehåller det du tror? Är det inte ett filobjekt?

Jag gissar dock bara.

Jag får inga fel när jag testade.

sdir = "C:\Inetpub\wwwroot\Hemsidor\WHL\M_Temp\tmp_1_Index.asp"
parts = split(sdir, "_")
msgbox parts(3)  'Ger Index.asp

Tror mer åt @nders håll, är det inte ett filobjekt?

Jo via fso så använder jag mig av g för att gå igenom filerna.
Bör jag skriva någonting annat?
Så här är g deklarerat.
Dim fso As New FileSystemObject, g

Problemet är löst, jag la sökvägen i en combobox(måste ha den i alla fall) sen var det bara och splitta, och plusa på där jag skulle.

Ganska så bra att gå ut med barnbarnen och grunna lite.
Tach för att ni försökte att hjälpa mig.