「FileSystemObjectを利用したファイル存在チェック」の編集履歴（バックアップ）一覧はこちら

「FileSystemObjectを利用したファイル存在チェック」(2009/04/03 (金) 16:53:27) の最新版変更点

追加された行は緑色になります。

削除された行は赤色になります。

    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で動作確認済み。

    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で動作確認済み。