Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
596to600
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
596to600
596to600
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

Links zu Excel-Dialogen

ListBox UserForm

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige