给定一个文件夹，
①取得裏面所有文件名字，并写到TEXT1中。
②取得指定类型文件名字，并写到TEXT1中。
急用，谁能教教我。谢谢了。
vb6 如何快速取得文件夹下的全部文件名？
答案:4 悬赏:40 手机版
解决时间 2021-12-25 17:10
- 提问者网友：黑米和小志
- 2021-12-24 23:21
最佳答案
- 五星知识达人网友：从此江山别
- 2021-12-24 23:31
用dirlist和filelist控件，很容易实现的。
全部回答
- 1楼网友：醉吻情书
- 2021-12-25 03:32
Private Sub Command1_Click()
Text1.Text = ""
File1.Path = "d:\" '指明路径
For i = 0 To File1.ListCount - 1
Text1.Text = Text1.Text + File1.List(i) + vbCrLf
Next
- 2楼网友：独钓一江月
- 2021-12-25 02:15
需添加filelistbox、text1、text2、command1控件，且text1、text2的multiline属性要改为true。
Private Sub Command1_Click()
Text1.Text = ""
File1.Path = "d:\" '指明路径
For i = 0 To File1.ListCount - 1
Text1.Text = Text1.Text + File1.List(i) + vbCrLf
Next
Text2.Text = ""
File1.Path = "d:\" '指明路径
File1.Pattern = "*.txt;*.doc" '指定类型
For i = 0 To File1.ListCount - 1
Text2.Text = Text2.Text + File1.List(i) + vbCrLf
Next
End Sub
Private Sub Form_Load()
File1.Visible = False
End Sub
- 3楼网友：怀裏藏嬌
- 2021-12-25 00:46
private sub command1_click()
dim n as integer
on error resume next
f = dir("c:\example\*.htm")
do while f <> ""
name "c:\example\" & f as "c:\example\" & f & "l"
n = n + 1
f = dir
loop
msgbox n & "个文件改名"
end sub
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯