社区
VB基础类
帖子详情
请教大虾!!请问怎么才可以将一个目录的全部文件一起放到LIST中!
etou
2003-11-11 12:26:47
请教各位大虾,怎么样通过commondialog的多重选,将选中的多个文件(或是一个目录中的所有文件)一起放到list中,(注:只能是一个文件占一个列表行)
...全文
58
1
打赏
收藏
请教大虾!!请问怎么才可以将一个目录的全部文件一起放到LIST中!
请教各位大虾,怎么样通过commondialog的多重选,将选中的多个文件(或是一个目录中的所有文件)一起放到list中,(注:只能是一个文件占一个列表行)
复制链接
扫一扫
分享
转发到动态
举报
AI
作业
写回复
配置赞助广告
用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
系统:Shell和GDI Thread和杂项等
T请各位高手指教,在c 语言
中
,用程序怎样判断要操作的是
一个
目录
还是
一个
文件
?在c语言
中
要调用api函数时许包含什么头
文件
?具体要用到什么函数请多多帮忙!!谢谢!!APathIsDirectory#include Q用程序怎么打印...
防火墙透明模式
在此表示衷心的感谢 刚刚在摸索
中
配置了一次PIX525防火墙为透明模式。特贴出来和大家分享!为了让和我一样菜的弟兄们能看懂.请各位
大虾
不要嘲笑啊!~ 如何连接电脑我就不多说了 网上到处都是。但好像要注意一点,先...
我在CSDN参与的3000个帖子
今日偶然翻到,感慨万千 1:申述:版主,是否扣了我的专家分? 2:100分急求,随机输出十个小写字母,但是,要求这十个字母不相同 3:求Sn=a+aa+aaa+…+aaa…a(n个a)之值 4:数组题 望高手帮忙! 5:呵呵,来推荐...
基础
请问
怎么得到
一个
函数的执行时间,单位毫秒!如何调试asp组件呀。用vc++调试编制的组件怎样画
一个
箭头?高分
请教
如何限制程序运行的方法?求助:通过编程DirectX抓屏------>masterz:再麻烦你一下,谢谢熟悉RichEdit...
MAPGIS二次开发常见问题汇总
我每次响应CGisview::onmousemove和CGisview::onlfbuttondown这些函数时,获取的cpoint是窗口坐标,每当用_AppendLin()_...答:在webgis
中
能够对点线面
文件
进行操作,可以根据用途的不同,可以进行不同的操作。
VB基础类
7,785
社区成员
197,585
社区内容
发帖
与我相关
我的任务
VB基础类
VB 基础类
复制链接
扫一扫
分享
社区描述
VB 基础类
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章