Changing the Path In a Usage Log
 

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

Changing the Path In a Usage Log
 

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.

-----Original Message-----
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
.

Changing the Path In a Usage Log
 

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.

-----Original Message-----
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
.

Changing the Path In a Usage Log
 

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.

-----Original Message-----
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
.

Changing the Path In a Usage Log
 

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.

-----Original Message-----
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
.

Changing the Path In a Usage Log
 

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.

-----Original Message-----
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
.

Changing the Path In a Usage Log
 

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.

-----Original Message-----
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
.

Changing the Path In a Usage Log
 

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.

-----Original Message-----
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
.

Changing the Path In a Usage Log
 

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.

-----Original Message-----
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
.

Changing the Path In a Usage Log
 

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.

-----Original Message-----
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
.

Changing the Path In a Usage Log
 

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.

-----Original Message-----
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
.

Changing the Path In a Usage Log
 

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 wrote:

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

--

Dave Peterson

Changing the Path In a Usage Log
 

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





wrote in message ...
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.

-----Original Message-----
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
.