[VBNET] File 사용 가능 여부 체크

* VBNET 파일 사용 가능 여부 체크 예제...

 

메인 화면

 

전체 소스 코드

Form1.vb

 

Public Class Form1

    Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click
        '파일 열기...
        Dim ofd As OpenFileDialog = New OpenFileDialog()

        If (ofd.ShowDialog() = Windows.Forms.DialogResult.OK) Then
            '선택된 파일 표시...
            label1.Text = ofd.FileName
        End If

    End Sub

    Private Sub button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button2.Click
        '파일 사용 유무 체크...
        Dim strErr As String = ""

        If (FileIsUse(label1.Text, strErr)) Then

            label2.Text = "사용 가능한 파일 입니다."

        Else

            label2.Text = "파일 사용중.., " + strErr

        End If


    End Sub


    Private Function FileIsUse(ByVal strFilePath As String, ByRef strErr As String) As Boolean

        Try
            Using fs As System.IO.FileStream = New System.IO.FileStream(strFilePath, _
                                                            System.IO.FileMode.Open, _
                                                            System.IO.FileAccess.Read, _
                                                            System.IO.FileShare.Read)
                '정상적으로 오픈된 파일 다시 닫기...
                fs.Close()

            End Using


        Catch ex As Exception
            strErr = ex.Message.ToString()
            Return False
        End Try

        Return True
    End Function

End Class

 

* 예제 결과

 

파일이 정상적으로 사용 가능 할 때

 

해당 파일을 다른 프로그램에서 사용 중일때

 

 

 

https://kdsoft-zeros.tistory.com/66

[C#] File 사용 가능 여부 체크