• Home
 · 
• Files/File Controls/Input/Output
 · 
• An function to extract a filename from an path & filename

An function to extract a filename from an path & filename

An function to extract a filename from an path & filename

API Declarations


Similar to VB6 reverse function.



Rate An function to extract a filename from an path & filename

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

DefInt A-Z
Function Backwards$(Inline As String)
Rem
Rem  -------------------------------------------------------
Rem  Purpose: Extract a filename from a full path & filename
Rem  -------------------------------------------------------
Rem 2000-06-09
Rem [email protected]
Rem

Dim D As String
Dim I As Integer
If Inline = "" Then Exit Function
GoSub Reverse
GoSub Reverse
Backwards$ = Inline
Exit Function
Reverse:
D = ""
For I = Len(Inline) To 1 Step -1
If Mid$(Inline, I, 1) = "\" Then Exit For
D = D + Mid$(Inline, I, 1)
Next I
Inline = D
Return

 
End Function