Listbox

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
UserForm ListBox
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

Beiträge aus den Excel-Beispielen zum Thema "Listbox"