Here is a simple way to extract file names from file specifications:
Function FName (filespec As String) As String Dim i As Integer Dim size As Integer size = Len(filespec) For i = size To 1 Step -1 If Mid$(filespec, i, 1) Like "[:]" Then FName = Right(filespec, size - i) Exit Function End IfNext iEnd Function
For example:
File_name = FName("A: est.dat")File_name = FName("A:test.dat")File_name = FName("A: est est.dat")