“打开”对话框一起选择多个文件|雨林木风下载站

导读Private Sub Command1_Click() On Error GoTo userCanceled Dim i As Integer With CommonDialog...

Private Sub Command1_Click()
    On Error GoTo userCanceled
    Dim i As Integer
    With CommonDialog1
        .CancelError = True
        .Flags = cdlOFNHideReadOnly Or cdlOFNAllowMultiselect Or cdlOFNExplorer Or cdlOFNNoDereferenceLinks
        .Filter = "所有文件(*.*)|*.*"
        .ShowOpen
        GetFileInfo (.FileName)
    End With
    List1.Clear
    For i = 1 To UBound(FileInfo)
        List1.AddItem FileInfo(i)
    Next
    Label3 = FileInfo(0)
userCanceled:
End Sub
Private Sub GetFileInfo(Source As String)
    Dim t As Integer
    FileInfo = Split(Source, Chr(0))
    If UBound(FileInfo) = 0 Then
        ReDim Preserve FileInfo(1)
        t = InStrRev(FileInfo(0), "\")
        FileInfo(1) = Mid(FileInfo(0), t + 1)
        FileInfo(0) = Left(FileInfo(0), t)
    Else
        If Right(FileInfo(0), 1) <> "\" Then FileInfo(0) = FileInfo(0) & "\"
    End If
End Sub

温馨提示：喜欢本站的话，请收藏一下本站！

当前位置:雨林木风下载站 > 网页设计教程 > 详细页面

“打开”对话框一起选择多个文件

本类教程下载

系统下载排行