attach.bas

来自「《VB6数据库开发指南》所有的例程的源码」· BAS 代码 · 共 17 行

Attribute VB_Name = "basAttach"
Option Explicit

Public Function GetFileName(ByVal strFullPath As String) As String
    Dim I As Integer, strTemp As String
    
    If Len(strFullPath) Then
        For I = Len(strFullPath) To 1 Step -1
            If Mid(strFullPath, I) = "\" Then strTemp = Right(strFullPath, Len(strFullPath) - I)
        Next
        If strTemp = "" Then strTemp = strFullPath
    End If
    
    GetFileName = strTemp
End Function