共有フォルダの配下全てから検索
rootfolder = !対象のフォルダ!
strFilter = !サブフォルダ名フィルタ!
strFilter = Replace(strFilter, "\", "\\")
strFilter = Replace(strFilter, "+", "\+")
strFilter = Replace(strFilter, ".", "\.")
strFilter = Replace(strFilter, "|", "\|")
strFilter = Replace(strFilter, "{", "\{")
strFilter = Replace(strFilter, "}", "\}")
strFilter = Replace(strFilter, "[", "\[")
strFilter = Replace(strFilter, "]", "\]")
strFilter = Replace(strFilter, "(", "\(")
strFilter = Replace(strFilter, ")", "\)")
strFilter = Replace(strFilter, "$", "\$")
strFilter = Replace(strFilter, "^", "\^")
strFilter = Replace(strFilter, "?", ".")
strFilter = Replace(strFilter, "*", ".*")
SetUMSVariable $サブフォルダパス格納先$, ""
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objRE = CreateObject("VBScript.RegExp")
objRE.pattern = "^" & strFilter & "$"
objRE.ignoreCase = True
FindSubfolders objFSO.GetFolder(rootfolder)
Set objRE = Nothing
Set objFSO = Nothing
Sub FindSubFolders(Folder)
For Each Subfolder in Folder.SubFolders
If objRE.Test(Subfolder.Name) Then
SetUMSVariable $サブフォルダパス格納先$, Subfolder.Path
WScript.Quit
End If
FindSubFolders Subfolder '再帰呼び出し
Next
End Sub
こちらのスクリプトをユーザーフォーラムで発見したのですが、
こちらのスクリプトは、共有フォルダからの検索は可能でしょうか・・・
スクリプトに関して無知なので教えていただけると助かります。