Vbscript 文件夹列表上的vbs错误捕获

我正在制作一个脚本来列出文件夹中的所有文件。
目的是列出我们拥有的每台服务器上特定文件夹中的所有文件。
所以我有一个excel文件，每个服务器名的第一行都是

当然，我没有对每台服务器的权限，或者没有脚本文件夹；因此，有时会出现“未找到路径”错误。
即使我在错误恢复下一步时使用了

，它仍然会抛出错误

我需要像try-catch这样的东西，但在vbs中不存在。
当出现错误时，如何尝试连接到文件夹并忽略

有问题的行是
Set文件夹=…

Do While objSheet.Cells(1, intCol).Value <> ""
  intRow = 2
  sFolder ="\\" & objSheet.Cells(1, intCol).Value & "\C$\Scripts"
  'msgbox sFolder

  Set folder = fso.GetFolder(sFolder)
  Set files = folder.Files
...

Do While objSheet.Cells（1，intCol）.Value“”
intRow=2
sFolder=“\\”&objSheet.Cells（1，intCol）.Value&“\C$\Scripts”
'msgbox sFolder
Set folder=fso.GetFolder（sFolder）
Set files=folder.files
...

完整代码：
您可以检查是否存在带有fso的文件夹。FolderExists（sFolder）：

我自己也能想象得到非常感谢。
If fso.FolderExists(sFolder) then
    Set folder = fso.GetFolder(sFolder) 
    Set files = folder.Files    

    For each file In files  
        'msgbox file.name
        objSheet.Cells(intRow, intCol).Value = file.Name
        introw = introw + 1 
    Next    
    objExcel.ActiveWorkbook.Save
    intCol = intcol+1
End if