Alternative zu FileSearch

Forumthread: Alternative zu FileSearch

01.05.2007 00:44:51

Jonas

Hi Leute,
in Excel 2007 wird FileSearch nicht mehr unterstützt.
Ich suche daher eine Alternative:
Lies einen Ordner nach einem bestimmten Dateityp aus, z.B. *.txt
Grüße Jonas

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Alternative zu FileSearch

01.05.2007 01:34:00

Oberschlumpf

AW: Alternative zu FileSearch

01.05.2007 01:34:00

Oberschlumpf

Hi Jonas
Solange es sich nur um einen Ordner ohne Unterordner handelt, geht es so:


Sub DateiSuchen
Dim lstrFile As String
lstrFile = Dir("DeinPfad\*.txt")
Do Until lstrFile = ""
MsgBox lstrFile
lstrFile = Dir
Loop
End Sub

Dieses Makro meldet in einer Mesagebox alle txt-Dateien, die im von dir angegeben Verzeichnis gefunden wurden.
Konnte ich helfen?
Ciao
Thorsten

Forumthread: Alternative zu FileSearch

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread