Script halts at "System Volume Information" folder

[mirty12]

I have a script that is mostly working to enumerate and list (in a text file) all the subfolders on a drive. PROBLEM -- it halts when it gets to the "System Volume Information" folder. "Permission Denied" is the error. I've tried to write the script so that it will skip this folder, but it still stops there every time.

Here is the script. Any idea how to fix this problem? Thanks!
***************************************************
Set oShell = WScript.CreateObject ("WSCript.shell&quot

Const ForAppending = 2

Set objFSO = CreateObject("Scripting.FileSystemObject&quot

Set objTextFile = objFSO.OpenTextFile _
("c:\Windowsscripts\Folderlist.txt", ForAppending, True)

Set FSO = CreateObject("Scripting.FileSystemObject&quot
sDIR = "\\SERVER\e$"

SET objDIR = GetFolder(sDIR)
GoSubFolders objDIR

Sub GoSubFolders (objDIR)
If objDIR <> &quot;\System Volume Information&quot; Then
for each eFolder in objDIR.Subfolders
objTextFile.WriteLine(efolder.Path)
GoSubFolders eFolder
Next
End If
End Sub

Function GetFolder(sFOLDER)
On Error Resume Next
Set GetFolder = FSO.GetFolder(sFolder)
If Err.Number <> 0 Then
WScript.Echo &quot;Error connecting to folder: &quot; & sFolder &_
VBlf & &quot;[&quot; & Err.Number & &quot;] &quot; & Err.Description
Wscript.Quit Err.Number
End If
End FUnction


objTextFile.Close

oShell.Popup &quot;Process Complete&quot;, 6, strTitle, vbInformation

 

[OhMyGodJanice]

The variable ObjDir contains the full path (including driveletter), so if you change the sub GoSubFolders(objDIR) to the following, everything will work fine...

Sub GoSubFolders (objDIR)
If objDIR <> sDIR & &quot;\System Volume Information&quot; Then
for each eFolder in objDIR.Subfolders
objTextFile.WriteLine(efolder.Path)
GoSubFolders eFolder
Next
End If
End Sub