ネットワークフォルダの確認時間を短縮したい。

Question

現在、下記コードにてネットワークサーバーにあるフォルダの存在確認をしています。存在しないサーバー又はフォルダを指定した時に、エラー返却時間が30秒～1分程掛かっています。この時間を数秒へ短縮したいのですが、何か良い方法有りますでしょうか。

    Dim TargetFolderString
    TargetFolderString = "\192.168.1.1\存在しないFolder"

    Dim fs As Object
    Set fs = CreateObject("Scripting.FileSystemObject")
    If fs.FolderExists(TargetFolderString) = False Then
        Set fs = Nothing: MsgBox "Error"
    End If
    Set fs = Nothing

    '又は

    Dim ws As Object
    Set ws = CreateObject("WScript.Shell")
    On Error Resume Next
    ws.CurrentDirectory = TargetFolderString
    If Err.Number <> 0 Then
        Set ws = Nothing: MsgBox "Error"
    End If
    Set ws = Nothing

Answer 1

https://stackoverflow.com/questions/46699692/set-timeout-for-networkobject-mapnetworkdrive
使用している関数はちがうけど、ここではpingを先に発行して
そのサーバーが生きているかをチェックしてから処理するようにしてますね
4秒くらいでチェックできるらしい
参考にしてみて

Comments

[ad.sys.soleil]

有難う御座います。
試したところ数秒で戻って来ました。取り合えず、チェック部分へ追加します。
フォルダまで確認できる方法ありましたら、宜しくお願い致します。

[退会済みユーザー]

サーバーが生きていればフォルダのチェックはすぐだろうから問題ないのでは？

[ad.sys.soleil]

今、試したところおっしゃる通り、その後のフォルダなしは直ぐ戻って来ました。
ただ、戻り値が有り無し0で判別できないですね。