title image


Smiley Logfile über Zugriff erstellen!
Moin,



ich will ein Logfile über den Zugriff auf eine Arbeitsmappe erstellen!

Auch wenn nichts geändert wurde! Ich habs mal so probiert:



Private Sub Workbook_BeforeClose(Cancel As Boolean)



Set fs = CreateObject("Scripting.FileSystemObject")

Set a = fs.CreateTextFile("I:\wuppertal\uebergreifend\statistik\controlling\Logfile_NAS.txt", True)



a.write ("Die Datei wurde am |" & Now & " |von |" & Application.UserName & " |geöffnet") & Chr(13)



a.Close

End Sub



Aber hierbei wird der alte Eintrag immer wieder überschrieben!

Ausserdem möchte ich, dass ein neuer Eintrag immer in die nächste Zeile geschrieben wird, damit es überschtlich bleibt!



Kann mir jemand helfen?



Danke



tor


------ tor

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: