投稿日	： 2005/12/01(Thu) 00:04
投稿者	： 花ちゃん
Ｅメール	：
ＵＲＬ	：
タイトル	： Re: ネットワークドライブの生死判定

> 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

★ - ネットワークドライブの生死判定 - ナゾー 11/30-23:12No.5138
• Re: ネットワークドライブの生死判定 - 花ちゃん 12/01-00:04 No.5140
  • Re^2: ネットワークドライブの生死判定 - ナゾー 12/01-12:45 No.5149
    • Re^3: ネットワークドライブの生死判定 - 花ちゃん 12/01-13:04 No.5151
• Re: ネットワークドライブの生死判定 - いな 12/01-02:53 No.5144
  • Re^2: ネットワークドライブの生死判定 - ナゾー 12/01-12:45 No.5150