Difference between Excel 2002 and 2003?

  • Thread starter Thread starter michaellm
  • Start date Start date
M

michaellm

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
 
Back
Top