标题:[求助]急用!
只看楼主
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



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-24993-1-1.html




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

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