FileRequester in VBScript

FileRequester in VBScript

Mit folgendem Codeschnipsel kann man aus einem Script heraus einen Dateidialog anzeigen lassen

Set Dialog = CreateObject("UserAccounts.CommonDialog")

' Dialog.Filter = "Text Files|*.txt|All Files|*.*" ' zeigt nur *.txt
' Dialog.Filter = "Excel-Arbeitsmappen|*.xls|Alle Dateien|*.*" ' zeigt nur *.xls
Dialog.Filter = "Alle Dateien|*.*" ' zeigt nur *.* - also ALLES
 Dialog.Filter = "Textdateien|*.txt|Excel-Arbeitsmappen|*.xls|Alle Dateien|*.*"

Dialog.FilterIndex = 3 ' von den drei auswählbaren Filtern wird der 3. eingesetzt

Dialog.ShowOpen 
Filename = Dialog.Filename
wscript.echo Filename