天越ブログ

September 14, 2005

コモンダイアログ

＿がスクリプトからでも簡単に使える。

某所で仕入れたので試してみたのだが、この方法はXP限定らしい、
うちの2Kには'safrcdlg.dll'というファイルは入ってなかった。

たとえばこの辺から拾ってきて、
# regsvr32 /i safrcdlg.dll
とかすれば使える様にはなるけど、反則っぽいしな、どうしたものか。

'!vbs -----comdlg.vbs-----
dim wshshell, dialog1, dialog2
set wshshell = CreateObject("WScript.Shell")
set dialog1 = CreateObject("SAFRCFileDlg.FileOpen")
dialog1.OpenFileOpenDlg
oname = dialog1.FileName
wshshell.popup (oname)
set dialog2 = CreateObject("SAFRCFileDlg.FileSave")
dialog2.FileName = "c:\*.txt"
dialog2.FileType = "テキストファイル(*.txt)"
dialog2.OpenFileSaveDlg
cname = dialog2.FileName
wshshell.popup (cname)

投稿者 秋天越 : 10:35 PM | トラックバック (0)

http://akitenh.s55.xrea.com/mt/mt-tb.cgi/130