title image


Smiley Re: Zugriffsprüfung auf eine Datei im Dateisystem
Danke für den Hinweis.



Ich habe jetzt in die Funktion folgendes Statement reingeschrieben:



Open FileName For Append Access Write Lock Read As nr%



Die Funktion generiert einen Fehler, wenn die Option "Lock Read" nicht ausgeführt werden kann. Und das ist der Fall, wenn ein anderes Programm irgendwie lesend darauf zugreift.



Meine Funktion sieht dann so aus:



Function FileAccess(FileName As String) As Variant

On Error Goto fehler

FileAccess=True

nr%=Freefile

Open FileName For Append Access Write Lock Read As nr%

Close nr%

Exit Function

fehler:

FileAccess=False

Close nr%

Sleep (60)

Print "##### Script wartet 1 Min. auf exclusiven Zugriff#####"

Exit Function

End Function



Im Sub Initialize sieht es dann so aus:



If FileExists(strDB)=True Then

zugriffsprüfung=0

warten:

zugriffsprüfung=zugriffsprüfung+1

If zugriffsprüfung>3 Then

Print "### Scriptausführung abgebrochen -> Kein exclusiver Zugriff nach 3 Min.###"

Exit Sub

End If

If FileAccess(strDB)=False Then Goto warten



Kill strDB

End If


Umgebung

Domino Server: 7.0.1 und auf Win2003 Server
Notes Client: 7.0.1 auf WinXP SP2


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: