Difference between Excel 2002 and 2003?
 

Hi all,
I have a function that works well in Excel 2003.
This function is to get file name from a file path
Like: GetFileName("C:\folder1\name1.txt"
it returns: "name1.txt"

Function GetFileName(fullpath As String)
Dim strFInd As String
Do Until Left(strFInd, 1) = "\"
icount = icount + 1
strFInd = Right(fullpath, icount)
If icount = Len(fullpath) Then Exit Do
Loop
GetFileName = Right(strFInd, Len(strFInd) - 1)
End Function

But it does not work in Excel 2002, maybe because it does not support
Left and Right function in Excel 2002?
How to use this function in Excel 2002 then?
Thanks!

michael

Difference between Excel 2002 and 2003?
 

This idea may be easier
Sub filn()
mypath = "c:\yourfolder\yourfilename.xls"
myfilename = Dir(mypath)
MsgBox myfilename
End Sub

Sub FindPath()
Dim MyFile As String
MyFile = ActiveWorkbook.Name
MsgBox MyFile
End Sub

--
Don Guillett
SalesAid Software

wrote in message
oups.com...
Hi all,
I have a function that works well in Excel 2003.
This function is to get file name from a file path
Like: GetFileName("C:\folder1\name1.txt"
it returns: "name1.txt"

Function GetFileName(fullpath As String)
Dim strFInd As String
Do Until Left(strFInd, 1) = "\"
icount = icount + 1
strFInd = Right(fullpath, icount)
If icount = Len(fullpath) Then Exit Do
Loop
GetFileName = Right(strFInd, Len(strFInd) - 1)
End Function

But it does not work in Excel 2002, maybe because it does not support
Left and Right function in Excel 2002?
How to use this function in Excel 2002 then?
Thanks!

michael

Difference between Excel 2002 and 2003?
 

oh my god. It is too much easier!!
Thank you very much Don!

michael

Difference between Excel 2002 and 2003?
 

glad to help

--
Don Guillett
SalesAid Software

wrote in message
ps.com...
oh my god. It is too much easier!!
Thank you very much Don!

michael