当前位置: 网学 > 编程文档 > VB > 正文

“打开”对话框同时选择多个文件

来源:Http://myeducs.cn 联系QQ:点击这里给我发消息 作者: 用户投稿 来源: 网络 发布时间: 12/10/17
下载{$ArticleTitle}原创论文样式

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

  • 上一篇资讯: 关闭另一个程序
  • 下一篇资讯: Modem通讯意外处理
  • 网学推荐

    免费论文

    原创论文

    浏览:
    设为首页 | 加入收藏 | 论文首页 | 论文专题 | 设计下载 | 网学软件 | 论文模板 | 论文资源 | 程序设计 | 关于网学 | 站内搜索 | 网学留言 | 友情链接 | 资料中心
    版权所有 QQ:3710167 邮箱:3710167@qq.com 网学网 [Myeducs.cn] 您电脑的分辨率是 像素
    Copyright 2008-2015 myeducs.Cn www.myeducs.Cn All Rights Reserved
    湘ICP备09003080号