Sub FilmeEinlesen()
 
Dim zeile As Variant
Dim sFile As String, sPattern As String, sPath As String
Dim sFolder As String
Dim iRow As Integer
 
sFile = "Z:\abenteuer" ' Zu lesende Verzeichnis oder Laufwerk eingeben
If Right(sPath, 1) <> "\" Then sPath = sPath & "\"
sPattern = "*.*"
sFile = Dir(sPath & sPattern)
 
 
Do Until sFile = ""
iRow = iRow + 1
 
 
Cells(iRow, 1).Value = sFile ' legt die Spalte fest in die der Wert sFile 
' geschrieben werde soll
 
 
sFile = Dir()
Loop
For zeile = 1 To Cells.SpecialCells(xlLastCell).Row
 
Next
 
End Sub

Leben und Leben lassen

Beitrag wurde zuletzt am 26.06.11 um 12:22:41 editiert.