Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
732to736
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
732to736
732to736
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige