dlgselectfileinfo.bas

来自「一个用vb和usb通信的一个实例,大家可以下载看看!」· BAS 代码 · 共 56 行

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