Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1008to1012
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Dateinamen aus Verzeichnis

Dateinamen aus Verzeichnis
18.09.2008 08:21:00
Jonatan
Hallo,
habe folgenden Code im Archiv gefunden.
Nun würde ich gerne alle Dateinamen eines Ordners und sämtlichen Unterordnern auslesen.
Die Zeile Cells(iCnt, 2) = .FoundFiles.Name ist allerdings falsch. Ich weiß nicht genau, wie man sich den Namen ausgeben lässt.
Könnt ihr mir weiterhelfen?
Option Explicit

Sub Daten_Loeschen()
Dim fSearch As FileSearch
Dim wkb As Workbook
Dim strPath As String
Dim iCnt As Integer
strPath = "F:\test\"
Set fSearch = Application.FileSearch
With fSearch
.LookIn = strPath
.SearchSubFolders = True  '<<<Unterordner durchsuchen True/False
.FileType = msoFileTypeAllFiles
.Filename = "*"
.Execute
For iCnt = 1 To .FoundFiles.Count
Cells(iCnt, 2) = .FoundFiles.Name 'Hier stimmt was nicht
Next iCnt
End With
End Sub


Gruß Jonatan

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dateinamen aus Verzeichnis
20.09.2008 11:44:00
Gerd
Cells(iCnt, 2) = .FoundFiles(iCnt).Name 'Hier stimmt was nicht
Hallo Jonathan,
ungetestet.
Gruß Gerd
Anzeige

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige