ich hab gestern mit Eurer Hilfe einen Code zum Auflisten von Dateien im aktuellen Ordner verfeinert:
Sub auflisten()
Dim iCounter As Integer
Dim sPath As String
sPath = ThisWorkbook.Path
Columns("B:B").ClearContents
With Application.FileSearch
.NewSearch
'.FileType = msoFileTypeAllFiles
.Filename = "*.doc"
.LookIn = sPath
'.SearchSubFolders=True
.Execute
If .FoundFiles.Count = 0 Then
Beep
MsgBox "Keine Dateien gefunden!"
Else
For iCounter = 1 To .FoundFiles.Count
Cells(iCounter + 3, 2) = Mid(.FoundFiles(iCounter), InStrRev(.FoundFiles(iCounter), "\") _
_
+ 1, InStrRev(Mid(.FoundFiles(iCounter), InStrRev(.FoundFiles(iCounter), "\") + 1), " _
.") - 1)
Next iCounter
End If
End With
End Sub
Nun suche ich noch nach der Möglichkeit, den Namen des aktuellen Ordners - und wenn möglich auch des darüberliegenden Ordners - auszulesen und in eine Zelle zu schreiben. Darf ich Euch nochmal um Eure Hilfe bitten?
Danke schonmal und Grüße
Franz