 Loading |
|
Loading |
| VBScript |
| JavaScript |
| Powershell |
Search Options: Dialog SaveFile
|
||
|
'#*~#*~#*~#*~#*~#*~#*~#*~#*~#*~#*~#*~#*~#*~#*~#*~#*~#*~#*~#*~#*~#*~#*~#*~#*~#*~#*~#'
'/| |\\\\\\\\' '//| |\\\\\\\' '///| |\\\\\\' '////| Version 1.0.0 |\\\\\' '/////| Author: Boris TOll |\\\\' '//////| Last Update: 31.01.2008 |\\\' '///////| |\\' '////////| |\' '#*~#*~#*~#*~#*~#*~#*~#*~#*~#*~#*~#*~#*~#*~#*~#*~#*~#*~#*~#*~#*~#*~#*~#*~#*~#*~#*~#' Dim strFile : strFile = SaveFile() If strFile > "" then Msgbox "Ausgewählte Datei: " & VbCrLf & strFile End if '-------------------------------------------------------- Function SaveFile() On Error Resume Next Dim ofso : Set ofso = CreateObject("Scripting.FileSystemObject") Dim oDlg : set oDlg = Wscript.CreateObject("MSComDlg.CommonDialog") If Err.Number <> 0 then Err.Clear Set oDlg = CreateObject("UserAccounts.CommonDialog") If Err.Number <> 0 then MsgBox "Notwendige Runtimes sind nicht vorhanden, Script wird beendet.",16 , "Info" WScript.Quit End if End if oDlg.Filter = "All Files (*.*)|*.*" oDlg.FilterIndex = 1 oDlg.MaxFileSize = 10000 oDlg.CancelError = true oDlg.ShowSave If oDlg.Filename > "" then SaveFile = oDlg.Filename Else SaveFile = "" End if End Function | ||
© 2008 - 2013 Boris Toll :: Scripts available: 6.481 :: :: scriptbox.toll.at :: :: powered by www.toll.at :: | ||
