お世話になります。

複数パソコン（max4台）の共有フォルダにあるテキストファイルから、デ
ータを収集する処理をしたいのですが、電源OFF等によりそのパソコンが
見つからない場合の制御に悩んでます。

on error区で宣言しており、Dir(\\コンピュータ名\共有名)で存在確認
としてますが、電源OFF時はDir関数の場所でエラー52で終了してしまいま
す。

どのようにすればエラートラップが掛けれるものなのでしょうか？

vb6です。お助けください。

> on error区で宣言しており、Dir(\\コンピュータ名\共有名)で存在確認
> としてますが、電源OFF時はDir関数の場所でエラー52で終了してしまいま
> す。
>
> どのようにすればエラートラップが掛けれるものなのでしょうか？


Private Sub Command1_Click()
    On Error Resume Next
    Dim myPath As String
    myPath = Dir("\\コンピュータ名\共有名\")
    If Err.Number = 52 Then
        MsgBox "パスが見つかりません"
        Err.Clear
    End If
End Sub

or

Private Sub Command1_Click()
    Dim Fso As New FileSystemObject
    If Fso.FolderExists("\\コンピュータ名\共有名\") = False Then
        MsgBox "パスが見つかりません"
    End If
    Set Fso = Nothing
End Sub

早速試してみたところ解決しました！
Newってのが良く分からなかったので、

CreateObject("Scripting.FileSystemObject")

で実施しました。

大変参考になりました。ありがとうございました。

これからもよろしくお願いします。

> Newってのが良く分からなかったので、
> CreateObject("Scripting.FileSystemObject")
> で実施しました。

解らなければヘルプで調べるようにしましょう

Dim Fso As New FileSystemObject の New のところにカーソルを置いて F1 キーを
押せば済むのですから。下記に一部抜粋

このキーワードを指定すると、オブジェクトを暗黙的に作成できます。オブジェクト変数を
宣言するときにキーワード New を指定した場合は、オブジェクトを最初に参照したときに
オブジェクトの新しいインスタンスが作成されるので、Set ステートメントを使って
オブジェクトへの参照を代入する必要はありません

詳しくはヘルプで確認して下さい。

hhttp://www.mirai.ne.jp/~takeshis/sites/api/network.htm

に

>【共有資源】
>ネットワーク資源接続・資源切断ダイアログの表示 Visual Basic Station
>共有資源接続状況列挙 Visual Basic Station
>共有資源追加・削除 Visual Basic Station
>共有資源削除列挙 Visual Basic Station
>共有資源情報列挙 Visual Basic Station
>共有資源情報取得・設定 Visual Basic Station

な情報があるらしいんですが、参考になりそうなものが見つかるかも
グーグルの検索キーワードは、「ネットワークドライブ　VB API」でした。

ありがとうございました。

頂いた情報は大事にしておきます。