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で動作確認済み。
最終更新:2009年04月03日 16:53