Verzeichnis auswählen
26.09.2006 12:04:07
F
ich habe mit Hilfe des Forums folgenden Code
gefunden, um das speicherdatum von Dateien
anzuzeigen:
Private Sub CommandButton1_Click()
Dim objFSO As Object, objFolder As Object, objFile As Object, lngRow As Long
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("c:\")
With Sheets("Sheet1")
.Range(.Cells(17, 11), .Cells(65536, 12).End(xlUp)).ClearContents
End With
For Each objFile In objFolder.Files
With Sheets("Sheet1")
lngRow = .Cells(65536, 11).End(xlUp).Row + 1
If lngRow < 17 Then lngRow = 17
.Cells(lngRow, 11) = objFile.Name
.Cells(lngRow, 12) = objFile.datelastmodified
End With
Next objFile
End Sub
Mit diesem Code werden aber nur die Dateien von C:\
angezeigt.
Ich hätte gerne, das eine Box aufgeht, in der ich
das Verzeichniss auswählen kann.
Kann mir jemand den Code dafür nennen?
Mit freundlichen Grüssen Frank
Anzeige