Pfad über Auswahlmenü auswählen
27.04.2006 12:33:13
Basch
mit dem unten stehenden Code lese ich aus einem Verzeichnis alle Dateien mit dem Pfad und der Größe aus. Wie ihr seht ist der Pfad im code in der dritten Zeile vorgegeben.
Ich würde aber gerne, wenn ich das Makro starte, über ein Auswahlfeld (explorerähnlich wie nach der GetOpenFilename-Methode) im Dialogfeld den Pfad auswählen können. Leider sind meine Versuche in den Code etwas hinzubasteln gescheitert. Kann mir bitte einer helfen?
Grüße von Basch
Sub Alter()
Dim Pfad$, Ext$, i&, Jahr%, Z&
Pfad = "G:\DAT\Prj\32" 'anpassen
Ext = "*.*"
Z = 1
With Application.FileSearch
.NewSearch
.LookIn = Pfad
.SearchSubFolders = True 'auch die Unterverzeichnisse
.Filename = Ext
.MatchTextExactly = True
.FileType = msoFileTypeAllFiles
.Execute
For i = 1 To .FoundFiles.Count
Z = Z + 1
Cells(Z, 1) = FileDateTime(.FoundFiles(i)) 'Datum
Cells(Z, 1).NumberFormat = "DD/MM/YYYY" 'Datum formatieren
'Link erzeugen******
ActiveSheet.Hyperlinks.Add Anchor:=Cells(Z, 2), _
Address:=.FoundFiles(i), TextToDisplay:=Dir(.FoundFiles(i))
'Pfad eintragen******
Cells(Z, 3) = Left(.FoundFiles(i), Len(.FoundFiles(i)) - Len(Dir(.FoundFiles(i))))
'Dateiart******
Cells(Z, 4) = Right(.FoundFiles(i), 3)
'End If
Next i
End With
End Sub