Dateinamen und Folder auflisten

Forumthread: Dateinamen und Folder auflisten

11.12.2007 16:29:00

Peter

Liebes Forum
Mit nachfolgendem Code hole ich alle Dateibezeichnungen im aktiven Folder. Wie muss der Code ergänzt werden, dassauch die Order berücksichtigt werden?
Danke für Feedback.
Peter


Sub DateinamenAuflisten()
Dim Dateiname As String, i As Integer, p As String
p = ThisWorkbook.Path
Debug.Print p
p = p + "\*.*"
Debug.Print p
Dateiname = Dir$(p) 'Hier Verzeichnis und Datei angeben
Do While Dateiname  ""
Range("A1").Select
ActiveCell.Offset(i, 0) = Dateiname
i = i + 1
Dateiname = Dir$()
Loop
End Sub

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Dateinamen und Folder auflisten

11.12.2007 17:05:28

Ceyser
AW: Dateinamen und Folder auflisten

11.12.2007 17:05:00

Ceyser
AW: Dateinamen und Folder auflisten

11.12.2007 19:34:38

Peter

AW: Dateinamen und Folder auflisten

11.12.2007 17:05:28

Ceyser

Hallo Peter,
ich habe Deinen Code zwar nicht ergänzt, aber hier eine Lösung für Dich, die das selbe erledigt:


Sub prcOrdnerAuflisten()
Dim fs As Object, objOrdner As Object
Dim Ordner As Object, Datei As Object
Dim i As Long, j As Long
Dim strPfad As String
i = 1
j = 1
strPfad = "C:\"
Set fs = CreateObject("Scripting.FilesystemObject")
Set objOrdner = fs.getFolder(strPfad)
With ActiveSheet
For Each Ordner In objOrdner.Subfolders
.Cells(i, 1).Value = "Ordner " & i & ": " & Ordner.Name
i = i + 1
Next Ordner
For Each Datei In objOrdner.Files
.Cells(j, 2).Value = "Datei " & j & ": " & Datei.Name
j = j + 1
Next Datei
End With
Set objOrdner = Nothing
Set fs = Nothing
End Sub

Grüße
CS

AW: Dateinamen und Folder auflisten

11.12.2007 17:05:00

Ceyser

Hallo Peter,
ich habe Deinen Code zwar nicht ergänzt, aber hier eine Lösung für Dich, die das selbe erledigt:


Sub prcOrdnerAuflisten()
Dim fs As Object, objOrdner As Object
Dim Ordner As Object, Datei As Object
Dim i As Long, j As Long
Dim strPfad As String
i = 1
j = 1
strPfad = "C:\"
Set fs = CreateObject("Scripting.FilesystemObject")
Set objOrdner = fs.getFolder(strPfad)
With ActiveSheet
For Each Ordner In objOrdner.Subfolders
.Cells(i, 1).Value = "Ordner " & i & ": " & Ordner.Name
i = i + 1
Next Ordner
For Each Datei In objOrdner.Files
.Cells(j, 2).Value = "Datei " & j & ": " & Datei.Name
j = j + 1
Next Datei
End With
Set objOrdner = Nothing
Set fs = Nothing
End Sub

Grüße
CS

AW: Dateinamen und Folder auflisten

11.12.2007 19:34:38

Peter

Hallo Ceyser
Vielen Dank! Das hilft mir weiter.
Freundlicher Gruss, Peter

Beliebteste Forumthreads (12 Monate)

Forumthread: Dateinamen und Folder auflisten

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread