Új hozzászólás Aktív témák

• #29339 bsh addikt Belnir #29332

  Új Válasz 2015-11-04 13:49:35 #29339

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  bsh

  addikt

  válasz Belnir #29332 üzenetére

  kód a ThisWorkbook-ba:

  Private Sub Workbook_Open()
  On Error GoTo xit
  Set FSO = CreateObject("Scripting.FileSystemObject")
  Set Logfile = FSO.OpenTextFile("Z:\ez\valami\szerveren\legyen\logfile.log", 8, True)
  Logfile.WriteLine (Format(Now, "YYYY.MM.DD hh:mm:ss") & " - " & Application.UserName)
  Logfile.Close
  Set Logfile = Nothing
  Set FSO = Nothing
  xit:
  End Sub

Új hozzászólás Aktív témák