社区
VB基础类
帖子详情
请教大虾!!请问怎么才可以将一个目录的全部文件一起放到LIST中!
etou
2003-11-11 12:26:47
请教各位大虾,怎么样通过commondialog的多重选,将选中的多个文件(或是一个目录中的所有文件)一起放到list中,(注:只能是一个文件占一个列表行)
...全文
56
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和杂项等
Q如何判断是
文件
,还是
目录
?急!! T请各位高手指教,在c 语言
中
,用程序怎样判断要操作的是
一个
目录
还是
一个
文件
?在c语言
中
要调用api函数时许包含什么头
文件
?具体要用到什么函数请多多帮忙!!谢谢!!APathIsDirectory#include Q用程序怎么打印
一个
Word或者RTF文档啊? T比如有C:/a.rtf我怎么可以把它送到打印机打出来呢?AShellExecute C:/a.rtf
防火墙透明模式
经常在这里
请教
大家问题,得到了很多帮助. 在此表示衷心的感谢 刚刚在摸索
中
配置了一次PIX525防火墙为透明模式。特贴出来和大家分享!为了让和我一样菜的弟兄们能看懂.请各位
大虾
不要嘲笑啊!~ 如何连接电脑我就不多说了 网上到处都是。但好像要注意一点,先吧超级终端打开再给防火墙加电,不然超级终端上什么都看不到。 下面就是正是配置了: 由于一般的PIX系列的防火墙出场时候预装...
MAPGIS二次开发常见问题汇总
我每次响应CGisview::onmousemove和CGisview::onlfbuttondown这些函数时,获取的cpoint是窗口坐标,每当用_AppendLin()_AppendReg()这些函数时好象又是逻辑坐标,和
文件
坐标信息一致,但我用_MoveTo(),_LineTo(),_Circle()_Rect()等函数时,用_AppendLin()_AppendReg()
中
同样的坐标,但显示结果不是一样位置。答:在webgis
中
能够对点线面
文件
进行操作,可以根据用途的不同,可以进行不同的操作。
我在CSDN参与的3000个帖子
今日偶然翻到,感慨万千 1:申述:版主,是否扣了我的专家分? 2:100分急求,随机输出十个小写字母,但是,要求这十个字母不相同 3:求Sn=a+aa+aaa+…+aaa…a(n个a)之值 4:数组题 望高手帮忙! 5:呵呵,来推荐一下我的网站,本站提供大量当今流行的免费的音乐和免费电影,常用软件、游戏、精美图库下载,希望对网友有帮助!顺便散分! 6:VBA
请教
怎
基础
各位兄弟,在SDK编程
中
如果实现窗口分割呢?
请问
怎么得到
一个
函数的执行时间,单位毫秒!如何调试asp组件呀。用vc++调试编制的组件怎样画
一个
箭头?高分
请教
如何限制程序运行的方法?求助:通过编程DirectX抓屏------>masterz:再麻烦你一下,谢谢熟悉RichEdit的朋友过来看一下,RichEdit的几个问题.如何对 I/O 端口进行操作?有了该问题就有了思考(100分 献礼!)如何
VB基础类
7,785
社区成员
197,585
社区内容
发帖
与我相关
我的任务
VB基础类
VB 基础类
复制链接
扫一扫
分享
社区描述
VB 基础类
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章