dlgselectfileinfo.bas

一个简单的数据库程

Attribute VB_Name = "ModDlgSelectFileInfo"
Option Explicit

Type DlgFileInfo
    iCount As Long
    sPath As String
    sFile() As String
End Type

Public Function GetDlgSelectFileInfo(strFilename As String) As DlgFileInfo
    
 
    Dim sPath, tmpStr As String
    Dim sFile() As String
    Dim iCount As Integer
    Dim I As Integer
    
    On Error GoTo ErrHandle
    
    sPath = CurDir()
    tmpStr = Right$(strFilename, Len(strFilename) - Len(sPath))
    If Left$(tmpStr, 1) = Chr$(0) Then
           For I = 1 To Len(tmpStr)
            If Mid$(tmpStr, I, 1) = Chr$(0) Then
                iCount = iCount + 1
                ReDim Preserve sFile(iCount)
            Else
                sFile(iCount) = sFile(iCount) & Mid$(tmpStr, I, 1)
            End If
        Next I
    Else
         iCount = 1
        ReDim Preserve sFile(iCount)
        If Left$(tmpStr, 1) = "\" Then tmpStr = Right$(tmpStr, Len(tmpStr) - 1)
        sFile(iCount) = tmpStr
    End If
    
    GetDlgSelectFileInfo.iCount = iCount
    ReDim GetDlgSelectFileInfo.sFile(iCount)
    
    If Right$(sPath, 1) <> "\" Then sPath = sPath & "\"
    GetDlgSelectFileInfo.sPath = sPath
    
    For I = 1 To iCount
        GetDlgSelectFileInfo.sFile(I) = sFile(I)
    Next I
    
    Exit Function

ErrHandle:
    MsgBox "函数执行错误！", vbOKOnly + vbCritical, "自定义函数错误"

End Function