如何提取某一目录下的所有的文件名和文件夹名到一个文本文件中？

[zl17]

如何提取某一目录下的所有的文件名和文件夹名到一个文本文件中？

[笨笨兔兔兔兔兔]

引用scripting runtime

dim fso as new scirpting.filesystemobject
set folder=fso.getfolder("c:\liu")
for each xxx in folder.files

next

[zl17]

不太懂啊。我是初学，能详细点么？

[笨笨兔兔兔兔兔]

不懂引用script??还是什么?

[zl17]

能给出详细的代码么？最好做个函数，如何调用这个函数什么的，谢谢阿~~
我一定给分的！！

[zou19820704]

引用scripting runtime

Option Explicit
Dim Fso As FileSystemObject
Dim Floder0 As Folder
Dim Floder1 As Folder
Dim Floders As Folders
Dim fil As File
Private Sub Command1_Click()
Set Fso = New FileSystemObject
Set Floder0 = Fso.GetFolder("D:\外语学习\lhut3227\File")
Set Floders = floder.SubFolders
For Each Floder1 In Floders

Text1.Text = Text1.Text & floder.Name & Space(50) & floder.Size & Chr(13) + Chr(10)
Next
For Each fil In Floder0.Files
Text1.Text = Text1.Text & fil.Name & Space(50) & fil.Size & Chr(13) + Chr(10)
Next


End Sub

[zl17]

恩，我去试试楼上兄弟的先！

[faysky2]

直接粘上就可以用：



'引用FSO("工程"->"引用"->Microsoft Scripting Runtime)

Private Sub Command1_Click()
SearchFolder "d:\" '提取D盘下所有的信息
End Sub

Sub SearchFolder(ByVal Folder As String)
Dim fso As New FileSystemObject
Dim objFile, objFolder

Set objFolder = fso.GetFolder(Folder)
For Each objFile In objFolder.Files
WriteFile objFile.Path
Next
For Each objFolder In objFolder.SubFolders
WriteFile objFolder.Path
SearchFolder objFolder '递归遍历整颗树
Next
End Sub

Sub WriteFile(ByVal fullName As String)
Open "c:\test.txt" For Append As #1 '把信息写到C:\Test.txt里
Write #1, fullName
Close 1
End Sub

[zou19820704]

用这个吧

Private Sub Command1_Click()
xx

End Sub
Private Sub xx()
Dim Fso As FileSystemObject
Dim Floder0 As Folder
Dim Floder1 As Folder
Dim Floders As Folders
Dim fil As File
Set Fso = New FileSystemObject
Set Floder0 = Fso.GetFolder("D:\外语学习\lhut3227\File")
Set Floders = Floder0.SubFolders
For Each Floder1 In Floders

Text1.Text = Text1.Text & Floder1.Name & Space(50) & Floder1.Size & Chr(13) + Chr(10)
Next
For Each fil In Floder0.Files
Text1.Text = Text1.Text & fil.Name & Space(50) & fil.Size & Chr(13) + Chr(10)
Next
Open "D:\10.txt" For Output As #1
Print #1, Text1.Text
Close #1

End Sub

[Gutta]

哈哈，为了80分，这么快。

刚刚我本来早打了，慢了2分钟就这样，哈哈

看来VB的人气还是那么旺哦！

[rainstormmaster]

Private Sub Command2_Click()
'将目录e:\mc 的目录和文件列表写入到e:\mc4.txt
Shell "cmd /c dir e:\mc /s/a >e:\mc4.txt"
End Sub