社区
VB基础类
帖子详情
请教大虾!!请问怎么才可以将一个目录的全部文件一起放到LIST中!
etou
2003-11-11 12:26:47
请教各位大虾,怎么样通过commondialog的多重选,将选中的多个文件(或是一个目录中的所有文件)一起放到list中,(注:只能是一个文件占一个列表行)
...全文
36
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
notepad++的二进制查看HexEditor插件(64位&32;位)
notepad++的二进制查看HexEditor插件包含了64位和32位两个版本,直接
放到
notepad++安装
目录
下的plugins
文件
夹,重启即可,亲测可用,我测试时带HexEditor
文件
一起
放到
plugins
文件
夹下才可以,
目录
结构:plugins/HexEditor/HexEditor.dll
initramfs 使用
使用initramfs可以实现内核和
文件
系统在
一个
映像
文件
中
,不过会增大内核体积,同时占用较多内存。 (1)准备根
文件
系统 先准备好根
文件
系统,
放到
某个
目录
,不过为了方便和内核
一起
打包,可以
放到
内核源代码的usr/
目录
下,我的做法是在usr
目录
下建立了image
目录
,然后将可用的根
文件
系统的内容全部复制到image
目录
下: [chenxibing@localhost linux-2...
java for
list
i_java for循环 怎样把
一个
list
里相同的数据
放到
一起
展开全部通过题主的描述可以看到,其实就是
一个
List
的集合数据62616964757a686964616fe78988e69d8331333365636666处理问题,希望把相同的数据
放到
一起
,是一种归类操作,也就是说其实总得需要把
List
形式转化为Map>的形式这种形式map的key也就是当前的这个数字,而这个value就是这个数字对应的所有当前出现此key的集合
List
list
=A...
虚拟
目录
与分区挂载、命名空间
在
一个
集群环境
中
,是不允许出项2个同名路径的,这就是Single Name Space (全局统一命名空间)
文件
系统可以把 XX
文件
放到
YY
目录
,也可以把 DD
目录
放到
YY
目录
。当我们像访问某个
文件
或者
目录
的时候,必须知道其路径才可以,比如 Windows C:\Program Files\Application Verifier\helo.txt Linux /user/s...
ls 命令
ls【功能说明】:
list
directory contents #列出
目录
内容☆ 可同时列出多个
目录
内容【语法格式】:ls [OPTION]... [FILE]...【选项参数】:参数说明-a, --all全部
文件
,连隐藏
文件
(开头为 . 的
文件
)
一起
列出来-A, --almost-all同上,但不包括 . 和 .. 这两个
目录
-d, --directory列出
目录
本身...
VB基础类
7,732
社区成员
197,678
社区内容
发帖
与我相关
我的任务
VB基础类
VB 基础类
复制链接
扫一扫
分享
社区描述
VB 基础类
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章