Hej alle sammen!!
Jeg vil lave et program, som kigger i alle filer i en bestemt mappe.
Men hvordan finder jeg ud af, hvilke filer og mapper, der ligger i en given mappe? og kan de løbes igennem med en For...Next løkke??
Troels
hej Troels
Ved at bruge MS scripting runtime, får du hurtig adgang til mapper og filer m.m.
Klik [project], [Referencer] og vælg Microsoft Scripting Runtime
Følgende kode løber gennem alle filer på C:\\ men ikke mapper
Private Sub Form_Load()
Dim sti As String
Dim FSO As FileSystemObject
Dim Mappe As Folder
Dim fil As File
sti = "c:\\"
Set FSO = New FileSystemObject
Set Mappe = FSO.GetFolder(sti)
For Each fil In Mappe.Files
MsgBox fil.Name
Next
Set Mappe = Nothing
Set FSO = Nothing
End Sub
Følgende kode løber gennem alle mapper på C:\\ men ikke filer
Private Sub Form_Load()
Dim sti As String
Dim FSO As FileSystemObject
Dim Mappe As Folder
Dim Map As Folder
sti = "c:\\"
Set FSO = New FileSystemObject
Set Mappe = FSO.GetFolder(sti)
For Each Map In Mappe.SubFolders
MsgBox Map.Name
Next
Set Mappe = Nothing
Set FSO = Nothing
End Sub
Håber dette hjælper dig
/Lars