• Home
 · 
• Files/File Controls/Input/Output
 · 
• Return file name only. No root path.

Return file name only. No root path.

Return file name only. No root path.

Rate Return file name only. No root path.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

     ' remove the drive and path name
     Dim i As Long, ReadChar As String
     NoRoot = FTPFile
     i = Len(FTPFile)
     Do
          ReadChar = Mid(FTPFile, i, 1)
          Select Case ReadChar
          Case ""
               FTPFile2 = FTPFile
          Case "\", ":"
               FTPFile2 = Mid(FTPFile, i + 1, Len(FTPFile))
               i = 0
          End Select
          i = i - 1
     Loop Until i <= 0
End Function