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

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

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

michael

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