kanm mir einer mal helfen mein Makro anzupassen ?
Ich habe mir von K.Rola ein Makro schreiben lassen, welches den inhalt eines Laufwerks auslesen kann, es werden aber nur die Dateien angezeigt, nicht die Ordner die ich aber auch dringend brauche! Wer kann helfen ?
Hier der Code :
Option Explicit
Sub VerzeichnisseAuslesen()
Dim strLookIn As String, objFs As Object, lngi As Long, strFileName As String
Dim strPur As String
'Hier muss der Buchstabe des Laufwerks angepasst werden
'------------------------------------------------------
strLookIn = "J:\"
'------------------------------------------------------
strFileName = "*.*"
Set objFs = Application.FileSearch
With objFs
.LookIn = strLookIn
.FileName = strFileName
.SearchSubFolders = False
If .Execute > 0 Then
For lngi = 1 To .FoundFiles.Count
strPur = .FoundFiles(lngi)
DAT.Cells(lngi, 1) = Name_pur(strPur)
Next
End If
End With
Columns(1).AutoFit
Set objFs = Nothing
End Sub
Private Function Name_pur(strDatei As String) As String
Dim objFso As Object
Set objFso = CreateObject("Scripting.FileSystemObject")
Name_pur = objFso.GetBaseName(strDatei)
End Function
Vielen Dank für die Hilfe !
MfG Hans - Georg