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

today416

我想问的不是查找已知文件名的文件，而是想把某个打开的文件夹下所有的文件的绝对路径全部都显示列举出来，以便程序进一步的应用，谢谢～

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

复制代码

today416

斑竹能不能帮忙写个哦，小弟不会，特别是对操作文件之类的东东

Henry D. Sy

问题1
你可以用文本框边上的按钮选择文件夹（刚才忘了锁定它）
问题2.
估计要写个递归函数过程。

today416

多谢斑竹，再试了下，发现一个BUG
如果文本框中输入　c:\     则显示正确的文件，但是如果输入 c:　（注意，没有斜杠），则也会列举出很多文件，但我看了，显然不是c盘根目录下的文件，但是d:\与d:　　e:\与e:确不存在这样的问题

另外我还想请教下斑竹，如果我想不仅列出文件夹下的文件，而且想把文件夹下的文件夹（即子文件夹）的名字也列举出来，而且列举出来能区分哪个是文件哪个是文件夹，如何写代码？

Henry D. Sy

If diaFS.SelectedItems.Count > 0 Then
        Me.Text0 = diaFS.SelectedItems(1)
    Else
        Me.Text0 = ""
    End If
上面这一句中，Me.Text0 = ""，应该更改为 Me.Text0 = null，刚才一路写代码没注意。[:31]

Henry D. Sy

原帖由 today416 于 2008-12-25 09:25 发表
斑竹我看了下代码，知道第二个问题怎么解决了，但是第一个问题还是不懂？

需要引用 Microsoft Scripting Runtime，Office 11

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

复制代码

today416

斑竹我看了下代码，知道第二个问题怎么解决了，但是第一个问题还是不懂？

today416

多谢斑竹，但是我试了后发现有两个问题：
1.好像只可以运用于各个盘的根目录，例如D盘根目录下的文件，如果想列举D:\某文件夹,下的文件就不可以
2.列举出C盘根目录下的文件不是很全，好像很多系统文件列举不出来，例如BOOT。ini,ntldrd等文件
请问斑竹怎么解决？

Henry D. Sy

需要引用 Microsoft Scripting Runtime

1. 建一个窗体，上面放置文本框一个，名字为“驱动器名”，按钮一个，名字“command2”，列表框一个，名字“List3”
2. 输入下面的代码试试。

1. Private Sub Command2_Click()
   
2. 
   
3.     Dim myDrive As String
   
4.     Dim Fs As New FileSystemObject
   
5.     Dim Fd As Folder, F As File
   
6. 
   
7.     On Error Resume Next
   
8. 
   
9.     myDrive = Trim(Me.驱动器名)
   
10.     If myDrive = "" Then
    
11.         MsgBox "请输入欲显示文件的驱动器名"
    
12.         Me.驱动器名.SetFocus
    
13.         Exit Sub
    
14.     End If
    
15.     If Right(myDrive, 2) <> ":" Then
    
16.         myDrive = myDrive & ":"
    
17.     End If
    
18.     Set Fd = Fs.GetFolder(myDrive)
    
19.     Me.List3.RowSource = ""
    
20.     For Each F In Fd.Files
    
21.         If (Not ((F.Attributes And System) = System) And (Not (F.Attributes And Hidden) = Hidden)) Then
    
22.             Me.List3.AddItem F.Name
    
23.         End If
    
24.     Next
    
25.     MsgBox "Finish"
    
26. End Sub
    
27. 
    
28. Private Sub Form_Load()
    
29.     Me.List3.RowSourceType = "Value List"
    
30.     Me.List3.RowSource = ""
    
31. End Sub

复制代码