Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Datei geöffnet?
Autor: falkex
Datum: 20.07.02 01:47
Versuche mal folgenden Code: Sub Prüfung Dim iOpen As Integer Dim sFile As String sFile = Datenpfad & "Pers.xls" If sFile = "" Then Exit Sub anfang: iOpen = TestOpen(sFile) Select Case iOpen Case 0 'Datei ist nicht geöffnet Case 1 'Datei ist bereits geöffnet" Case 2 End select End Sub Die folgende Funktion muss du deinem Modul hinzufügen Private Function TestOpen(sPath As String) As Integer If Dir(sPath) = "" Then TestOpen = 2 Else On Error GoTo ERRORHANDLER Open sPath For Random Access Read Lock Read Write As #1 Close #1 End If ERRORHANDLER: If Err = 70 Then TestOpen = 1 End Function

Datei geöffnet?	50	Braindead	17.06.02 08:23
Re: Datei geöffnet?	179	Dieter	17.06.02 08:58
Re: Datei geöffnet?	26	falkex	20.07.02 01:47

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen