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 · ベストアンサー

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
といった具合の関数を使ってはいかがでしょう

お礼

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

回答No.1

himajin100000

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

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

お礼

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