VBScript でファイル選択ダイアログ＜参考記事＞

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

 

 注意すべき変更箇所のみ
「ファイル選択ダイアログボックス」
１．Set oFOP = CreateObject( "UserAccounts.CommonDialog" )
２．oFOP.Flags = OFN_FILEMUSTEXIST or OFN_HIDEREADONLY
３．If( CBool(rtn)  =  false ) Then　と　End If

 

 「ファイル保存ダイアログボックス」
ファイル選択ダイアログボックスと同様
１．//  初期表示のディレクトリパスを設定
　　oFSV.FileName = "C:\*.txt"

 

 ＜20140119END＞

VBScript でファイル選択ダイアログ２

http://blog.goo.ne.jp/tkhs1732/e/1459e16e41d25709803e942499d62a9d