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

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:HomePreflight"
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