Jag vill göra ett program som kolla om en mapp finns.
Om mappen finns så ska programet visa alla filer i denna mapp och datumet på dom.
Alltså, jag vill alltså att man ska kunna söka på ett mapp namn, men krukset är att man inte ska behöva ange någon sökväg till mappen och om den mappen finns så skall programet visa filerna i dom och datumet för dom.

M.V.H.

Johan Andersson

Det går tex att göra med filesystemobject. Börja med att sätta en referens till microsoft scripting runtime. Sedan denna kod i tex form_load

Dim fso As FileSystemObject
Set fso = New FileSystemObject
Dim fil As File
Dim mapp As Folder
If (fso.FolderExists("c:\din_mapp")) Then
Set mapp = fso.GetFolder("c:\din_mapp")
For Each fil In mapp.Files
Debug.Print fil.Name & " " & fil.DateCreated
Next
End If

/peter