Solved

Directory/folder utility

Posted on 2007-04-11
3
159 Views
Last Modified: 2010-04-18
Is there a utility out there that can go through a drive/directories and list the name of directories, the total size of the directories and other attribute such as last modified or even what type files are within the directories, etc?
0
Comment
Question by:bigd563
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
3 Comments
 
LVL 30

Expert Comment

by:LauraEHunterMVP
ID: 18890289
Take a look at DumpSec (www.somarsoft.com), a utility which we often recommend for requests like this one.

You can also use your own VBScripts to dump out the information you're looking for; take a look at the sample scripts on the Technet Script Repository to get you started: http://www.microsoft.com/technet/scriptcenter/scripts/default.mspx?mfr=true
0
 
LVL 67

Expert Comment

by:sirbounty
ID: 18890300

Hello bigd563,
Something like this will do it...


'FindAllFiles.vbs
Dim objFSO : Set objFSO = CreateObject("Scripting.FileSystemObject")
Dim objOutput:Set objOutputFile = objFSO.CreateTextFile("C:\Output.log")
Dim dtOld

strSourceFolder = "C:\Testing" 'starting folder...will recurse downward from here

ProcessFolder objFSO.GetFolder(strSourceFolder)

With objOutput
  .WriteLine
  .WriteLine "Process completed at " & Now
  .WriteLine "==========================="
  .Close
End With

Set objOutputFile = Nothing
Set objFSO = Nothing
wscript.quit


Sub ProcessFolder(strSource)
  ProcessFiles strSource
  For Each fld In strSource.SubFolders
    ProcessFolder fld
  Next
End Sub

Sub ProcessFiles(strSrc)
  For Each file In strSrc.Files
    objOutput.WriteLine objFSO.GetExtensionName(file.name) & "," & file & "," & file.size & "," & file.datecreated & "," & file.datelastmodified & "," & file.datelastaccessed
  End If
  Next
End Sub

~sirbounty
0
 
LVL 70

Accepted Solution

by:
KCTS earned 500 total points
ID: 18890662
0

Featured Post

Edgartown IT Case Study

Learn about Edgartown's quest to ensure the safety and security of the entire town's employee and citizen data. Read the case study!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Numerous times I have been asked this questions that what is it that makes my machine log on so slow, there have been cases where computers took 23 minute exactly after taking password and getting to the desktop. Interesting thing was the fact th…
Setting up a Microsoft WSUS update system is free relatively speaking if you have hard disk space and processor capacity.   However, WSUS can be a blessing and a curse. For example, there is nothing worse than approving updates and they just have…
A short tutorial showing how to set up an email signature in Outlook on the Web (previously known as OWA). For free email signatures designs, visit https://www.mail-signatures.com/articles/signature-templates/?sts=6651 If you want to manage em…
Exchange organizations may use the Journaling Agent of the Transport Service to archive messages going through Exchange. However, if the Transport Service is integrated with some email content management application (such as an antispam), the admini…

738 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question