Все файлы в каждой папке сетевого диска

Question

Я ищу vbs или .bat, который найдет каждый файл в каждой папке на сетевом диске, а затем выгрузит его в CSV-файле.

Мне нужно зафиксировать имя fodler/file, дату создания (не измененную дату) и владельца файла.

Я предлагаю простой пакет, который подбирает имя и путь к файлу, это действительно дата создания и владелец файла, с которым мне трудно работать.

Если бы кто-нибудь мог помочь, это было бы здорово! Спасибо!

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