VB中怎么样让单击一个按钮控件，让text2中显示text1中输入的盘符下的所有文件?
3个回答
展开全部
这个妥，如果是vb6，你先拖三个控件，分别是command1,text1和text2
text2需要multiline==true
只需要在command1_click里输入下面代码就行
Private Sub Command1_Click()
On Error Resume Next
Text2.Text = ""
Shell ("cmd /c dir " + Text1.Text + " /b >>c:\1.txt")
Open "c:\1.txt" For Input As #1
Do Until EOF(1)
Line Input #1, s
Text2.Text = Text2.Text + s + Chr(13) + Chr(10)
Loop
Close #1
Kill "c:\1.txt"
End Sub
哈哈，这个方法给我自己吓哭了，不过放心肯定没问题，不需要了解任何vb处理文件的机制，用cmd运行一次dir /b命令即可，老少皆宜
如果你需要显示递归结构那就不是这么简单了，欢迎进入百度“VisualBasic吧”和我一起交流
追问
可以用，非常感谢你，但是怎么样让它也显示隐藏的文件？是在("cmd /c dir "后面加上显示隐藏文件的参数就可以了，还是？
如果我现在要是在加一个command2，它的功能是copy text2中所有文件（包括隐藏文件）到指定的地方要怎么加代码？
追答
是，加上显示隐藏文件的参数/a即可，把采纳给了上面累不爱懒得回答了
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
多引用一个File1来获取路径文件，代码如下 源文件可下载 盘符需要加冒号 如D: 或者 D:\
Private Sub Command1_Click()
Text2.Text = ""
File1.Path = Text1.Text
For i = 0 To File1.ListCount - 1
Text2.Text = Text2.Text & File1.List(i) & vbCrLf
Next
End Sub
不想加分号就这样
Private Sub Command1_Click()
Text2.Text = ""
File1.Path = Text1.Text & ":\"
For i = 0 To File1.ListCount - 1
Text2.Text = Text2.Text & File1.List(i) & vbCrLf
Next
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
Dim sPath As String
Dim sA As String
Dim sFile As String
sPath = text1
sA = Dir(sPath, vbNormal)
Do While sA <> ""
sFile = sFile & " " & sA
sA = Dir()
Loop
text2=sfile
Dim sA As String
Dim sFile As String
sPath = text1
sA = Dir(sPath, vbNormal)
Do While sA <> ""
sFile = sFile & " " & sA
sA = Dir()
Loop
text2=sfile
更多追问追答
追问
不行啊
追答
你的text1里要写上路径，比如c:\ 这个代码测试过了，没问题.写成c:是不行的，不过为了照顾不写\的情况，我改写了代码，输入盘符c: 或c:\都可以了....
Dim sPath As String
Dim sA As String
Dim sFile As String
sPath = Text1
If Right(sPath, 1) "\" Then sPath = sPath & "\"
sA = Dir(sPath, vbNormal)
Do While sA ""
sFile = sFile & " " & sA
sA = Dir()
Loop
Text2 = sFile
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（1）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
