全盘搜索文件夹

以下函数是功能:
1.输入需要在本地磁盘中寻找的文件夹名称
2.遍历所有的本地磁盘目录
3.若找到文件夹,则停止遍历,结束程序

NeedFindFolder = inputbox("请输入需要搜索的文件夹")
If Trim(NeedFindFolder) <> "" Then
Else
 ret = SearchAllLocalDisk(NeedFindFolder)
 If Trim(Ret) <> "" Then
  Msgbox Ret
 Else
  Msgbox "搜索完毕,未找到!"
        End If
End If

'遍历所有本地磁盘
Function  SearchAllLocalDisk(NeedFindFolder)
 On Error Resume Next:Err.Clear
 If NeedFindFolder = "" Then
 Else
  Set FSO = CreateObject("Scripting.FileSystemObject")
  Set Disks = OFSO.Drives
  For Each oDisk In oDisks
   If oDisk.DriveType = 2 Then
    oDisk = UCase(oDisk)&"\"
    Ret = SearchFolder(oDisk,NeedFindFolder)
    If Trim(Ret) <> "" Then
     SearchAllLocalDisk = Ret
     Exit for
    Else
    End If
   End If  
  Next
  Set Disks = Nothing
  Set FSO = Nothing  
 End If 
End Function

'遍历所有目录
Function  SearchFolder(oDisk,NeedFindFolder)
 On Error Resume Next : Err.Clear
 Set FSO = CreateObject("Scripting.FileSystemObject")
 Set WshShell=CreateObject("Wscript.Shell")
 Set Folders= FSO.GetFolder(oDisk).SubFolders
 For Each oFolder In oFolders
  oName = Replace(oFolder.Name," ","")
  Res_Compare = InStr(1,LCase(oName),LCase(NeedFindFolder))
  If  Res_Compare <> 0 Then
   Temp = oFolder
   Exit for 
  Else
   Temp = SearchFolder(oFolder,NeedFindFolder)
   If Temp <> "" Then
    Exit For
   End If
  End If
 Next
 SearchFolder = Temp
 Set Folders = Nothing
 Set FSO = Nothing
End Function