'*** v6.C *** www.dieseyer.de ******************************* ' ' Datei: browse-for-file.vbs ' Autor: ? ? ? ' Auf: www.dieseyer.de ' '*********************************************************** Option Explicit ' Siehe http://dieseyer.de/dse-wsh-lernen.html#OptionExpl MsgBox BFF, , WScript.ScriptName WSCript.Quit '*** v9.B *** www.dieseyer.de ******************************* Function BFFStartVerzeichnis( Verz ) '*********************************************************** ' aus http://www.source-center.de/forum/showthread.php?t=25743 ' unter Win7 / Windows 7 nicht verfügbar: ' http://technet.microsoft.com/en-us/magazine/2008.08.heyscriptingguy.aspx ' man nehme browse-for-file-ie.vbs Dim Dialog : 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 = 2 ' von den drei auswählbaren Filtern wird der 2. eingesetzt Dialog.InitialDir = Verz Dialog.ShowOpen BFFStartVerzeichnis = Dialog.FileName End Function ' BFFStartVerzeichnis( Verz ) '*** v6.C *** www.dieseyer.de ******************************* Function BFF() '*********************************************************** ' aus http://www.source-center.de/forum/showthread.php?t=25743 Dim Dialog : 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 = 2 ' von den drei auswählbaren Filtern wird der 2. eingesetzt Dialog.ShowOpen BFF = Dialog.FileName End Function ' BFF()