请教！如何能将某硬盘中所有文件夹及文件的名称都导入ACCESS表中？（又有新问题）

sxgaobo

在论坛里查询了下，有几个例子，可都是把某一文件夹中文件名列出的，有没有将多个文件夹及其中文件明同时列出的方法啊？

ACMAIN_CHM

将多个文件夹及其中文件明同时列出的方法啊？

直接DOS命令 TREE /F
tree /f > a.txt


如果想自己用程序实现。
请到帮助中查看 DIR() 函数的说明。然后进行递归遍历。



******************
*  一切皆有可能  *
******************
.
ACMAIN - Access论坛回贴准则（个人）.
.
同一贴子不回复第二次
.
QQ群 48866293 / 12035577 / 7440532 / 13666209
http://forum.csdn.net/BList/OtherDatabase .
http://www.accessbbs.cn/bbs/index.php .
http://www.accessoft.com/bbs/index.asp .
http://www.access-programmers.co.uk/forums .
http://www.office-cn.net .
.
http://www.office-cn.net/home/space.php?uid=141646 .

sxgaobo

谢谢 ACMAIN_CHM ！
你的方法可以导出，可不是我要的结果啊！我想要这样的结果：
              位置
D：\A\A1.TXT
D：\A\A2.TXT
D：\A\A3.TXT
D：\A\B\B1.RAR
D：\A\B\B2.MDE
D：\C\C1.RAR
D：\C\E\E1.RAR
......

todaynew

如果文件名有规律，并且能直接调用“开始”中的搜索的话，好像应该满足要求。不过我不会，呵呵。

sxgaobo

等待中......

Henry D. Sy

自定义一个递归函数

Henry D. Sy

1. Private Sub Command2_Click()
   
2.     Dim diaFS As FileDialog
   
3.     Set diaFS = Application.FileDialog(msoFileDialogFolderPicker)
   
4.     With diaFS
   
5.         .AllowMultiSelect = False
   
6.         .Show
   
7.     End With
   
8.     If diaFS.SelectedItems.Count > 0 Then
   
9.         Me.Text0 = diaFS.SelectedItems(1)
   
10.     Else
    
11.         Me.Text0 = Null
    
12.     End If
    
13. End Sub
    
14. Private Sub Form_Load()
    
15.     Me.List10.RowSourceType = "Value List"
    
16.     Me.List10.RowSource = ""
    
17. End Sub
    
18. Private Sub Command7_Click()
    
19.     Dim fs As New FileSystemObject
    
20.     Dim fd As Folder
    
21.     Dim sfd As Folder
    
22.     If IsNull(Me.Text0) Then
    
23.         MsgBox "请输入文件夹"
    
24.         Me.Text0.SetFocus
    
25.         Exit Sub
    
26.     End If
    
27.     Me.List10.RowSource = ""
    
28.     Set fd = fs.GetFolder(Me.Text0)
    
29.     ListFolder fd
    
30. End Sub
    
31. 
    
32. Sub ListFolder(fd As Folder)
    
33.     Dim sfd As Folder
    
34.     Dim f As File
    
35.     For Each f In fd.Files
    
36.         List10.AddItem f.Path
    
37.     Next
    
38.     For Each sfd In fd.SubFolders
    
39.         List10.AddItem sfd.Path
    
40.         ListFolder sfd
    
41.     Next
    
42. End Sub
    

复制代码

sxgaobo

谢谢版主！
高手，可有个问题，就是当文件夹中的文件多时报错！另外能麻烦您改下程序，将结果写在一个表中吗？

另：
我用别的方法得到了A表，怎样才能整理成B表那样的结果？

sxgaobo

解决了，在Henry D. Sy 版主提供例子的基础上。
谢谢各位朋友的热情帮助！！！

sxgaobo

再请教个问题！
如何能得到所选择文件夹中的文件个数（包括子文件夹中）啊？