bestanden tellen in folder en subfolders

Status
Niet open voor verdere reacties.
J

jvsoest

Gebruiker
Lid geworden
2 okt 2000
Berichten
741
Hallo,

In VB6 wil ik het volgende:

Van een folder het aantal bestanden hebben. Dit zijn alle bestanden in de folder en de bijbehorende subfolders.

Ik heb al gestoeid met het filesystem object maar deze levert alleen de bestanden van de folder zelf en niet van alle subfolders. In de verkenner kan het ook door op de eigenschappen van een folder te lezen!

Bedankt alvast
 
Las het verkeerd dit is voor een Bat file
je kan het natuurlijk wel gebruiken in vb6 maar geen vb 6 code

dir *.* /s >list.txt
 
Laatst bewerkt:
Hoi,

Bedankt voor je reactie. Echter het moet in VB6.

Er moet toch iets zijn waarmee snel alle bestanden in een folder(en bijbehorende subfolders) kunt verkrijgen

Het filesystemobject biedt te weinig volgens mij!
 
Probeer dit eens;-)

Hoi, dit moet werken.

Groetjes,
Emmy

Sub testme()

Dim i As Long

With Application.FileSearch
.NewSearch
.LookIn = "C:\Program Files"
.SearchSubFolders = True
.FileType = msoFileTypeAllFiles

If .Execute() > 0 Then
MsgBox "Er zijn " & .FoundFiles.Count & _
" file(s) gevonden."
'For i = 1 To .FoundFiles.Count
'MsgBox .FoundFiles(i)
'Next i
Else
MsgBox "Geen bestanden gevonden."
End If
End With

End Sub
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan