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.

[Juerg]

Aufruf aus einer Kommandozeile geht so:

Code:

cscript SaveAs.vbs

SaveAs.vbs:

Code:

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.

Code:

	If (MyFile <> "") Then
	    Save()
	    WScript.Echo MyFile
	End If