vbsで任意のディレクトリ存在チェック

Question

##やりたいこと
cmdから任意のディレクトリパスを入力して
そのパスのあるないを判定し、出し分けをする
プログラムをVBScriptで行おうとしています。

●やりたいことの流れ
１．cmd起動
２．vbsファイル実行
３．ディレクトリパス入力
４．入力したディレクトリパス存在チェックして"あり","なし"表示

##できていること

コードの中に直接パスを書いて判定するところはできています。

' フォルダ (ディレクトリ) が存在しているかどうか確認する(サンプル)
Dim sonzai
Set objFso = CreateObject("Scripting.FileSystemObject")

If objFso.FolderExists("c:\temp") Then
    sonzai = "あり"
    WScript.Echo sonzai
Else
    sonzai = "なし"
    WScript.Echo sonzai
End If

●できていることの流れ
１．cmd起動
２．vbsファイル実行
３．ディレクトリパス存在チェックして"あり","なし"表示

##できていないところ
任意のパスを指定して判定する部分が出来ていません。

ーーーー
わかる方いましたら教えていただけると幸いです。

Answer 1

ちょっと何が聞きたいかよくわからなかったのですが、
３．ディレクトリパス入力
が出来ていないということでしょうか？
それならInpuptBoxを使えば可能です。

Dim sonzai
Set objFso = CreateObject("Scripting.FileSystemObject")

Dim path
path = InputBox("パスを入力してください")

If objFso.FolderExists(path) Then
    sonzai = "あり"
    WScript.Echo sonzai
Else
    sonzai = "なし"
    WScript.Echo sonzai
End If

Comments

[detti0101]

ありがとうございます。初心者なのですごく勉強になります。

[shinobu_osaka]

ほしい解答としてはこちらでよろしかったでしょうか？
「出来ていない・教えてほしい部分」
というのを別途記載すると回答が付きやすいかと思います。

[detti0101]

ご指摘ありがとうございます。ほしい回答はあっています。

[shinobu_osaka]

それはよかったです。
InputBoxで表示されるダイアログはタイトルを変更したりできますので、
あとは[ inputbox vbscript ] でググってみてください。

[detti0101]

親切にありがとうございます。

[tkturbo]

解決したならベストアンサー選んで解決済みにしてください＞detti0101さん

[detti0101]

tkturboさん＞ 今ベストアンサーしました。