Folder Properties Script

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

Folder Properties Script

Logged in as: Guest

arrSession:exec spGetSession 2,2,63404

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> WSH & Client Side VBScript >> Folder Properties Script
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

Folder Properties Script - 8/12/2008 11:17:48 PM

anurag_cancerian

Posts: 5
Score: 0
Joined: 5/4/2008
Status: offline

Hi All,

I need your help in my script, I am executing script which would give me details of the folder and it's subfolders like Name,Path,CreationDate.

But in LastAccessed date it is not giving me correct date it's giving me current date. I need help to find out LastWritten date and also the owner of the folders and subfolders.

Script:

Set objFSO = CreateObject("Scripting.FileSystemObject")
Const ForAppending = 2
Dim objFSO:Set objFSO = CreateObject("Scripting.FileSystemObject")
LogFile = "e:\data\exportme.log"
Dim objLogFile:Set objLogFile = objFSO.CreateTextFile(logfile, 2, True)
objStartFolder = "e:\data"
Set objFolder = objFSO.GetFolder(objStartFolder)
objLogFile.Writeline
objLogFile.Write "Folder Name:" & objFolder.Name
objLogFile.Writeline
objLogFile.Write "Folder Path:" & objFolder.Path
objLogFile.Writeline
objLogFile.Write "Folder Created:" & objFolder.DateCreated
objLogFile.Writeline
objLogFile.Write "Folder Last Accessed :" & objFolder.DateLastAccessed
objLogFile.Writeline
objLogFile.Write "Folder Owner :" & objFolder.owner
objLogFile.Writeline

ShowSubfolders objFSO.GetFolder(objStartFolder)
Sub ShowSubFolders(Folder)
   For Each Subfolder in Folder.SubFolders
objLogFile.Writeline
       objLogFile.Write "Sub Folder Path:" & Subfolder.Path
objLogFile.Writeline
objLogFile.Write "Sub Folder Created:" & Subfolder.DateCreated
objLogFile.Writeline
objLogFile.Write "SubFolder Last Accessed :" & Subfolder.DateLastAccessed
       objLogFile.Writeline
       Set objFolder = objFSO.GetFolder(Subfolder.Path)
ShowSubFolders Subfolder
   Next
End Sub
objLogFile.Close

Thanks and Regards,

Anurag