Räkna filer i en katalog?

För att jobba med filer och mappar finns lite olika sätt.

I detta fallet är nog det bästa att använda "FileSystemObject".

Börja med att referera in det biblioteket under:

Project - References - Microsoft Scripting Runtime

Skriv sedan följande kod i en knapp med namnet "Command1" (default-namn...)

<font size="1" face="Verdana, Arial, Helvetica, sans-serif">Kod:<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#666600">
Dim fsoObj As Scripting.FileSystemObject
Dim fsoFold As Scripting.Folder
dim lngFileCount as long

Set fsoObj = New Scripting.FileSystemObject

'Här kan du ange vilken mapp du vill
Set fsoFold = fsoObj.GetFolder("C:\")

'Lägger över antalet i en variabel
lngFileCount = fsoFold.Files.Count

msgbox lngFileCount

Set fsoFold = Nothing
Set fsoObj = Nothing

------------------
Fredrik Klarqvist
f.klarqvist@spray.se
http://server.webwerkstaden.se/fredde/

[Redigerat av fredrik den 30 jan 2002]

Så hade ju inte jag gjort(kanske för att jag inte fattar det)

Men kan man inte göra så att man skapapr en filelistbox och ställer in rätt katalog och sedan tar
antalfiler = file1.listcount

?????
Vill gärna ha förklaring

------------------
Marcus
-------------
"Kroppen är en koagulerad tanke."

Visst kan du använda fil-kontrollen för att hämta ut antalet filer i en mapp.

Men i frågan framgick det aldrig om koden skulle användas i en applikation eller i en komponent (COM).

...och då kontroller inte kan användas i komponenter så visade jag ett exempel som fungerar i båda fallen.

Sen är det väl en smaksak om man vill använda en kontroll eller ett bibliotek för att koda (då man gör applikationer).

------------------
Fredrik Klarqvist
f.klarqvist@spray.se
http://server.webwerkstaden.se/fredde/

tackar för era svar!

men, det är med FileListBox. hur ställer jag in rätt katalog? har kollat igenom properties, men kan inte hitta nått som verkar va det rätta. är som sagt relativt ny med VB ;)

------------------
//Tore Holmberg

Sökvägen till en "File1" sätter du med egenskapen "path".

<font size="1" face="Verdana, Arial, Helvetica, sans-serif">Kod:<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#666600">
Private Sub Command1_Click()
File1.Path = "C:\"
MsgBox File1.ListCount
End Sub

------------------
Fredrik Klarqvist
f.klarqvist@spray.se
http://server.webwerkstaden.se/fredde/

återigen tack!

------------------
//Tore Holmberg