function.bas

来自「NOPAD的VB6原碼,寫的還蠻齊全的,請參考」· BAS 代码 · 共 20 行

Function ReturnFileName (F As String) As String

Dim Temp As String
Dim StartPos As Long

StartPos = InStr(F, "\")

If StartPos = 0 Then
    ReturnFileName = F
    Exit Function
End If

F = Right$(F, Len(F) - StartPos)
Temp = ReturnFileName(F)
ReturnFileName = Temp

End Function