Split och räkna filer problem

4 svar · 245 visningar · startad av saw 24 juli 2003

sawMedlem sedan mars 20011 880 inlägg

Frågan24 juli 2003 07:38#1

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?

@ndersMedlem sedan juni 200032 967 inlägg

24 juli 2003 07:48#2

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

Jag gissar dock bara.

GeinMedlem sedan sep. 20005 700 inlägg

24 juli 2003 07:48#3

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?

sawMedlem sedan mars 20011 880 inlägg

24 juli 2003 09:37#4

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

sawMedlem sedan mars 20011 880 inlägg

24 juli 2003 13:03#5

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.