Question

我正在寻找一个vbs或.bat，它会找到网络驱动器中每个文件夹中的每个文件，然后将其转储到.csv文件中。

我需要捕获fodler /文件名，创建日期（不是修改日期）和文件所有者。

我有一个简单的批处理来获取文件名和路径，它真的是创建日期和文件所有者，我很难用。

如果有人可以提供帮助，那就太好了！谢谢！

Answer 1

这将使您主要了解您正在寻找的东西。文件夹所有者不属于Folder object，因此您需要separate function。

Set objFSO = CreateObject("Scripting.FileSystemObject")
OUTPUT_FILE = "Temp.csv"

Call findFiles(objFSO.GetFolder("Z:\Completed\Misc"))

Sub findFiles(objFolder)

  For Each objSubFolder In objFolder.SubFolders
    Call findFiles (objSubFolder)
  Next

  Set objFiles = objFolder.Files

  For Each objFile In objFiles    
    writeFile objFolder & "\" & objFile.Name & "," & objFile.DateCreated 
  Next 
End Sub

Sub writeFile(strText)
  Dim objFSO, objLogFile

  Set objFSO = CreateObject("Scripting.FileSystemObject")  
  Set objLogFile = objFSO.OpenTextFile(OUTPUT_FILE, 8, True)

  objLogFile.WriteLine strText    
  objLogFile.Close

  Set objLogFile = Nothing
  Set objFSO = Nothing

End Sub

网络驱动器的每个文件夹中的所有文件

1 个答案: