社区
VB基础类
帖子详情
请教大虾!!请问怎么才可以将一个目录的全部文件一起放到LIST中!
etou
2003-11-11 12:26:47
请教各位大虾,怎么样通过commondialog的多重选,将选中的多个文件(或是一个目录中的所有文件)一起放到list中,(注:只能是一个文件占一个列表行)
...全文
52
1
打赏
收藏
请教大虾!!请问怎么才可以将一个目录的全部文件一起放到LIST中!
请教各位大虾,怎么样通过commondialog的多重选,将选中的多个文件(或是一个目录中的所有文件)一起放到list中,(注:只能是一个文件占一个列表行)
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用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
asp.net知识库
[ASP.NET 2.0]PageParser.GetCompiledPageInstance
中
存在
一个
Bug 如何在DotNet 2的登录组件
中
检索用户的锁定状态及解锁? ASP.NET 2.0, 想说爱你不容易 SqlDataSource WEB控件:当DeleteCommandType= 遭遇 ASP.NET ...
系统:Shell和GDI Thread和杂项等
T请各位高手指教,在c 语言
中
,用程序怎样判断要操作的是
一个
目录
还是
一个
文件
?在c语言
中
要调用api函数时许包含什么头
文件
?具体要用到什么函数请多多帮忙!!谢谢!!APathIsDirectory#include Q用程序怎么打印...
C# For Unity系列之入门篇
你想当“李逍遥”式的“大侠”吗? 这里无需计算机基础,无需编程经验,你也不必是计算机专业的在校大学生....只要爱好游戏,怀揣梦想! 有一定自主学习能力,跟着刘老师从“编程小白”修炼为游戏研发“
大虾
”吧!!!学习好Unity,其先决条件是一定要有稳固、扎实的编程基础!课程 《C# For Unity系列之入门篇》配套学习资料链接:http://pan.baidu.com/s/1gflxreN 密码:sou5;刘老师讲Unity学员群(2) 497429806一、热更新系列(技术含量:
中
高级):A:《lua热更新技术
中
级篇》https://edu.csdn.net/course/detail/27087B:《热更新框架设计之Xlua基础视频课程》https://edu.csdn.net/course/detail/27110C:《热更新框架设计之热更流程与热补丁技术》https://edu.csdn.net/course/detail/27118D:《热更新框架设计之客户端热更框架(上)》https://edu.csdn.net/course/detail/27132E:《热更新框架设计之客户端热更框架(
中
)》https://edu.csdn.net/course/detail/27135F:《热更新框架设计之客户端热更框架(下)》https://edu.csdn.net/course/detail/27136二:框架设计系列(技术含量:
中
级): A:《游戏UI界面框架设计系列视频课程》https://edu.csdn.net/course/detail/27142B:《Unity客户端框架设计PureMVC篇视频课程(上)》https://edu.csdn.net/course/detail/27172C:《Unity客户端框架设计PureMVC篇视频课程(下)》https://edu.csdn.net/course/detail/27173D:《AssetBundle框架设计_框架篇视频课程》https://edu.csdn.net/course/detail/27169三、Unity脚本从入门到精通(技术含量:初级)A:《C# For Unity系列之入门篇》https://edu.csdn.net/course/detail/4560B:《C# For Unity系列之基础篇》https://edu.csdn.net/course/detail/4595C: 《C# For Unity系列之
中
级篇》https://edu.csdn.net/course/detail/24422D:《C# For Unity系列之进阶篇》https://edu.csdn.net/course/detail/24465四、虚拟现实(VR)与增强现实(AR):(技术含量:初级)A:《虚拟现实之汽车仿真模拟系统 》https://edu.csdn.net/course/detail/26618五、Unity基础课程系列(技术含量:初级) A:《台球游戏与FlappyBirds—Unity快速入门系列视频课程(第1部)》 https://edu.csdn.net/course/detail/24643B:《太空射击与移动端发布技术-Unity快速入门系列视频课程(第2部)》https://edu.csdn.net/course/detail/24645 C:《Unity ECS(二) 小试牛刀》https://edu.csdn.net/course/detail/27096六、Unity ARPG课程(技术含量:初
中
级):A:《MMOARPG地下守护神_单机版实战视频课程(上部)》https://edu.csdn.net/course/detail/24965B:《MMOARPG地下守护神_单机版实战视频课程(
中
部)》https://edu.csdn.net/course/detail/24968C:《MMOARPG地下守护神_单机版实战视频课程(下部)》https://edu.csdn.net/course/detail/24979
防火墙透明模式
在此表示衷心的感谢 刚刚在摸索
中
配置了一次PIX525防火墙为透明模式。特贴出来和大家分享!为了让和我一样菜的弟兄们能看懂.请各位
大虾
不要嘲笑啊!~ 如何连接电脑我就不多说了 网上到处都是。但好像要注意一点,先...
我在CSDN参与的3000个帖子
今日偶然翻到,感慨万千 1:申述:版主,是否扣了我的专家分? 2:100分急求,随机输出十个小写字母,但是,要求这十个字母不相同 3:求Sn=a+aa+aaa+…+aaa…a(n个a)之值 4:数组题 望高手帮忙! 5:呵呵,来推荐...
VB基础类
7,771
社区成员
197,589
社区内容
发帖
与我相关
我的任务
VB基础类
VB 基础类
复制链接
扫一扫
分享
社区描述
VB 基础类
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章