網絡驅動器的每個文件夾中的所有文件

Question

我正在尋找一個vbs或.bat，它將查找網絡驅動器中每個文件夾中的每個文件，然後將其轉儲到.csv文件中。

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

我只是一個簡單的批處理文件名和路徑，它真的是創建日期和文件所有者，我很難。

如果有人可以幫忙，那太棒了！ 謝謝！

Answer 1

這會讓你主要看到你在找什麼。文件夾所有者不是Folder object的一部分，因此您需要爲此提供separatefunction。

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