Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Paths

Forumthread: Paths

Paths
Henri
Liebe Kollegen,
ich möchte alle Pfade aller Textdateien in einem Ordner in eine Listbox stellen!
Dabei sollen auch die Unterordner berücksichtigt werden!
Ich habe also den ordner "SchriftVerkehr"
(Ordner) Schriftverkehr
blabla1.txt
(Ordner) Auto
blabla2.txt
(Ordner) Küche
blabla3.txt
(Ordner) Bad
blabla4.txt
Jetzt gibt mir mein nettes Makro (VB) folgendes aus:
Listbox:
- C:\Schriftverkehr\blabla1.txt
- C:\Schriftverkehr\Auto\blabla2.txt
- C:\Schriftverkehr\Küche\blabla3.txt
- C:\Schriftverkehr\Bad\blabla4.txt
Wie kann man sowas realisieren?
MfG
und vielen Dank
Henri
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Paths
19.02.2006 08:55:46
Josef
Hallo Henri!
Das geht z.B. so!
Sub ListeTXT()
Dim objFS As FileSearch
Dim strPath As String
Dim intIndex As Integer

strPath = "F:\" ' Anpassen

Set objFS = Application.FileSearch

With objFS
  .NewSearch
  .LookIn = strPath
  .FileType = msoFileTypeAllFiles
  .SearchSubFolders = True
  .Filename = "*.txt"
  
  If .Execute > 0 Then
    
    For intIndex = 1 To .FoundFiles.Count
      
      ListBox1.AddItem .FoundFiles(intIndex)
      
    Next
    
  End If
  
End With

End Sub


'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

Anzeige
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige