Hallo,
wie kann ich feststellen, ob ein TextFile von einer anderen Applikation noch im Zugriff ist, oder ob ich in diesen File schreiben kann.
Danke
Peter
…indem Du eine Sharing Violation bekommst. Das kannst Du mit dem Err-Object abfangen und dann bearbeiten.
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Bitte um kleines Beispiel
Danke für Deine Antwort,
leider kann ich mit Deiner Aussage noch nichts anfangen.
Bitte sende mir eine kleines Beispiel.
Danke
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Weiss nich genau ob ich das verstanden hab was oben drüber steht: Aber versuch es mal so:
Public Function ExclusiveOpen(sFile As String) As Integer
’ Prüft on eine Datei exklusiv zum SChreiben geöffnet werden kann
’ TRUE falls die Datei geöffnet werden kann.
’ Ist kein File vorhanden so wird dieses erzeugt!
Dim f
f = FreeFile
On Error GoTo saLocked
Open sFile For Binary Access Write Lock Read Write As #f
DoEvents
Close #f
ExclusiveOpen = True
Exit Function
saLocked:
ExclusiveOpen = False
Resume saRaus
saRaus:
’ Weitere behandlung
End Function