请文怎么查找列举出文件的绝对路径？

Henry D. Sy

原帖由 today416 于 2008-12-25 10:50 发表
斑竹能不能帮忙写个哦，小弟不会，特别是对操作文件之类的东东

1. Private Sub Command7_Click()
   
2.     Dim fs As New FileSystemObject
   
3.     Dim fd As Folder
   
4.     Dim sfd As Folder
   
5.     If IsNull(Me.Text0) Then
   
6.         MsgBox "请输入文件夹"
   
7.         Me.Text0.SetFocus
   
8.         Exit Sub
   
9.     End If
   
10.     Me.List10.RowSource = ""
    
11.     Set fd = fs.GetFolder(Me.Text0)
    
12.     ListFolder fd
    
13. End Sub
    
14. 
    
15. Sub ListFolder(fd As Folder)
    
16.     Dim sfd As Folder
    
17.     Dim f As File
    
18.     For Each f In fd.Files
    
19.         List10.AddItem f.Path
    
20.     Next
    
21.     For Each sfd In fd.SubFolders
    
22.         List10.AddItem sfd.Path
    
23.         ListFolder sfd
    
24.     Next
    
25. End Sub

复制代码