Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
596to600
596to600
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Listbox

Forumthread: Listbox

Listbox
13.04.2005 16:23:34
johfri
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
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
application.filesearch
13.04.2005 18:59:04
ransi


      
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 
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige