title image


Smiley FileSearch-Objekt
Hi,



ein leistungsfähiges Werkzeug um Dateien zu suchen ist das FileSearch-Objekt. Dessen "Treffer" kannst Du dann in eine temporäre Tabelle schreiben, die als Basis für das Listenfeld dient.





With Application.FileSearch

.NewSearch

.Lookin = "c:\daten"

.Filename = "*.pdf"

If .execute > 0 Then

for i = 0 to .foundfiles.Count

Messagebox .foundfiles(i)

next i

else

MsgBox "Keine Dateien gefunden!"

end if

End With





HTH

Martin
Atrus2711 ät gmx punkt net
Meine Beiträge zu MS Office betreffen stets Version 2000,
wenn nicht anders angegeben.




geschrieben von


Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: