Re: OpenDialog w pliku .bat

jaro log:
[...]
> Niech ten nowy rok bedzie lepszy od poprzedniego ale gorszy od
> nastepnego ;)

Hi!
:-)
1.
OD.vbs
----------
Set objDialog = CreateObject("UserAccounts.CommonDialog")
'
    objDialog.Filter = ";-)|*.;-)|HNY2k7|HNY.2k7|*.*|*.*"
    objDialog.InitialDir = "C:\"
    intResult = objDialog.ShowOpen
'
If intResult = 0 Then
   Wscript.Quit
Else
   Wscript.Echo " Happy New Year 2007 ! "
End If
====

2.
SD.vbs
---------
Set objDialog = CreateObject("SAFRCFileDlg.FileSave")
'
    objDialog.FileName = "C:\HNY.2k7"
    objDialog.FileType = "HNY.2k7"
    intReturn = objDialog.OpenFileSaveDlg
'
If intReturn Then
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFile = objFSO.CreateTextFile(objDialog.FileName)
    objFile.WriteLine Date
    objFile.Close
Else
    Wscript.Quit
End If
====

W/w okolicznościowo "naskrobane" ...!;-)

-- 
"... Co mnie nie zabije,
to mnie wzmocni ..."
GL&BE