title image


Smiley Geht auch über FileSystemObject
Das ist vielleicht die modernere Methode:





Dim pfad

Set fs = CreateObject("Scripting.FileSystemObject")

pfad = "I:\wuppertal\uebergreifend\statistik\controlling\Logfile_NAS.txt"

If Not fs.FileExists(pfad) Then

Set a = fs.CreateTextFile(pfad, True)

Else

Set a = fs.OpenTextFile(pfad, ForAppending, TristateFalse)



End If



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



a.Close

 Code eingefügt mit Syntaxhighlighter 1.16

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: