VBScript で使用可能な Windows の標準のオブジェクトだけではファイルの参照ダイアログを使え無いので、Excel.Application を使うのが比較的近道です。( Excel がインストールされている環境 ) ここでは、複数のファイルを選択して配列内にあるパスをループで参照しています。 Application.GetOpenFilename メソッド (Excel)
' ****************************
' Excel オブジェクト作成
' ****************************
Set App = CreateObject("Excel.Application")
' ****************************
' 警告を出さないようにする
' ****************************
App.DisplayAlerts = False
' ****************************
' ファイル参照( 複数 )
' ▼ 1ファイル選択では、戻り値は文字列で、キャンセルだと False
' Path = App.GetOpenFilename("テキストファイル,*.txt,全て,*.*", , "ファイルを選択して下さい")
' ****************************
Path = App.GetOpenFilename("テキストファイル,*.txt,全て,*.*", , "ファイルを選択して下さい", , True )
' ****************************
' キャンセルで終了
' ****************************
if not IsArray( Path ) then
Wscript.Quit
end if
' ****************************
' 選択したパスを表示
' ****************************
For I = 1 to Ubound( Path )
MsgBox( Path( I ) )
Next
' ****************************
' Excel をアプリケーションとして終了
' ****************************
App.Quit()
' ****************************
' Excel を VBScript から開放
' ****************************
Set App = Nothing
' ****************************
' オブジェクト変数を初期化
' ( 初期化しないとオブジェクト扱いされる )
' ****************************
App = Empty
MsgBox( "処理が終了しました" )
VBScriptドキュメント
|
|
【VBS + オブジェクトの最新記事】
- 簡易詳細設計書(A4)作成 : VBScript + Excel.Application
- VBScript : 複数テキストファイルの charset(キャラクタセット) 一括変換 / ADODB.Stream
- VBScript : 既存の Excel を PDF に変換する ( ExportAsFixedFormat )
- テーブル設計書作成 : VBScript + Excel.Application + SQLServer
- ブラウザ上にあるデータを PHP で受け取って、VBScript のコードを作成して事前に作成済のテンプレート Excel にデータをロードして印刷で使用する
- VBScript : Access のテーブルを TransferText メソッドを使用して UTF-8 で CSV または HTML にして出力する
- VBScript : ネイティブ(CAPICOM.Utilities) Base64 エンコード
- VBScript で、スクリプト(Windows Script Component)をオブジェクトとして直接使う方法
- VBScript : バイナリファイルの更新( 1バイトの ByteArray なら、ADO.Stream で作成できます )
- VBScript : ini ファイルの値を取得する
- VBS : My Documents フォルダのような、特殊フォルダのサイズを取得する
- VBScript : ネイティブ SHA1、MD5、SHA256 変換
【VBScript関連のカテゴリ】
