Abfrage Textdatei geöffnet
01.03.2006 14:54:17
Tobias
Ich habe folgendes Problem:
Beim Porgrammstart möchte ich abfragen ob eine Textdatei bereits schon geöffnet wurde (also von VBA aus) wie ist dies möglich?
Ich hatte gedacht es würde damit gehen, wenn ich die Datei in einem Unterprogramm öffne und dann wieder schließe. wenn ein Fehler auftritt dann ist sie schon geöffnet. Funktioniert aber leider nicht. Wer kann mir helfen?
Hier mal der Code von meinem versuch:
Public
Sub Kontrolle_Datei_geöffnet(Datei As String, Wert As Integer)
If Datei = "" Then
Wert = 2
Else
On Error GoTo ErrorHandler
Open Datei For Random Access Read Lock Read Write As 1
Close 1
Wert = 0
End If
Exit Sub
ErrorHandler:
If Err = 70 Then Wert = 1
End Sub
Gruß
Tobias