Inputbox Fileendung auswählen
31.08.2003 10:27:52
geri
kämpfe mit kleinem problem, möchte via INPUTBOX Dateierweiterung auswählen
es sollte "*." FIX sein, nur Wahl XLS, XLA, PDF usw nötig
es kann auch bereits XLS in INPUTBOX stehen und mit Enter weiter
da keine Änderung
AUSZUG aus Code
Set fsObjekt = Application.FileSearch
With fsObjekt
.LookIn = "C:\DATEN\" 'anpassen Suchort
.SearchSubFolders = True
.Filename = "*.doc" 'anpassen auf Dateiendung
If .Execute() > 0 Then
Danke
und allen einen schönen Sonntag auch wenn es etwas regnet
gruss geri