Office中国论坛/Access中国论坛

标题: 请文怎么查找列举出文件的绝对路径？ [打印本页]
作者: today416    时间: 2008-12-24 19:55
标题: 请文怎么查找列举出文件的绝对路径？
我想问的不是查找已知文件名的文件，而是想把某个打开的文件夹下所有的文件的绝对路径全部都显示列举出来，以便程序进一步的应用，谢谢～
作者: Henry D. Sy    时间: 2008-12-24 20:12
想把某个打开的文件夹下所有的文件的绝对路径全部都显示列举出来
是不是列举该文件夹下的所有文件和子文件夹下的所有文件。
作者: Henry D. Sy    时间: 2008-12-24 21:18
需要引用 Microsoft Scripting Runtime

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

  1. Private Sub Command2_Click()

  3.     Dim myDrive As String
  4.     Dim Fs As New FileSystemObject
  5.     Dim Fd As Folder, F As File

  7.     On Error Resume Next

  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

  28. Private Sub Form_Load()
  29.     Me.List3.RowSourceType = "Value List"
  30.     Me.List3.RowSource = ""
  31. End Sub
复制代码
作者: today416    时间: 2008-12-25 09:12
多谢斑竹，但是我试了后发现有两个问题：
1.好像只可以运用于各个盘的根目录，例如D盘根目录下的文件，如果想列举D:\某文件夹,下的文件就不可以
2.列举出C盘根目录下的文件不是很全，好像很多系统文件列举不出来，例如BOOT。ini,ntldrd等文件
请问斑竹怎么解决？
作者: today416    时间: 2008-12-25 09:25
斑竹我看了下代码，知道第二个问题怎么解决了，但是第一个问题还是不懂？
作者: Henry D. Sy    时间: 2008-12-25 09:28
原帖由 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

  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

  16.     On Error GoTo 0
  17.     Exit Sub

  19. Command2_Click_Error:

  21.     MsgBox "Error " & Err.Number & " " & Err.Description
  22. End Sub

  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

  40.     On Error GoTo 0
  41.     Exit Sub

  43. Command0_Click_Error:

  45.     MsgBox "Error " & Err.Number & " " & Err.Description
  46. End Sub

  48. Private Sub Form_Load()
  49.     Me.List10.RowSourceType = "Value List"
  50.     Me.List10.RowSource = ""
  51. End Sub
复制代码
作者: Henry D. Sy    时间: 2008-12-25 09:32
If diaFS.SelectedItems.Count > 0 Then
        Me.Text0 = diaFS.SelectedItems(1)
    Else
        Me.Text0 = ""
    End If
上面这一句中，Me.Text0 = ""，应该更改为 Me.Text0 = null，刚才一路写代码没注意。[:31]
作者: today416    时间: 2008-12-25 10:40
多谢斑竹，再试了下，发现一个BUG
如果文本框中输入　c:\     则显示正确的文件，但是如果输入 c:　（注意，没有斜杠），则也会列举出很多文件，但我看了，显然不是c盘根目录下的文件，但是d:\与d:　　e:\与e:确不存在这样的问题

另外我还想请教下斑竹，如果我想不仅列出文件夹下的文件，而且想把文件夹下的文件夹（即子文件夹）的名字也列举出来，而且列举出来能区分哪个是文件哪个是文件夹，如何写代码？
作者: Henry D. Sy    时间: 2008-12-25 10:44
问题1
你可以用文本框边上的按钮选择文件夹（刚才忘了锁定它）
问题2.
估计要写个递归函数过程。
作者: today416    时间: 2008-12-25 10:50
斑竹能不能帮忙写个哦，小弟不会，特别是对操作文件之类的东东
作者: Henry D. Sy    时间: 2008-12-25 22:08
原帖由 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

  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
复制代码




欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3