Ordner über Windows-Explorer auswählen
19.02.2015 11:53:57
Basti
habe diesen Code zusammengesucht und würde gerne eine Optimierung vornehemen, die Leider an meinen VBA-Kenntnissen scheitert.
Ziel ist es, das Tool so anzupassen, dass ich nicht mehr in der Zeile fVerz = fs.getFolder("C:\Dateien\") den Ordner manuell einfügen muss, sondern über den Windows-Explorer auswählen kann, wenn ich die Routine starte.
Könnt Ihr mir helfen?
Gruß
Basti
Sub DateiAusOrdnerLesen()
Application.ScreenUpdating = False
Dim fs As Object
Dim fVerz As Object
Dim fDatei As Object
Dim fdateien As Object
Dim strDat As String
Dim Zeile As Integer
Set fs = CreateObject("scripting.FileSystemObject")
Set fVerz = fs.getFolder("C:\Dateien\")
Set fdateien = fVerz.Files
For Each fDatei In fdateien
If InStr(fDatei, "") > 0 Then
Zeile = Zeile + 1
Cells(Zeile, 1) = fDatei.Name
End If
Next fDatei
Application.ScreenUpdating = True
End Sub