re: Hey, Scripting Guy! How Can I Get a List of All the Subfolders in a Folder and Then Put That List Into an Array?

Me-Cyclist — Mon, 21 May 2012 21:07:48 GMT

Hey Scripting Guy,

I'm trying to use this script as a base for doing a file level inventory. I'd like to export the following attributes of all files under a certain directory structure so our Security and change management folks can be made aware of when a file changes.

I can easily get the file attributes of a simple directory, but obviously I need to include this recursive subroutine as well

Dim fso, folder, files, OutputFile

Dim strPath

strComputer="."

' Create a FileSystemObject

Set fso = CreateObject("Scripting.FileSystemObject")

' Define folder we want to list files from

strPath = "C:\MyFolder"

Set folder = fso.GetFolder(strPath)

Set files = folder.Files

' Create text file to output test data

Set OutputFile = fso.CreateTextFile(strComputer & "_FileInventory.csv", True)

OutputFile.Write("File Name" & "," & "File Path" & "," & "Date Last Modified")

OutputFile.Write("," & "Date Created" & ",")

OutputFile.WriteLine("")

' Loop through each file

'--------------------

For each item In files

' Output file properties to a text file

OutputFile.Write(item.Name & "," & item.Path & "," & item.DateLastModified)

OutputFile.Writeline("," & item.DateCreated & "," & item.DateLastAccessed)

' Close text file

OutputFile.Close

HELP!

re: Hey, Scripting Guy! How Can I Get a List of All the Subfolders in a Folder and Then Put That List Into an Array?

Poonkie — Tue, 21 Jun 2011 21:20:58 GMT

I found that if a directory has an apostrophe (') in the name, the process stops there.