Question

VB中怎么样让单击一个按钮控件，让text2中显示text1中输入的盘符下的所有文件?

本人vb菜鸟来的最好是创建完控件复制上代码就可以用的，能用之后再给50

Answer 1

这个妥，如果是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即可，把采纳给了上面累不爱懒得回答了

Answer 2

多引用一个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

Answer 3

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

追问

不行啊

追答

你的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

追问

text1要改什么吗？

追答

不用啊，你看看控件名对不对，是不是text1

为了看得舒服 text2的multiline属性值设置为true

追问

如果我现在要是在加一个command2，它的功能是copy text2中所有文件（包括隐藏文件）到指定的地方要怎么加代码？
老师真变态。。。。。。。。。。。。。。。

追答

Dim vi As Variant
Dim i As Integer
Dim sPath As String
Dim sT As String '目的路径，这个需要你赋值
sPath = Text1
If Right(sPath, 1) "\" Then sPath = sPath & "\"
If Right(sT, 1) "\" Then sT = sT & "\"
vi = Split(Text2, " ")
For i = LBound(vi) To UBound(vi)
FileCopy sPath & vi(i), sT & vi(i)
Next

追问

text1还是无效的外部过程

追答

sPath =text1改写成 sPath =text1.text

text2=sfile改写成text2.text=sfile

追问

你能不能帮我做一个vbp的文件，然后我自己再看看怎么弄，我把 sPath =text1改写成 sPath =text1.text还是无效的外部过程，是不是要加引用？

追答

测试通过的工程