Hilfe!!! Dateinamen ins ComboBox eintragen
23.07.2004 09:59:32
Sergej
ich brauche Hilfe:
ich versuche ein Combobox beim Starten einer EXE-Datei mit den Namen der Excel-Dateien zu füllen. bis jetzt habe ich in einem Buch vom Seelhofer zwei Beispiele gefunden und beide ausprobiert - bringt nix!!! Die Suche im Forum und Archiv war erfolgslos.
Darum die Fragen:
1. was kann ich anstellen, damit es funktioniert? und
2. wie geht das, durch anklicken eines Namens soll entsprechende Datei gestartet wird (Code wenn's möglich)?
Hier sind Beispiele (leicht geändert):
A)
Sub AllFilesList()
Dim datei As String
datei = Dir("CurDir\*.xls")
Do While datei ""
Combo1.AddItem datei
Loop
End Sub
B)
Sub AllFilesList()
Dim datei As String
datei = Dir("")
Do While datei ""
If datei like "*.xls" Then
Combo1.AddItem datei 'im Buch hier steht Debug.Print datei (zur Info)
End If
datei = Dir() 'wozu ist das gut habe ich nicht verstanden
Loop
End Sub
Das Ganze rufe ich in
Private Sub Form_Initialize()
AllFilesList
End Sub
auf.
Dann habe ich den Such-Code direkt ins _Initialize (natürlich ohne Sub AllFilesList) eingetragen - auch ohne Erfolg. Ich hoffe, ich habe das Problem ausreichend beschrieben. Wenn nich - just let me know...
Für jede Hilfe bin sehr dankbar.
Gruß Sergej