HTA+VBScriptでフォルダ選択ダイアログボックスを表示する方法

HTA（HTML Application）と VBScript を組み合わせてフォルダ選択ダイアログボックスを表示する方法はいくつかありますが、一般的なのは Shell.Application オブジェクトの BrowseForFolder メソッドを使用する方法です。

以下に基本的なコード例を示します。

HTML
<!DOCTYPE html>
<html>
<head>
<title>フォルダ選択</title>
<hta:application
     applicationname="FolderSelect"
     border="thin"
     caption="yes"
     icon=""
     maximizebutton="no"
     minimizebutton="yes"
     scroll="no"
     showintaskbar="yes"
     singleinstance="yes"
     sysmenu="yes"
     windowstate="normal"
>
<script language="VBScript">
Sub SelectFolder()
  Dim objShell, objFolder, strFolderPath

  ' Shell.Application オブジェクトを作成
  Set objShell = CreateObject("Shell.Application")

  ' フォルダ選択ダイアログを表示
  ' 引数の説明:
  '   0: 親ウィンドウのハンドル (通常は 0)
  '   "フォルダを選択してください": ダイアログのタイトル
  '   &H1: オプション (ここでは新しいフォルダを作成するオプションを有効に)
  '   ": 初期フォルダ (省略可能)
  Set objFolder = objShell.BrowseForFolder(0, "フォルダを選択してください", &H1, "")

  ' フォルダが選択されたか確認
  If Not objFolder Is Nothing Then
    strFolderPath = objFolder.Self.Path
    MsgBox "選択されたフォルダ: " & strFolderPath
  Else
    MsgBox "フォルダが選択されませんでした。"
  End If

  ' オブジェクトを解放
  Set objFolder = Nothing
  Set objShell = Nothing
End Sub
</script>
</head>
<body>
  <button onclick="SelectFolder()">フォルダを選択</button>
</body>
</html>

コードの説明:

  1. <!DOCTYPE html>、<html>、<head>、<title>: HTML の基本的な構造です。
  2. <hta:application>: HTA アプリケーションの設定を行います。
    • applicationname: アプリケーションの名前。
    • border: ウィンドウのボーダーの種類。
    • caption: タイトルバーを表示するかどうか。
    • その他の属性はウィンドウの表示や動作に関する設定です。
  3. <script language="VBScript">: VBScript のコードを記述するセクションです。
  4. Sub SelectFolder(): フォルダ選択処理を行うサブルーチンです。
  5. Dim objShell, objFolder, strFolderPath: 使用する変数を宣言します。
  6. Set objShell = CreateObject("Shell.Application"): Shell.Application オブジェクトのインスタンスを作成します。このオブジェクトは、Windows シェルの機能を利用するために使用されます。
  7. Set objFolder = objShell.BrowseForFolder(0, "フォルダを選択してください", &H1, ""): BrowseForFolder メソッドを呼び出してフォルダ選択ダイアログを表示します。
    • 第1引数 (0): 親ウィンドウのハンドルを指定します。通常は 0 を指定します。
    • 第2引数 ("フォルダを選択してください"): ダイアログボックスのタイトルを指定します。
    • 第3引数 (&H1): オプションを指定します。&H1 は「新しいフォルダを作成」オプションを有効にするフラグです。他のオプションについては、Microsoft のドキュメントを参照してください。
    • 第4引数 (""): 初期フォルダを指定します。省略すると、通常はデスクトップが表示されます。特定のパスを指定することも可能です。
  8. If Not objFolder Is Nothing Then ... Else ... End If: BrowseForFolder メソッドが正常にフォルダを返したかどうかを確認します。キャンセルされた場合は Nothing が返ります。
  9. strFolderPath = objFolder.Self.Path: 選択されたフォルダのパスを取得します。
  10. MsgBox "選択されたフォルダ: " & strFolderPath: 選択されたフォルダのパスをメッセージボックスに表示します。
  11. MsgBox "フォルダが選択されませんでした。": フォルダが選択されなかった場合に表示するメッセージです。
  12. Set objFolder = Nothing、Set objShell = Nothing: 使用済みのオブジェクトを解放します。
  13. </script>: スクリプトセクションの終了タグです。
  14. </head>: ヘッダセクションの終了タグです。
  15. <body>: ボディセクションの開始タグです。
  16. <button onclick="SelectFolder()">フォルダを選択</button>: フォルダ選択ダイアログを表示するためのボタンを作成します。ボタンがクリックされると、SelectFolder サブルーチンが実行されます。
  17. </body>: ボディセクションの終了タグです。
  18. </html>: HTML ドキュメントの終了タグです。

使用方法:

  1. 上記のコードをテキストエディタにコピーします。
  2. ファイル名を .hta 拡張子で保存します（例: folder_select.hta）。
  3. 保存した .hta ファイルを実行すると、フォルダ選択ダイアログを表示するウィンドウが開きます。
  4. 「フォルダを選択」ボタンをクリックすると、フォルダ選択ダイアログボックスが表示されます。

その他のオプション:

BrowseForFolder メソッドの第3引数（オプション）には、さまざまなフラグを指定できます。例えば、フォルダだけでなくネットワーク上の共有フォルダも選択できるようにしたり、ダイアログの表示形式を変更したりできます。詳細については、Microsoft のドキュメントで BrowseForFolder メソッドのオプションを確認してください。

この方法で、HTA+VBScript で簡単にフォルダ選択ダイアログボックスを表示することができます。


コメント

コメントを投稿

このブログの人気の投稿

HTA+JScriptでウインドウのサイズ変更するプログラム

HTAとJScriptを使って、ウインドウのサイズを変更する、基本的なコード例を紹介します。 <html> <head> <title>ウインドウサイズ変更</title> <script> function resizeWindow() { // ウインドウの幅と高さを設定 window.resizeTo(640, 480); } </script> </head> <body> <input type="button" value="ウインドウサイズ変更" onclick="resizeWindow()"> </body> </html> このコードを実行すると、ボタンをクリックするとウインドウのサイズが640x480ピクセルに変更されます。
Read more »

PDFって編集できないからビジネスで使われてたと思うんだけど、それを編集できるようにするって・・・

  そうですね、 PDFがビジネスで広く使われてきた理由の一つは、その「編集が難しい」という特性でした。 誰がどの環境で見てもレイアウトが崩れず、内容が勝手に変更されるリスクが低いという点が、文書の信頼性やセキュリティの面で重要視されてきたからです。 しかし、近年ではPDFの編集機能が進化し、多くのPDFソフトウェアでテキストの修正、画像の追加・削除、ページの並べ替えなどが容易にできるようになりました。これは、ビジネス環境の変化に対応するため、という側面もあります。 なぜPDF編集が可能になったのか？ PDF編集機能が発展した背景には、いくつかの要因があります。 業務効率化のニーズ: いちいち元データに戻って修正し、再度PDF化する手間を省きたいというニーズが高まりました。簡単な修正であればPDF上で直接行いたいという声が多く、ソフトウェアベンダーもそれに応える形で機能を追加していきました。 共同作業の増加: クラウドサービスやオンラインでの共同作業が増えるにつれて、PDFを共有しながらコメントを付けたり、修正指示をしたりする場面が増えました。その流れで、より直接的な編集機能も求められるようになりました。 技術の進化: PDFの内部構造を解析し、より効率的に編集する技術が向上したことも、機能向上の大きな要因です。 PDF編集のメリットとデメリット PDF編集が可能になったことで、以下のようなメリットとデメリットが考えられます。 メリット 迅速な修正: 誤字脱字や軽微なレイアウト調整など、緊急性の高い修正を迅速に行えます。 作業の効率化: 元データを探す手間や、別のソフトウェアを立ち上げる手間が省け、全体の作業フローがスムーズになります。 ペーパーレス化の促進: 印刷せずにPDF上で完結できるため、環境負荷の低減にもつながります。 デメリット セキュリティリスク: 編集が容易になることで、意図しない改ざんや情報漏洩のリスクが高まる可能性があります。特に、機密情報を含むPDFを扱う際は注意が必要です。 版管理の複雑化: 誰が、いつ、どこを修正したのかが不明確になり、最終版がどれなのか分からなくなる「版管理」の課題が生じる場合があります。 オリジナルデータの喪失: PDFを直接編集することで、オリジナルのデータが失われたり...
Read more »

PortProtonとは

  PortProtonは、Linux上でWindowsのゲームやソフトウェアを簡単に実行するためのツールです。 Valveが開発した「Proton」という互換レイヤーをベースにしていますが、PortProtonはSteamクライアントに統合されているProtonとは異なり、SteamがなくてもWindowsアプリケーションを実行できるのが特徴です。 主な機能や特徴は以下の通りです。 簡単な実行 : 数クリックでWindowsのゲームやソフトウェアをLinux上で起動できます。 Protonの利用 : ValveのProton技術を利用しており、Windowsアプリケーションの互換性を高めます。 Steam不要 : SteamクライアントなしでWindowsアプリケーションを実行できるため、より汎用的に使えます。 依存関係の管理 : 必要なライブラリや依存関係を自動的に管理し、ユーザーの手間を省きます。 細かい設定 : ゲームごとに互換レイヤー、シェーダー、グラフィック設定などを細かく制御できます。 LinuxでWindowsのゲームをプレイしたい場合や、特定のWindowsソフトウェアをLinux環境で動かしたい場合に便利なツールと言えるでしょう。
Read more »

Windows Media Playerで動画を見ようとしたら「サーバーの実行に失敗しました」って出て見れません。どうしたらいいですか？Gemini先生～

イメージ
  Windows Media Playerで「サーバーの実行に失敗しました」というエラーメッセージが表示されるとのこと。Geminiがお手伝いさせていただきますね。 このエラーは、Windows Media Playerのコンポーネントが正しく動作していない場合に発生することが多いです。いくつか試せる対処法がありますので、上から順にお試しください。 1. 基本的な確認 PCの再起動: まずはPCを再起動してみてください。一時的な問題であれば、再起動で解決することがよくあります。 2. Windows Media Playerの再登録 Windows Media Playerの主要なコンポーネントを再登録することで、問題が解決する場合があります。 管理者としてコマンドプロンプトを実行: Windowsの検索バーに「cmd」と入力します。 表示された「コマンドプロンプト」を右クリックし、「管理者として実行」を選択します。 ユーザーアカウント制御のダイアログが表示されたら「はい」をクリックします。 以下のコマンドを順番に入力し、Enterキーを押します: regsvr32 jscript.dll regsvr32 vbscript.dll regsvr32 wmp.dll それぞれのコマンドを実行した後、「DllRegisterServer は成功しました」というメッセージが表示されることを確認してください。 コマンド実行後、Windows Media Playerを再度起動してみてください。 3. Windows Media Playerの機能を一度オフにして再度オンにする Windowsの機能としてWindows Media Playerを一度無効にし、再度有効にすることで、設定がリフレッシュされることがあります。 「Windowsの機能の有効化または無効化」を開く: Windowsの検索バーに「Windowsの機能」と入力し、「Windowsの機能の有効化または無効化」をクリックします。 Windows Media Playerを無効にする: 「メディア機能」を展開します。 「Windows Media Player」のチェックを外し、「OK」をクリックします。 PCの再起動を求められたら再起動します。 ...
Read more »

教えてGemini先生！HTMLでScriptを描く書く場所はどこがいいの？最近はbody内に書く人が多いような・・・

はい、Gemini先生です！HTMLでJavaScriptを書く場所ですね。最近は <body> タグの 閉じタグ直前 に書くのが主流になっています。 <head> 内に書く場合 以前はJavaScriptを <head> タグ内に書くのが一般的でした。 HTML <!DOCTYPE html > < html lang = "ja" > < head > < meta charset = "UTF-8" > < title > タイトル </ title > < script > // ここにJavaScriptコード </ script > </ head > < body > < h1 > こんにちは！ </ h1 > </ body > </ html > この方法だと、HTMLの読み込みが始まる前にJavaScriptが実行されるため、スクリプトの内容によっては ページの表示が遅くなる というデメリットがありました。例えば、JavaScriptでDOM要素（HTMLの要素）を操作しようとしても、まだHTMLが読み込まれていないためエラーになる、といったことも起こりえます。 <body> 閉じタグ直前に書く場合（推奨） 現在、最も推奨されているのは <body> タグの 閉じタグ（ </body> ）の直前 に書く方法です。 HTML <!DOCTYPE html > < html lang = "ja" > < head > < meta charset = "UTF-8" > < title > タイトル </ title > </ head > < body > < h1 > こんにちは！ </ h1...
Read more »

HTA (HTML Application)

  HTA (HTML Application) は、Windowsプラットフォームで使用される一種のアプリケーション形式です。以下はHTAに関するいくつかの重要なポイントです： 定義 : HTAは、HTMLとスクリプト（通常はVBScriptまたはJScript）を組み合わせたファイルです。拡張子は .hta です。 HTAは、Webページと同様にブラウザで表示されますが、ローカルマシン上で実行されるため、セキュリティ上の制限が緩和されています。 特徴 : HTAは、Windowsスクリプトホスト（WSH）を使用して実行されます。これにより、ローカルファイルシステムへのアクセスやシステムリソースの操作が可能です。 HTAは、ユーザーインターフェース（UI）を作成するために使用されます。フォーム、ボタン、テキストボックスなどのUI要素を含めることができます。 利用例 : HTAは、シンプルなユーザーツール、設定ウィザード、データベースフロントエンドなど、さまざまな用途で使用されます。 HTAは、Windowsのシステム管理者がスクリプトを実行するためのツールとしても利用されます。 サンプルHTAコード : < html > < head > < title > My HTA Application </ title > < HTA:APPLICATION ID = "MyHTA" APPLICATIONNAME = "My HTA" BORDER = "thin" INNERBORDER = "no" SCROLL = "yes" SINGLEINSTANCE = "yes" WINDOWSTATE = "normal" /> </ head > < body > < h1 > Hello, HTA World! </ h1 > < p...
Read more »

右翼・左翼とは？教えてGemini先生

  ご質問ありがとうございます、Gemini先生ですね！右翼と左翼について、わかりやすくご説明しますね。 右翼と左翼は、政治的な立場や思想を大まかに分類するための言葉です。フランス革命の時代、議会で国王を支持する人々が右側に、改革を求める人々が左側に座っていたことに由来すると言われています。 現代においては、その意味合いは時代や国によって異なりますが、一般的には以下のような傾向があります。 右翼 保守的: 伝統的な価値観や社会の仕組みを重視し、急激な変化を避けようとする傾向があります。 国家主義的: 自国や民族の独自性、文化、歴史を誇りとし、国家の利益を優先する考え方が強いことがあります。 権威主義的: 強いリーダーシップや秩序を重視し、政府の権限強化を支持する場合があります。 自由市場経済: 規制緩和や小さな政府を志向し、自由な経済活動を重視する立場をとることがあります。 外交・安全保障: 国防力の強化や、伝統的な同盟関係を重視する傾向があります。 左翼 革新的: 現状の社会の不平等や矛盾を批判的に捉え、より平等で公正な社会を目指して改革を推進しようとする傾向があります。 社会主義的・平等主義的: 貧富の差の是正や社会保障の充実を重視し、政府による所得再分配や社会福祉の拡充を求めることがあります。 人権重視: 個人の自由や権利、マイノリティの権利などを重視し、差別や偏見の解消を目指します。 大きな政府: 政府が積極的に経済や社会に関与し、公共サービスの提供や格差是正を行うべきだと考えることがあります。 平和主義的・国際協調: 軍事的な解決よりも外交交渉を重視し、国際的な協力関係を推進する傾向があります。 注意点 これらの特徴はあくまで一般的な傾向であり、全ての人に当てはまるわけではありません。 右翼・左翼の分類は非常に大まかなものであり、実際には様々な立場や考え方を持つ人が存在します。 同じテーマに関しても、右翼と左翼の間で多様な意見が存在します。 時代や国によって、右翼・左翼の指す内容や重要視する点が異なることがあります。 日本においても、右翼・左翼という言葉は使われますが、その具体的な意味合いは文脈によって異なります。歴史的な背景や社会状況を踏まえて理解することが重要です。 何かさらに知りたいことや...
Read more »

JavaScript ステートメント一覧

1. 変数宣言と代入 var キーワード：変数を宣言します。 let キーワード：ブロックスコープの変数を宣言します。 const キーワード：定数を宣言します。 = 演算子：変数に値を代入します。 例： JavaScript var x = 10 ; // 数値型変数を宣言 let y = "Hello" ; // 文字列型変数を宣言 const z = true ; // ブール型定数を宣言 x = 20 ; // 変数の値を変更 y = "World" ; z = false ; // 定数は変更できない 2. 条件分岐 if ステートメント：条件式に基づいて処理を分岐します。 else ステートメント： if ステートメントの条件が偽の場合に処理を実行します。 else if ステートメント：複数の条件を順番にチェックできます。 例： JavaScript if (x > 10 ) { console .log( "x は 10 より大きい" ); } else { console .log( "x は 10 以下" ); } if (y === "Hello" ) { console .log( "y は 'Hello' です" ); } else if (y === "World" ) { console .log( "y は 'World' です" ); } else { console .log( "y は 'Hello' でも 'World' でもありません" ); } 3. ループ処理 for ループ：一定回数処理を繰り返します。 while ループ：条件が真の間処理を繰り返します。 do...while ループ：処理を少なくとも一度実行してから、条件が真の間処理を繰り返します。 例： JavaScript for ( var i = 0 ; i < 10 ; i++) { console...
Read more »

Gemini先生、塩ラーメンが食べたくなっちゃったので超絶うまい塩ラーメンスープのレシピを教えてくださーい

イメージ
  もちろんです！最高の塩ラーメンスープのレシピですね！出汁の旨味が効いた、滋味深いけれどもしっかりと満足感のある塩ラーメンスープのレシピをご紹介します。お店レベルの味を目指しましょう！ 至高の塩ラーメンスープ このレシピは、複数の出汁を組み合わせることで複雑な旨味を引き出すのがポイントです。 材料 A. スープベース 水：2リットル 鶏ガラ：1羽分（約1kg） 豚ゲンコツ：500g（あれば） 長ネギの青い部分：1本分 生姜の皮：1かけ分 ニンニク：2かけ（軽く潰す） B. 魚介出汁（または追い出汁） 水：500ml 昆布：10g（5cm角くらい） 煮干し：20g かつお節：10g C. 塩だれ 粗塩：大さじ3〜4（お好みで調整） 日本酒：大さじ2 みりん：大さじ1 薄口醤油：大さじ1 昆布茶または顆粒昆布だし：小さじ1 うま味調味料（味の素など）：少々（お好みで） ごま油：小さじ1/2 作り方 下準備 鶏ガラ・豚ゲンコツのアク抜き： 鶏ガラと豚ゲンコツは、流水でよく洗い、余分な血合いや内臓を取り除きます。大きめの鍋に入れ、かぶるくらいの水（分量外）を加えて強火にかけ、沸騰したら すぐに アクを丁寧にすくい取ります。1〜2分煮たら火を止め、お湯を捨て、再び流水で骨をきれいに洗います。この下処理がスープの濁りや臭みを防ぐ重要なポイントです。 昆布は固く絞った濡れ布巾で表面を軽く拭き、水に30分以上浸しておきます。煮干しは頭と腹わたを取り除きます。 スープベースを作る 下処理した鶏ガラと豚ゲンコツを圧力鍋（または厚手の鍋）に入れ、Aの材料（水、長ネギ、生姜、ニンニク）を加えます。 圧力鍋の場合： 高圧にセットし、圧がかかったら弱火で30分加圧します。火を止めて自然に圧が抜けるまで待ちます。 厚手の鍋の場合： 強火にかけ、沸騰したら弱火にして、アクを丁寧に取りながら2〜3時間煮込みます。途中、水分が減ったら適宜水を足してください。 煮込み終わったら、ザルでしっかりと濾し、澄んだスープを取ります。骨に残った肉もほぐしておくと、後でラーメンの具材にも使えます。 魚介出汁を作る（スープベースと同時進行可能） Bの材料（水、昆布、煮干し）を鍋に入れ、中火にかけます。沸騰直前で昆布を取り出...
Read more »