"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