General expression for exact filename/path (solved)

[WayneTN]

I am using the following code :->

Dim Fso, F
Set Fso = CreateObject("Scripting.FileSystemObject")
Set F = Fso.GetFile("C:\filename.xls")
LastMod = F.DateLastModified

...to determine when the "C:filename.xls" program file was last modified. For the "GetFile" parameter, is there any way to use a general expression so that I don't have to list the full, exact file path?

I am using a diskette to move this program to multiple computers so I can continue to develop it and the exact file path varies from computer to computer. In order for the macro to operate properly, I am having to edit this line of code every time I use a different computer. Thanks in advance.

[ This Message was edited by: WayneTN on 2002-05-14 10:05 ]

[ This Message was edited by: WayneTN on 2002-05-18 18:11 ]

[Jay Petrulis]

Hi,

Try the following and see which one works for you.

ThisWorkbook.FullName
ThisWorkbook.Path

The .FullName includes the file name, while the .Path option excludes it.

Bye,
Jay

[WayneTN]

On 2002-05-14 10:16, Jay Petrulis wrote:
Hi,

Try the following and see which one works for you.

ThisWorkbook.FullName
ThisWorkbook.Path

The .FullName includes the file name, while the .Path option excludes it.

Bye,
Jay

Thanks, Jay! I ended up using "ThisWorkbook.FullName" since my filename stays the same but the path changes between the computers that I am using. Now I can work on my program on any of the computers, run the macros without errors, save the file to the diskette, and work on it some more at any other computer. (As you may have guessed, this is a "spare time" effort.)

Thanks again for the help. This is a great forum!