Question

我正在开发一个项目，要求我搜索并列出可能有多个子文件夹的文件夹中的所有文件并将其写入文本文档。

我将搜索的文件扩展名主要是.Doc，但我还需要列出在该目录中找到的其他文件。

为了使事情稍微困难一点，我希望文档文档按文件类型排序，另一个按目录排序。我不知道这有多可能，但我已经在线搜索方法，但是到目前为止还没有找到正确的语法。

非常感谢任何帮助。

Answer 1

这些文章将帮助您

http://social.msdn.microsoft.com/Forums/en-US/21151c3b-809f-4cb9-8a1a-ebb073d9227b/list-directories-in-treeview

http://www.developerfusion.com/code/2084/treeview-filesfolder-lists-recursively/

Answer 2

我过去写这个，服务器应该作为你的版本的基础。我知道它不是.NET，但我希望它有所帮助。它会提示用户输入扫描路径，递归到文件夹，并将文件名，路径和所有者写入CSV文件。可能真的效率低，速度慢，但是做到了。

Main() ' trickster yo

Dim rootFolder 'As String
Dim FSO 'As Object
Dim ObjOutFile
Dim objWMIService 'As Object

Sub Main()
    StartTime = Timer()
    If Wscript.Arguments.Count = 1 Then ' if path provided with the argument, use it.
        rootFolder = Wscript.Arguments.Item(0)
    Else
        rootFolder = InputBox("Give me the search path : ") ' if not, ask for it
    End If
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set ObjOutFile = FSO.CreateTextFile("OutputFiles.csv")
    Set objWMIService = GetObject("winmgmts:")


    ObjOutFile.WriteLine ("Path, Owner") ' set headers

    Gather (rootFolder)

    ObjOutFile.Close ' close the stream

    EndTime = Timer()
    MsgBox ("Done. (ran for " & FormatNumber(EndTime - StartTime, 2) & "s.)")
End Sub

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Function Gather(FolderName)
    On Error Resume Next

    Dim ObjFolder
    Dim ObjSubFolders
    Dim ObjSubFolder
    Dim ObjFiles
    Dim ObjFile

    Set ObjFolder = FSO.GetFolder(FolderName)
    Set ObjFiles = ObjFolder.Files

    For Each ObjFile In ObjFiles  'Write all files to output files
        Set objFileSecuritySettings = _
        objWMIService.Get("Win32_LogicalFileSecuritySetting='" & ObjFile.Path & "'")
        intRetVal = objFileSecuritySettings.GetSecurityDescriptor(objSD)
        If intRetVal = 0 Then
            owner = objSD.owner.Domain & "\" & objSD.owner.Name
            ObjOutFile.WriteLine (ObjFile.Path & ";" & owner) ' write in CSV format
        End If
    Next

    Set ObjSubFolders = ObjFolder.SubFolders     'Getting all subfolders


    For Each ObjFolder In ObjSubFolders
        Set objFolderSecuritySettings = _
        objWMIService.Get("Win32_LogicalFileSecuritySetting='" & ObjFile.Path & "'")
        intRetVal = objFolderSecuritySettings.GetSecurityDescriptor(objSD)
        If intRetVal = 0 Then
            owner = objSD.owner.Domain & "\" & objSD.owner.Name
            ObjOutFile.WriteLine (ObjFolder.Path & ";" & owner) ' write in CSV format
        End If
        Gather (ObjFolder.Path)
    Next
End Function

VB.Net - 列出文件＆amp;来自指定目录的子文件夹并保存到文本文档，并对结果进行排序

2 个答案: