VBScript でファイル選択ダイアログ 参考記事
「ある nakagami の日記」様
http://nakagami.blog.so-net.ne.jp/
ファイルダイアログの記事↓
http://nakagami.blog.so-net.ne.jp/2008-12-08
Excelがあれば、Excelから
GetOpenFilename
GetSaveAsFileName
を呼び出せるこがとわかった
(XPでEXCEL2002,2003しか試していない)。
2012/01/05 Vista HomePremium Excel2007でも動きました。
<以下VBScript>
set objExcel = CreateObject("Excel.Application")
'set objBook = objExcel.WorkBooks.Add
'objExcel.Visible = True
TargetFile1 = objExcel.GetOpenFilename("読込み (*.*),*")
MsgBox ("TargetFile1=" & TargetFile1)
TargetFile2 = objExcel.GetSaveAsFileName( _
"TEST_AAA" _
,"テキスト文書(*.txt),*.txt" & _
",CSVファイル(*.csv),*.csv" & _
",その他ファイル(*.*),*.*" _
,1 _
,"保存先の指定" _
)
MsgBox ("TargetFile2=" & TargetFile2)
'2012/01/05 STA
'Excelのゾンビタスク予防に入れておいたほうが良いみたい
objExcel.Quit
'2012/01/05 END
set objExcel = Nothing
'set objBook = Nothing
<20140119STA>
通常はこちらのほうがいいとおもいます。
WSH JScriptを使いこなそう ~情報の入力方法~
http://3rd.geocities.jp/kaito_extra/Source/InputInfo.html
注意すべき変更箇所のみ
「ファイル選択ダイアログボックス」
1.Set oFOP = CreateObject( "UserAccounts.CommonDialog" )
2.oFOP.Flags = OFN_FILEMUSTEXIST or OFN_HIDEREADONLY
3.If( CBool(rtn) = false ) Then と End If
「ファイル保存ダイアログボックス」
ファイル選択ダイアログボックスと同様
1.// 初期表示のディレクトリパスを設定
oFSV.FileName = "C:\*.txt"
<20140119END>
http://blog.goo.ne.jp/tkhs1732/e/1459e16e41d25709803e942499d62a9d