列出包含详细信息的主文件夹的子文件夹和文件

Question

我对编程很陌生，但到目前为止我很享受它。

也许有一些技巧可以制作返回的 vbs 文件？

到目前为止，我有这个：

（但它不返回有多少文件的计数器，也不分隔不同列中的字​​段）

Dim fso 
Dim ObjOutFile  

Set fso = CreateObject("Scripting.FileSystemObject")  

Set ObjOutFile = fso.CreateTextFile("OutputFiles.csv") 

ObjOutFile.WriteLine("Type,File Name,File Path") 

GetFiles("C:\Intel")  

ObjOutFile.Close  
WScript.Echo("Completed")

Function GetFiles(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  
    ObjOutFile.WriteLine("File," & ObjFile.Name & "," & ObjFile.Path)  
  Next  

  Set ObjSubFolders = ObjFolder.SubFolders  
  For Each ObjFolder In ObjSubFolders  
    ObjOutFile.WriteLine("Folder," & ObjFolder.Name & "," & ObjFolder.Path)  
    GetFiles(ObjFolder.Path)  
  Next  
End Function 

在此先感谢大家！ 你会有一个非常感谢的女孩在这里发帖！ :D

Answer 1

这是我用来提取文件名/文件夹和路径的方法。

Sub PullFileFolderPaths()

Dim varDirectory As Variant
Dim flag As Boolean
Dim i As Integer
Dim strDirectory As String

strDirectory = "C:\Home\Preflight\"
i = 1
flag = True
varDirectory = Dir(strDirectory, vbDirectory)

While flag = True
  If varDirectory = "" Then
    flag = False
  Else
    Cells(i + 1, 1) = varDirectory
    Cells(i + 1, 2) = strDirectory + varDirectory
    'returns the next file or directory in the path
    varDirectory = Dir
    i = i + 1
End If
Wend
End Sub