Problem with recursion and objfolder.size - microsoft.public.scripting.vbscript

Message from discussion Problem with recursion and objfolder.size

Jeremy

View profile

More options Nov 5 2009, 2:46 pm

Newsgroups: microsoft.public.scripting.vbscript

From: Jeremy <Jer...@discussions.microsoft.com>

Date: Thu, 5 Nov 2009 06:46:03 -0800

Local: Thurs, Nov 5 2009 2:46 pm

Subject: RE: Problem with recursion and objfolder.size

  Forward
  | Print
  | View thread
  | Show original
  | Report this message
  | Find messages by this author
  

Solved the recursive part, see below. Now just need help with the
permissions issue when asking for the folder size attribute.

'Script to get info on sub folders

'Section 1 - Excel Stuff
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
objExcel.Workbooks.Add

intRow = 2

objExcel.Cells(1, 1).Value = "Date Created"
objExcel.Cells(1, 2).Value = "Date Last Accessed"
objExcel.Cells(1, 3).Value = "Date Last Modified"
objExcel.Cells(1, 4).Value = "Name"
objExcel.Cells(1, 5).Value = "Path"
objExcel.Cells(1, 6).Value = "Size"
objExcel.Cells(1, 7).Value = "Type"

'Section 2 - Find folder Attributes

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("f:\jeremy-data")

for each objFolder in objFolder.SubFolders

objExcel.Cells(intRow, 1).Value = objFolder.DateCreated
objExcel.Cells(intRow, 2).Value = objFolder.DateLastAccessed
objExcel.Cells(intRow, 3).Value = objFolder.DateLastModified
objExcel.Cells(intRow, 4).Value = objFolder.Name
objExcel.Cells(intRow, 5).Value = objFolder.Path
'objExcel.Cells(intRow, 6).Value = objFolder.Size
objExcel.Cells(intRow, 7).Value = objFolder.Type
intRow = intRow + 1

"Jeremy" wrote:
> 1l The purpose of the following script is to return attributes of subfolders
> into an Excel spread sheet. The way it is now, it only gives the attirbutes
> for the root folder. I know I need to add a for...next. I just don't know
> what to put after the for.

> 2. I get a permissions error with the objfolderf.size line, but not with
> other lines.

> Any suggestions please?

> --------------------------------
> 'Script to get info on sub folders

> 'Section 1 - Excel Stuff
> Set objExcel = CreateObject("Excel.Application")
> objExcel.Visible = True
> objExcel.Workbooks.Add

> intRow = 2

> objExcel.Cells(1, 1).Value = "Date Created"
> objExcel.Cells(1, 2).Value = "Date Last Accessed"
> objExcel.Cells(1, 3).Value = "Date Last Modified"
> objExcel.Cells(1, 4).Value = "Name"
> objExcel.Cells(1, 5).Value = "Path"
> objExcel.Cells(1, 6).Value = "Size"
> objExcel.Cells(1, 7).Value = "Type"

> 'Section 2 - Find folder Attributes

> Set objFSO = CreateObject("Scripting.FileSystemObject")
> Set objFolder = objFSO.GetFolder("f:\jeremy-data")

> 'For each objFolder in objFSO.GetFolder

> objExcel.Cells(intRow, 1).Value = objFolder.DateCreated
> objExcel.Cells(intRow, 2).Value = objFolder.DateLastAccessed
> objExcel.Cells(intRow, 3).Value = objFolder.DateLastModified
> objExcel.Cells(intRow, 4).Value = objFolder.Name
> objExcel.Cells(intRow, 5).Value = objFolder.Path
> objExcel.Cells(intRow, 6).Value = objFolder.Size
> objExcel.Cells(intRow, 7).Value = objFolder.Type

> 'Next

Forward