Sub DateienAuslesen()
Dim vPath As String
Dim fs As Object
Dim f As Object
Dim fc As Object
Dim i As Long
vPath = "C:\Daten" 'anpassen
On Error Resume Next
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(vPath)
Set fc = f.Files
i = 1
ActiveSheet.Cells(1, 1) = "Dateinamen im Ordner " & vPath
For Each f1 In fc
i = i + 1
ActiveSheet.Cells(i, 1) = f1.Name
Next
End Sub
Sub myDir()
SPfad = "c:\tmp"
sFile = dir(sPfad & "\*.*")
Do while sFile ""
i = i +1
Cells(i,1) = sFile
SFile = dir
Loop
End Sub
Sub myDir()
Dim sPfad As String, sFile As String, i As Long
sPfad = ThisWorkbook.Path
sFile = Dir(sPfad & "\*.xls*")
Do While sFile ""
If sFile ThisWorkbook.Name Then
i = i + 1
Cells(i, 1) = sFile
End If
sFile = Dir
Loop
End Sub