ThisWorkbook.FullName - A different approach
 

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

ThisWorkbook.FullName - A different approach
 

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

"Steph" schreef in bericht
...
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

ThisWorkbook.FullName - A different approach
 

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

--

HTH

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


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