devxlogo

Extract File Names From File Specification

Extract File Names From File Specification

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")

devx-admin

Share the Post: