Office: Inhalt eines Arrays in Listbox ausgeben

Ich möchte alle Dateinamen der Textdateien, die sich in einem Ordner befinden, in einer Listbox ausgeben.


Code:

Problem 1: Es soll nur der Dateiname ohne Endung und ohne Pfad angezeigt werden.

Problem 2: Es kommt die Fehlermeldung: "Subscript out of range".
An was liegt das? Es muss wohl etwas mit dem Array nicht in Ordnung sein.

Danke!!

:)

 

Hi Danane,

Habe leider keine Ahnung von Listbox, auf jeden Fall müsstest du doch erstmal den Array bestimmen (Anzahl der Elemente), i.e.

Redim Arr(.FoundFiles.Count)

vor with...

Den Rest könntest du per Schleife von rechts aus nach \ absuchen und alles vorher abschneiden. Einen befehl, der nur den Dateinamen ausgibt kenne ich leider nicht.

 

Moin, Sonba,

vor dem End With wird eine Fehlermeldung kommen - garantiert früher oder später *wink.gif*

Das ReDim gehört hinter den Execute-Befehl, da dort die Anzahl der gefundenen Dateien feststeht. Aber ich würde dies lieber im Step-by-Step für jede zutreffende Datei durchführen lassen, die die Bedingungen erfüllt. Um an den Namen der Dateien zu kommen, bestehen zwei Möglichkeiten: die Mid-Funktion (da Dir der Pfad zu den Dateien sicherlich bekannt ist) oder ein Vorgehen analog zu

Code:

Wenn dies nun nur durchgeführt wird, wenn die letzten 3 Zeichen des Strings "txt" entsprechen und dann in einem gesonderten Zähler das Array hochgezählt wird (Code ist ungetestet):

Code:

 

\@ jinx
Ich habe den unteren Code getestet. Es kommt folgende Fehlermeldung:
"Could not set the List Property. Invalid Property value."
Beim Debuggen bleibt es bei der Zeile : "Sheets("navigation").ListBox1.List = Arr" hängen.

 

Moin, danane,

und was passiert, wenn Du den Code vollständig von mir übernimmst - bei Dir steht eine andere Anweisung (List statt Column) als bei mir, und ich hatte eigentlich erwartet, dass es sich um Steuerelemente auf einer UserForm handeln würde...

 

Hey Jinx. Es handelt sich um eine Listbox in einer Tabelle.

Ich habe das Problem gefunden. Statt Left(.FoundFiles(z), 3) = "txt" muss es Right(.FoundFiles(z), 3) = "txt" heissen. *wink.gif*

Hier der funktionierende Code:
Code:

Noch herzlichen Dank für die Unterstützung! Super Leute! *Smilie

 

Moin, danane,

peinlich, aber leider wahr. Tut mir leid wegen der Irreführung und Verwechslung des rechten Daumens an der linken Hand (leider kann ich noch nicht einmal behaupten, ich hätte dies absichtlich getan *mad.gif* ). *boah *entsetzt