Feedback

Prüfen ob Datei gerade benutzt wird

VB - Tim Hartwig Juni 3, 2006
2 Ratings 3/5

Sprache: VB

Mit dieser Funktion kann man z.B. prüfen ob Programm X gerade aktiv ist bzw. benutzt wird
Public Function FileInUse(ByVal sFile As String) As Boolean
    If System.IO.File.Exists(sFile) Then
        Try
            Dim F As Short = FreeFile()
            FileOpen(F, sFile, OpenMode.Binary, OpenAccess.ReadWrite, OpenShare.LockReadWrite)
            FileClose(F)
        Catch
            Return True
        End Try
    End If
End Function
Public Function FileInUse(ByVal sFile As String) As Boolean
    If System.IO.File.Exists(sFile) Then
        Try
            Dim F As Short = FreeFile()
            FileOpen(F, sFile, OpenMode.Binary, OpenAccess.ReadWrite, OpenShare.LockReadWrite)
            FileClose(F)
        Catch
            Return True
        End Try
    End If
End Function
Abgelegt unter aktiv Datei File In Use

Alte URL: /snippet/pruefen-ob-datei-gerade-benutzt-wird/71

1 Kommentar