※上記の広告は60日以上更新のないWIKIに表示されています。更新することで広告が下部へ移動します。

   Private Function FilePassExtChk(ByVal strPass As String) As String

       Dim fs As New Scripting.FileSystemObject
       Dim strResult As String = String.Empty
       Try
           If False = fs.FileExists(strPass) Then
               strResult = "ファイルが見つかりませんでした"
           End If

           If Not IsNothing(fs) Then
               fs = Nothing
           End If
       Catch ex As Exception
           pvLogging.WriteLog(ex.Message, enumログタイプ.TYPE_ERROR)
       End Try

       Return strResult

   End Function

※FileSystemObjectを使用する際にはscrrun.dllの参照設定を行う必要有。
ネットワークパス指定も正常であることを確認済み(2009/04/03)
VB2008で動作確認済み。