ThisWorkbook.FullName - A different approach

[Steph]

Maybe I can do something a little different -

LCase(ThisWorkbook.FullName) returns a full path. I can change the Fullname
to simply Name.
But then LCase(file) still returns a full path. How can I change
LCase(file) to return the file name only without the path?

Dim i As Long
Dim file As Object
Dim Files As Object

FileCountOK = True
Set Files = pzFolder.Files
For Each file In Files
If LCase(file) <> LCase(ThisWorkbook.FullName) Then

 

[Jos Vens]

Hi Steph,

try to use the dir command and you get only the filename. Then, compare
those results!

if ( dir (file) <> dir (thisworkbook.fullname)) then
....
end if

Jos

 

[Bob Phillips]

If LCase(file.Name) <> LCase(ThisWorkbook.Name) Then

--

HTH

RP
(remove nothere from the email address if mailing direct)