公開:17.2.24
以下の書き方ではエラーになる。
If Dir("\\sampleserver\test") Then
正しくはFileSystemObjectを使用する。
FileSystemObject
Dim fso As Object Set fso = CreateObject("Scripting.FileSystemObject") If fso.FolderExists("\\sampleserver\test") = True Then