请教大虾!!请问怎么才可以将一个目录的全部文件一起放到LIST中!

etou 2003-11-11 12:26:47
请教各位大虾,怎么样通过commondialog的多重选,将选中的多个文件(或是一个目录中的所有文件)一起放到list中,(注:只能是一个文件占一个列表行)
...全文
36 1 打赏 收藏 转发到动态 举报
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
xiaobird1 2003-11-11
  • 打赏
  • 举报
回复
Private Sub Command1_Click()

Dim I As Integer

Dim Y As Integer

Dim Z As Integer



'存储文件名的数组

Dim FileNames$()

List1.Clear

CommonDialog1.FileName = ""

CommonDialog1.Filter = "All Files|*.*"



CommonDialog1.Flags = cdlOFNExplorer + cdlOFNAllowMultiselect

CommonDialog1.Action = 1

CommonDialog1.FileName = CommonDialog1.FileName & Chr(32)

Z = 1

I = InStr(CommonDialog1.FileName, Chr(0))

If I > 0 Then

Do While I > 0

'InStr函数,返回 Variant (Long),指定一字符串在另一字符串中最先出现的位置。

'语法 InStr(起点位置, string1, string2)

I = InStr(Z + 1, CommonDialog1.FileName, Chr(0))

If I > 0 Then

ReDim Preserve FileNames(Y)

'Mid函数,返回 Variant (String),其中包含字符串中指定数量的字符。

'语法 Mid(string, start[, length])

FileNames(Y) = Mid(CommonDialog1.FileName, Z, I - Z)

Y = Y + 1

Z = I + 1

End If



Loop

ReDim Preserve FileNames(Y)

FileNames(Y) = Mid(CommonDialog1.FileName, Z, Len(CommonDialog1.FileName) - Z)

Y = Y + 1

For I = Y - 1 To 1 Step -1

List1.AddItem FileNames(0) & "\" & FileNames(I)

Next

Else

List1.AddItem CommonDialog1.FileName

End If

End Sub

7,732

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧