Mega Code Archive

 

Categories / VisualBasic Script / File Path

 

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