Herbers Excel-Forum - das Archiv

Listbox

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
ListBox UserForm
Bild

Betrifft: Listbox
von: johfri

Geschrieben am: 13.04.2005 16:23:34
hallo,
würde gerne alle dateinamen eines bestimmten ordners in eine listbox übertragen können. leider hab ich fast keine vba kenntnisse.
hier eine genauere darstellung des problems
https://www.herber.de/bbs/user/21105.xls

gruß johfri
Bild

Betrifft: application.filesearch
von: ransi

Geschrieben am: 13.04.2005 18:59:04


      
hallo
versuchs mal so:
die listbox wird bei jedem öffnen der userform neu gefüllt.
Private 
Sub UserForm_Initialize()
ListBox1.Clear
With Application.FileSearch
    .NewSearch
    .LookIn = 
"C:\Neu"
    .SearchSubFolders = 
True 'wenn Unterordner Mit einbezogen werden sollen
    .Filename = "*"
    .MatchTextExactly = 
True
    .FileType = msoFileTypeAllFiles
    
If .Execute() > 0 Then
                
For i = 1 To .FoundFiles.Count
                  ListBox1.AddItem .FoundFiles(i)
                  
'  ListBox1.AddItem Dir(.FoundFiles(i)) 'wenn du nur die dateinamen haben willst
                Next i
    
End If
End With
End Sub
ransi 


 Bild
Excel-Beispiele zum Thema "Listbox"
Mehrfachauswahl aus ListBox auslesen Gefilterte Daten in eine ListBox einlesen
Dateien aus Listbox auslesen und öffnen Listbox-Eintrag durch Mausbewegung markieren
ListBox-Einträge auswechseln Horizontal angeordnete Elemente in eine ListBox übernehmen
Tabellenblattnamen in eine ListBox einlesen ListBox bei Eintrag erweitern