Changing the Path In a Usage Log

[Red]

The below is a macro I copied from one of the postings. The macro
works great, however the file "usage.log" saves in the same directory
as the workbook.
Can anyone tell me how I can save the "usage.log" to another directoy?


Private Sub Workbook_Open()
Open ThisWorkbook.Path & "\usage.log" For Append As #1
Print #1, Environ$("userName"), Now
Close #1
End Sub

 

[Guest]

move the usage.log to a directory you want. then change
the code to the path to the new path.
this code is not saving as we understand saving. it is
opening a file and printing/appending to it then closing
the file. same thing as a save in a way but different.

 

[Guest]

move the usage.log to a directory you want. then change
the code to the path to the new path.
this code is not saving as we understand saving. it is
opening a file and printing/appending to it then closing
the file. same thing as a save in a way but different.

 

[Guest]

move the usage.log to a directory you want. then change
the code to the path to the new path.
this code is not saving as we understand saving. it is
opening a file and printing/appending to it then closing
the file. same thing as a save in a way but different.

 

[Guest]

move the usage.log to a directory you want. then change
the code to the path to the new path.
this code is not saving as we understand saving. it is
opening a file and printing/appending to it then closing
the file. same thing as a save in a way but different.

 

[Guest]

move the usage.log to a directory you want. then change
the code to the path to the new path.
this code is not saving as we understand saving. it is
opening a file and printing/appending to it then closing
the file. same thing as a save in a way but different.

 

[Guest]

move the usage.log to a directory you want. then change
the code to the path to the new path.
this code is not saving as we understand saving. it is
opening a file and printing/appending to it then closing
the file. same thing as a save in a way but different.

 

[Guest]

move the usage.log to a directory you want. then change
the code to the path to the new path.
this code is not saving as we understand saving. it is
opening a file and printing/appending to it then closing
the file. same thing as a save in a way but different.

 

[Guest]

move the usage.log to a directory you want. then change
the code to the path to the new path.
this code is not saving as we understand saving. it is
opening a file and printing/appending to it then closing
the file. same thing as a save in a way but different.

 

[Guest]

move the usage.log to a directory you want. then change
the code to the path to the new path.
this code is not saving as we understand saving. it is
opening a file and printing/appending to it then closing
the file. same thing as a save in a way but different.

 

[Guest]

move the usage.log to a directory you want. then change
the code to the path to the new path.
this code is not saving as we understand saving. it is
opening a file and printing/appending to it then closing
the file. same thing as a save in a way but different.

 

[Dave Peterson]

Private Sub Workbook_Open()
Open "C:\mylogfolder\usage.log" For Append As #1
Print #1, Environ$("userName"), Now
Close #1
End Sub
or
Private Sub Workbook_Open()
Open "\\server\sharename\foldername\usage.log" For Append As #1
Print #1, Environ$("userName"), Now
Close #1
End Sub

 

[Red]

Thanks but I was fortunate to find this solution that works for me

Private Sub Workbook_Open()

Const Log As String = "\\Shared\Main_Public\File Name\ Open.LOG"

On Error Resume Next

Open Log For Append As #1

Print #1, Environ$("userName"), Now

Close #1