File Path VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. File Path
  4. Handling Files with Low-Level File Handling
Sub LogErrorText()
    Dim intFile As Integer
    intFile = FreeFile
    Open CurDir & "\ErrorLog.Txt" For Append Shared As intFile
    Write #intFile, "LogErrorDemo", Now, Err, Error, CurrentUser()
    Close intFile
End Sub