get folders

[lazydev]

The line coloured in pink is throwing errors

just help me.


strRoot="D:\Archive"

Set objFSO=CreateObject("Scripting.FileSystemObject")
Set objFolder=objFSO.GetFolder(strRoot)
Set colFolders=objFolder.SubFolders

strFolder = InputBox("Please Enter a FolderName.")

If objFSO.FolderExists(strRoot & strFolder) Then
WScript.Echo "Folder " & strRoot & strFolder &_
" already exists"
Else
colFolders.Add strFolder
End If
Wscript.Echo " " & strRoot & "" 'D:\Archive
Wscript.Echo " " & strFolder & "" 'search
Set objFolder=objFSO.GetFolder(strRoot &strFolder)
Wscript.Echo " " & objFolder & " " 'run time error path not foundSet colFolders=objFolder.SubFolders
arrFolders=Array("Subfolder 1","Subfolder2","Subfolder3")

For Each item In arrFolders
If objFSO.FolderExists(strRoot & strFolder & "\" & item) Then
WScript.Echo "Folder " & strRoot & strFolder &_
"\" & item & " already exists"
Else
colFolders.Add item
End If
Next