Dateien in Listenfeld auslesen
20.01.2003 10:12:50
Philipp
Mit diesem Code lasse ich die Dateien aus einem bestimmten Verzeichnis in eine Listbox kopieren. Die geöffnete Datei soll aber nicht mit in die Listbox übernommen werden, obwohl sie sich auch in dem angegebenen Verzeichnis befindet.Könnt ihr mir weiterhelfen?
Danke
Private Sub UserForm_Initialize()
Dim datei1 As String
datei1 = Dir("N:\TD_ESN_ALLGEMEIN\Anwender\Brzoska\Stücklisten\*.xls")
ListBox1.AddItem datei1
Do Until datei1 = ""
datei1 = Dir
With ListBox1
.AddItem datei1
End With
Loop
End Sub