Dateien einer Ordnerliste in einer Tabelle zusamme

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Sub DateiListe() Dim wks As Worksheet Dim iRow As Integer, iCounter As Integer, iRowT As Integer Application.ScreenUpdating = False Set wks = ActiveSheet Workbooks.Add 1 iRow = 1 Do Until IsEmpty(wks.Cells(iRow, 1)) With Application.FileSearch .NewSearch .LookIn = wks.Cells(iRow, 1).Value If .Execute > 0 Then Cells(1, iRow).Value = wks.Cells(iRow, 1).Value iRowT = 1 For iCounter = 1 To .FoundFiles.Count iRowT = iRowT + 1 Cells(iRowT, iRow).Value = .FoundFiles(iCounter) Next iCounter End If End With iRow = iRow + 1 Loop Rows(1).Font.Bold = True Columns.AutoFit Application.ScreenUpdating = True End Sub

Hallo Bernd,
hatte mein Gehirn heute Morgen noch nicht richtig hochgefahren, als ich die Antwort schrieb. Die korrigierte Version, die nachschaut, ob das Verzeichnis überhaupt existiert.


Option Explicit
Sub DateiListe()
Dim wks As Worksheet
Dim iRow As Integer, iCounter As Integer, iRowT As Integer, FsyObjekt As Object
Application.ScreenUpdating = False
Set FsyObjekt = CreateObject("Scripting.FileSystemObject")
Set wks = ActiveSheet
Workbooks.Add 1
iRow = 1
Do Until IsEmpty(wks.Cells(iRow, 1))
If FsyObjekt.FolderExists(wks.Cells(iRow, 1).Value) Then
With Application.FileSearch
.NewSearch
.LookIn = wks.Cells(iRow, 1).Value
If .Execute > 0 Then
Cells(1, iRow).Value = wks.Cells(iRow, 1).Value
iRowT = 1
For iCounter = 1 To .FoundFiles.Count
iRowT = iRowT + 1
Cells(iRowT, iRow).Value = .FoundFiles(iCounter)
Next iCounter
End If
End With
End If
iRow = iRow + 1
Loop
Rows(1).Font.Bold = True
Columns.AutoFit
Application.ScreenUpdating = True
End Sub

Code eingefügt mit: Excel Code Jeanie

Gruß
Nepumuk

Hallo Nepumuk,

nochmals danke für Deine Überlegungen.

Nachdem ich gesehen habe, dass die Application.FileSearch-Funktionalität keinerlei fehlertolerantes Verhalten bei der Verzeichnisübergabe verzeiht, werde ich diese Prozedur nicht ohne genaue Verzeichnisnamenüberprüfung weiter empfehlen.

Selbst c: wird mit einer fehlerhaften Datenausgabe honoriert!

Natürlich hätte ich die Verzeichnisabfrage auch einbauen können aber ich war erst der Meinung, dass man nur in dem originalen Code aus dem Herber-Archiv eine Kleinigkeit ändern müßte, um einen Reset der Search-Einstellung zu erhalten!

Das habe ich aber auch nicht hingekriegt.

Vielen Dank auch für Deinen frühen Einsatz!!!
Gruß Bernd

Beliebteste Forumthreads (12 Monate)

Dateien einer Ordnerliste in einer Tabelle zusamme

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Dateien einer Ordnerliste in einer Tabelle zusamme

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread