vbsフォルダリストのエラートラップ

Question

フォルダ内のすべてのファイルを一覧表示するスクリプトを作成しています。
私たちが所有するすべてのサーバー上の特定のフォルダ内のすべてのファイルを一覧表示することを意図しています。
私はすべてのサーバー名の最初の行としてExcelファイルを持っています。

もちろん、私はすべてのサーバーに権限がありませんし、スクリプトフォルダもありません。時には "パスが見つかりません"というエラーが表示されることがあります。
私はOn Error Resume Nextを使用しましたが、それでもエラーをスローします。

私はtry-catchのようなものが必要ですが、それはvbsに存在しません。 エラーが発生した場合、フォルダに接続して無視する方法を教えてください。フォルダがfso.FolderExists（sFolder）に存在するかどうかをチェックすることができますhttps://gist.github.com/076501c940e8388b5b39

Answer 1

：

問題のラインは完全なコードSet folder = ...

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 
... 

ある

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