Subfolders Path\Name\Size to text file

Dev Shed Forums Sponsor:

November 6th, 2012, 05:12 PM

testerV

Contributing User

Join Date: Jun 2012

Posts: 65

Time spent in forums: 14 h 35 m 42 sec
Reputation Power: 1

Subfolders Path\Name\Size to text file

Hi,
I’m trying to write a code, it supposed to scan a folder for subfolders and print to a log file their Path\Folder name\Folder size.

I decided to get the subfolders names and the size and print it to a text file.
The code I got so far can echo Name&Size butit does not want to print it in to a text file.
Could you guys help me with this?
Thanks, testerV

Code:

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.CreateTextFile("C:\Sub_Dirsize.txt", True)


Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
set objFolder = objFSO.GetFolder("C:\TestFiles")

for Each folder in objFolder.SubFolders
    On Error Resume Next
    size = folder.size
  if Err.Number <> 0 Then
        size = -1
objFile.WriteLine "folder.name,size "        
    end if
'    wscript.echo folder.name,size
    Next
   WScript.Quit

November 6th, 2012, 05:48 PM

medialint

Type Cast Exception

Dev Shed God 20th Plane (14500 - 14999 posts)

Join Date: Apr 2004

Location: OAKLAND CA | Adam's Point (Fairyland)

Posts: 14,938

Folding Points: 319635 Folding Title: Super Ultimate Folder - Level 1

Time spent in forums: 6 Months 2 Weeks 2 Days 26 m 38 sec
Reputation Power: 8490

Remove the quotes from the writeline (1) and take it out of the if conditional (2).

(1) You'd literally be writing what's in the quotes to the file thus it would literally look like
folder.name,size
folder.name,size
folder.name,size
folder.name,size
folder.name,size

(2) You'd only be writing a line if there was an error.

__________________
medialint.com

“Today you are You, that is truer than true. There is no one alive who is Youer than You.” - Dr. Seuss

November 6th, 2012, 08:02 PM

Rukbat

Registered User

Join Date: Nov 2012

Posts: 10

Time spent in forums: 2 h 18 m 25 sec
Reputation Power: 0

Try it this way:

Code:

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.CreateTextFile("C:\Sub_Dirsize.txt", True)


Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
set objFolder = objFSO.GetFolder("C:\TestFiles")

for Each folder in objFolder.SubFolders
    On Error Resume Next
    size = folder.size
    if Err.Number <> 0 Then size = -1
    On Error GoTo 0
    objFile.WriteLine folder.name,size         
Next
WScript.Quit

November 6th, 2012, 11:14 PM

testerV

Contributing User

Join Date: Jun 2012

Posts: 65

Time spent in forums: 14 h 35 m 42 sec
Reputation Power: 1

Thank you medialint and Rukbat! You guys rock!
testerV

Viewing: Dev Shed Forums > Programming Languages - More > Visual Basic Programming > Subfolders Path\Name\Size to text file

« Previous Thread | Next Thread »

Developer Shed Advertisers and Affiliates

Thread Tools	Search this Thread
Email this Page	Search this Thread: Advanced Search
Display Modes	Rate This Thread
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode	Rate This Thread:

Posting Rules
You may not post new threads You may not post replies You may not post attachments You may not edit your posts vB code is On Smilies are On [IMG] code is On HTML code is Off

View Your Warnings | New Posts | Latest News | Latest Threads | Shoutbox

Forum Jump