| Forum: VB.NET |
Thema:
Re: Windows Dienste |
Von:
Thomas Scherner (
15.12.2005 01:26) |
Hallo Maik,
ich kenne sowas nur aus VB. Hab ich aus einem Forum mal bekommen.
' Prüfen, ob Datei in Benutzung
Private Function FileInUse(ByVal sFile As String) As Boolean
Dim F As Integer
On Error Resume Next
' Versuch, Datei EXKLUSIV zu öffnen
F = FreeFile
Open sFile For Binary Lock Read Write As #F
' Bei Fehler 70 ist die Datei in Benutzung
FileInUse = (Err.Number = 70)
Close #F
On Error Goto 0
End Function
Kommt die Fehlermeldung 70 dann ist sie noch in Benutzung.
Kannst ja mit einem Timer abfragen alle Minute oder so. bhzw. mit Try catch.
Thomas
Ich bin ein Newbie . Aber jeder hat mal angefangen. Gruß & Dank Thomas
Antworten
Vorsicht bei der Eingabe: Die Zeichen ' oder -- sind nicht erlaubt!
