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