【VBScriptについて】VBScriptでアスタリスクは使えるのでしょうか

質問

質問させてください。
VBScriptを使用してフォルダ（file2）があるかどうか確認したいと思っております。
しかし上位のフォルダが何か分からず、又、上位フォルダが何階層になっているかも
分かりません。
その場合、アスタリスクを使用したりなど
何か方法はあるのでしょうか（それともVBScriptで実装することは無理なのでしょうか）

以上について知っていらっしゃる方いらっしゃいましたら
教えていただけないでしょうか。

大変お手数をお掛けいたしますが宜しくお願い致します。

【作成したスクリプト】（Xの部分が分かりません）
----------------------------------------------------------------------------
:
'フォルダがあるかどうか確認
If (fso.FolderExists("x:\xxx\file2")) Then
MsgBox "フォルダがあります"
Else
MsgBox "フォルダがありません"
End If

------------------------------------------------------------------------

回答No.2

Yeti21 · ベストアンサー

サンプルです。

Option Explicit
On Error Resume Next

Dim FSO
Dim Croot
Dim targetFolder

Sub ListFolders(ByVal parFolder)
Dim Subs
For Each Subs In parFolder.SubFolders
if LCase(Subs.Name) = LCase(targetFolder) then
WScript.Echo "Found " & Subs.Path '見つかりました
end if
ListFolders Subs
Next
End Sub

Set FSO = WScript.CreateObject("Scripting.FileSystemObject")
Set Croot = FSO.GetFolder("C:\")
targetFolder = "test" '探すフォルダ名
ListFolders Croot
Set FSO = Nothing
Set Croot = Nothing

お礼

お忙しい中回答ありがとうございました。
頂いたサンプルにて実行することが出来ました。

本当にありがとうございました。

回答No.1

X-trail_00

ドライブがわかっているのなら捜索は可能

フォルダーを探すルーチンを作成するだけ
フォルダの中にサブフォルダがあればその中も捜す。
探す際は自分を呼び出す。
引数にフォルダオブジェクトを渡す。
For　Eachを利用する。
Folders,Drive などを利用する。

というかフォルダ名は階層が違えば共存が可能なので
複数存在する場合もありますよ。

お礼

お忙しい中回答ありがとうございます。
回答者：Yeti21さんのサンプルのにて実装することが出来ました。

本当にありがとうございました。