VBS: Datei-öffnen-Fenster?

[Mr. Lolman]

Hi. Bin leider der absolute VBS Noob, brauch aber ein kleiner Script, welches einem eine Datei auswählen lässt, und dann den Pfad der gewählten Datei in eine Variable speichert, die in Batch weiterverwendbar ist (falls das nicht geht, dann soll der Pfad halt in eine Datei gespeichert werden)

Ist sicher total simpel, aber leider hab ich überhaupt keinen Plan davon. :redface:

[Juerg]

Aufruf aus einer Kommandozeile geht so:cscript SaveAs.vbs

SaveAs.vbs:Option Explicit
'//
'// Requirements:
'// COMDLG32.OCX
'// CMDialog ActiveX Control DLL
'//
On Error Resume Next

Dim MyText
Dim MyFile

Main()

WScript.Quit(0)

Sub Main()

MyText = "Hello World"
MyFile = SaveAs()

If (MyFile <> "") Then
Save()
End If

End Sub

Function SaveAs()

Dim oDLG

Set oDLG = CreateObject("MSComDlg.CommonDialog")
With oDLG
.DialogTitle = "SaveAs"
.Filter = "Text Files|*.txt|My Files|*.myf|All files|*.*"
.MaxFileSize = 255
.ShowSave
If .FileName <> "" Then
SaveAs = .FileName
End If
End With
Set oDLG = Nothing
End Function

Sub Save()

Dim fso,f

Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.CreateTextFile(MyFile, True)
f.Write MyText
f.Close
Set f = Nothing
Set fso = Nothing
End Sub

[Juerg]

Ohh... Habe gerade gesehen, dass Du den Pfad möchtest... :)

Schreib noch ein WScript.Echo MyFile rein. Damit kannst Du dann mittels redirect < den Pfad in einer Batch weiterverwenden.
If (MyFile <> "") Then
Save()
WScript.Echo MyFile
End If