| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 391 人关注过本帖
标题:[求助]急用!
只看楼主 加入收藏
kamiao
Rank: 1
等 级:新手上路
帖 子:27
专家分:0
注 册:2005-7-27
收藏
 问题点数:0 回复次数:0 
[求助]急用!
下面的代码是让comdialog打开的对话框中实现多选,并找到路径。我想把所有选中的文件
名字及路径都放到一个listbox框中,用这样修改代码?请大侠帮忙。谢谢







Dim repName As String
    Dim SelectFile() As String
    Dim i As Integer
    '选择导入的文件(可多选)
    ComDialog.Flags = cdlOFNAllowMultiselect + cdlOFNExplorer
    ComDialog.FileName = ""
    ComDialog.ShowOpen
    repName = ComDialog.FileName
    If repName = "" Then Exit Sub
    '将选择的文件用数组表示
    SelectFile = Split(repName, Chr(0))
    If UBound(SelectFile) = 0 Then
        ReDim SelectFile(1)
        SelectFile(1) = ComDialog.FileTitle
        SelectFile(0) = Left(repName, Len(repName) - Len(SelectFile(1)) - 1)
    End If
 
' SelectFile(0)中存放的是选择的路径
' SelectFile(1),...中存放的是选择的的文件名
我的意思实际就是把comdialog打开的对话框中选中的多项记录的路径及文件名显示到listbox中,有那位大侠帮忙实现,我很急,谢谢了 
2005-08-12 15:57
快速回复:[求助]急用!
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.032941 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved