vbsのFolderExistsで部分一致をさせたい

VBSで以下のコードを作成しましたが動作しません。

********動作しない**************************
if (objFileSys.FolderExists("200810*")= True) then
　msgbox "yes"
else
　msgbox "no"
end if

********動作する**************************
if (objFileSys.FolderExists("200810")= True) then
　msgbox "yes"
else
　msgbox "no"
end if

部分一致でフォルダが存在するかをしたいのですが、
どうしたらいいのでしょうか。
よろしくお願いします。

No.2 ベストアンサー 回答者： redfox63 回答日時： 2009/02/16 17:59

FolderExistsはワイルドカードをサポートしていないので

調べたいフォルダーの親のSubFoldersコレクションを自前で調べる
といったことが必要でしょう

'　sParentはFolderオブジェクト、sTargetは調べたい名前
Function myExists( sParent, sTarget )
　　dim sf, ss
　　set sf = sParent.SubFolders
　　for each ss in sf.Name
　　　　if Left( ss, len(sTarget)) = sTarget then
　　　　　　myExists = True
　　　　　　Exit Function
　　　　end if
　　next
　　myEXists = False
End Function
といった具合の関数を使ってはいかがでしょう

この回答へのお礼

回答ありがとうございます。
やってみます。

お礼日時：2009/02/17 18:39

No.1 回答者： himajin100000 回答日時： 2009/02/16 17:35

一発では出来ないだろうから

カレントフォルダに含まれるフォルダ全てを取得して
http://msdn.microsoft.com/en-us/library/e1dthkks …
FolderオブジェクトのNameプロパティを
Like演算子なりRegExpオブジェクトなり使って検証していくしかない

この回答へのお礼

回答ありがとございます。
やってみます。

お礼日時：2009/02/17 18:38