application.FileSearch in funktioniert nicht mehr. Alternativen?

[bodyguard161059]

Hallo zusammen,
ich verwende zur Verwaltung von unseren Rechnungen / Angeboten /
Lieferscheinen in einigen Excel-Arbeitsmappen in VBA die Funktion
"Application.FileSearch" um Dateinamen aus einem Verzeichnis in eine Liste zu
schreiben.
Bis einschliesslich Excel 2003 kein Problem, in Excel 2007 ist aber laut
Referenzliste FileSearch ausgeblendet.
Gibts Vorschläge, wie man das möglichst einfach alternativ machen kann?
Danke
Andreas

[Dr. Eckehard Pfeifer]

Hallo, ich verwende fuer diese Aufgaben den Windows Script Host.

[Herbert Taferner]

Hallo Andreas,

schreib deinen Namen ins Adressfeld, dies ist hier üblich
siehe
http://www.jumper.ch/netikette_crossposting.htm


z. B. so,

Sub DateinamenAuflisten()

Dim Dateiname As String
Dim i As Integer
Dim Lw As String
Dim Verz As String
Dim dat As String

Lw = "C:\" 'Hier Laufwerk angeben
Verz = "privat\excel\" 'Hier Verzeichnis angeben
dat = "*.xls" 'Hier Datei angeben

If Right(Lw, 1) <> "\" Then Lw = Lw & "\"
If Right(Verz, 1) <> "\" Then Verz = Verz & "\"

Dateiname = Dir$(Lw & Verz & dat)
Do While Dateiname <> ""
ActiveSheet.Range("A1").Offset(i, 0) = Dateiname
i = i + 1
Dateiname = Dir$()
Loop

End Sub

mfg Herbert

[bodyguard161059]

Hallo Herr Taferner,

vielen Dank, die Lösung habe ich übernommen.

Grüßle

Andreas

Post by Herbert Taferner
Hallo Andreas,
schreib deinen Namen ins Adressfeld, dies ist hier üblich
siehe
http://www.jumper.ch/netikette_crossposting.htm
z. B. so,
Sub DateinamenAuflisten()
Dim Dateiname As String
Dim i As Integer
Dim Lw As String
Dim Verz As String
Dim dat As String
Lw = "C:\" 'Hier Laufwerk angeben
Verz = "privat\excel\" 'Hier Verzeichnis angeben
dat = "*.xls" 'Hier Datei angeben
If Right(Lw, 1) <> "\" Then Lw = Lw & "\"
If Right(Verz, 1) <> "\" Then Verz = Verz & "\"
Dateiname = Dir$(Lw & Verz & dat)
Do While Dateiname <> ""
ActiveSheet.Range("A1").Offset(i, 0) = Dateiname
i = i + 1
Dateiname = Dir$()
Loop
End Sub
mfg Herbert

[Herbert Taferner]

Hallo Andreas,

Post by bodyguard161059
vielen Dank, die Lösung habe ich übernommen.

Bitte gern !

mfg Herbert