1

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

こちらのスクリプトをユーザーフォーラムで発見したのですが、

こちらのスクリプトは、共有フォルダからの検索は可能でしょうか・・・

スクリプトに関して無知なので教えていただけると助かります。

この質問は解決済みのためクローズされています。
新しいコメントを投稿

回答とコメントは、会員登録(無料)で閲覧できるようになります。
会員登録(無料)する