ファイル選択ダイアログを開く

ファイル選択ダイアログを開く

データベース

InternetExplorer.Application の利用

スクリプトからファイル選択ダイアログを開く方法は、XP を除く OS では正式に用意されていません。ですから、完全なコントロールはできませんが、InternetExplorer.Application を使用するとなんとか使う事ができます
( 但し Cscript.exe からは実行できません )

' 管理者として実行を強制する
Set obj = Wscript.CreateObject("Shell.Application")
if Wscript.Arguments.Count = 0 then
    obj.ShellExecute "wscript.exe", WScript.ScriptFullName & " runas", "", "runas", 1
    Wscript.Quit
end if
 
' ファイルシステムを操作するオブジェクト
Set Fso = WScript.CreateObject( "Scripting.FileSystemObject" )
' テンポラリフォルダ
TempDir =  Fso.GetSpecialFolder(2)
on error resume next
' テンポラリフォルダに空の "local.htm" を作成
Set objHandle = Fso.CreateTextFile( TempDir & "\local.htm", True, True )
if Err.Number <> 0 then
    Wscript.Quit
end if
objHandle.Close
on error goto 0
 
' IE を操作するオブジェクト
Set IEDocument = WScript.CreateObject( "InternetExplorer.Application" )
' テンポラリフォルダに作成したファイルを開く
IEDocument.Navigate( TempDir & "\local.htm" )
' 『ファイルを開く』為のコンテンツを作成
IEDocument.document.getElementsByTagName("BODY")(0).innerHTML = "<input id=FilePath type=file>"
' 『ファイルを開く』為に、ボタンをクリックする
IEDocument.document.getElementById("FilePath").click
' ファイルを選択していない場合は終了
if IEDocument.document.getElementById("FilePath").value = "" then
    OpenLocalFileName = ""
    IEDocument.Quit
    Set IEDocument = Nothing
    Wscript.Quit
end if
 
' 選択したファイルのパスを戻す
Wscript.Echo IEDocument.document.getElementById("FilePath").value
 
' IE を終了
IEDocument.Quit
Set IEDocument = Nothing

UserAccounts.CommonDialog

Windows XP は以下のようにして実現できます

Set objDialog = CreateObject("UserAccounts.CommonDialog")

objDialog.Filter = "全て|*.*|テキスト|*.txt"
objDialog.InitialDir = "C:\"
nRet = objDialog.ShowOpen
 
if nRet = 0 then
	Wscript.Quit
End If

WScript.Echo objDialog.FileName

Microsoft へのリンク

infoboard 管理者用

フリーフォントWEBサービス

フリーフォントで簡単ロゴ作成

アイコン・はんこ画像作成

フリーフォントで横書きロゴ作成

フリーフォントで縦書きロゴ作成

フリーフォントでボタン素材作成

フリーフォントで吹き出し素材作成

フリーフォントで PDF 作成

デュアルフォント

フリーフォント配布サイト

キーボード画像作成

フリーフォントギャラリー

イラストACよりフリーダウンロード

UTF-8文字Tool

SQLの窓WEBサービス

リアルタイムHTML

テキスト変換

ストリートビューとMAPのコード

SyntaxHighlighter

Shadowbox 埋め込みコード作成

SQLの窓フリーソフト

SQLの窓 Build C++

「送る」に入れる簡易ダンプ

コンピュータアイコンメニュー

ドメイン内検索

素材

イラスト素材サイト

一般WEBツールリンク

WEB アーカイブ

疑わしいファイルや URL を分析する

HTML整形ツール

ttf to woff converter

Twitter Card validator

Google URL Shortener

SQLの窓

logical　error

職人的フリーソフトの使い方

ソース掲示板

フリーソフト

PrimoPDF(英語版)

JSライブラリ

The Google Hosted Libraries