Wer weiss, wie ich ein Dateiverzeichnis mit vorhergehender Pfadauswahl ausdrucken kann ?
Wer weiss, wie ich ein Dateiverzeichnis mit vorhergehender
Pfadauswahl ausdrucken kann ?
Hallo Christopher,
hier eine kleine Funktion, die Dir vielleicht ein bißchen weiterhilft (Sie kann zwar nur in eine Text-Datei im angegeben Verzeichnis erstellen, die kannste dann ausdrucken - und sie hat noch Probleme, wenn Du z. B. „C:\Windows\Eigene Dateien“ eingibst).
Vielleicht kannst Du daran noch ein wenig „feilen“ …
**Function DateilisteErstellen()
Dim Pfad, Pfadangabe, Dateiname As String
Pfadangabe = InputBox("Dateiliste erstellen für: " & _
vbCrLf & vbCrLf & „(Laufwerk\Pfad)“, „Dateiliste erstellen“)
Pfad = Format(Left(Pfadangabe, 3))
If Len(Pfadangabe) = 3 Then
Dateiname = „DIR_“ & Format(Left(Pfad, 1))
Shell (Environ(„COMSPEC“) & " /C " & "dir/s " & Pfad & " > " & Pfad & Dateiname & „.txt“)
Exit Function
Else
Pfadangabe = Format(Mid(Pfadangabe, 4, 40))
Dateiname = „DIR_“ & Format(Left(Pfad, 1)) & „_“ & Pfadangabe
Pfadangabe = Pfadangabe
Shell (Environ(„COMSPEC“) & " /C " & "dir/s " & Pfad & Pfadangabe & " > " & Pfad & Pfadangabe & „“ & Dateiname & „.txt“)
End If
End Function**
mit z. B. „C:“ oder „E:\Photos“ kommt diese Funktion schonmal zurecht :-}
gruss moritzbock