Logging things..

  • Thread starter Thread starter Foss
  • Start date Start date
F

Foss

Mornin' all!

I'm using something like this to log progress and errors
etc to a text file:

LogFile = CleanFolderPath("MY FOLDER PATH HERE") & MyDoc
& " Run Log.txt"
Open LogFile For Output As #1
Print #1, "Report page " & MyRepName & " saved to " &
MySaveLocation

etc etc.

There is the potential for two files to be open at once,
how can I use the first available number instead of the #1?

Cheers,
Foss
 
FreeFile is what retrieves the number you're after:

Sub test()
intFreeFile1 As Integer, intFreeFile2 As Integer

LogFile = CleanFolderPath("MY FOLDER PATH HERE") & MyDoc & " Run
Log.txt"
intFreeFile1 = FreeFile
Open LogFile For Output As #intFreeFile1
intFreeFile2 = FreeFile
Open LogFile2 For Output As #intFreeFile2
Print #intFreeFile1, "Report page " & MyRepName & " saved to " &
MySaveLocation
Print #intFreeFile2, "Something else"
End Sub

I assume here that you're closing the file afterward.
In this example it would be:
Close #intFreeFile2
Close #intFreeFile1
 
Thanks very much! That's just what I'm after!

After a few problems earlier on, I'm now closing my files!!

Cheers,
Foss
 
Back
Top