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

news:A199E020-3C43-4FF0-8023-F170B091547D@microsoft.com...

It helps to see things more clearly if you add a little more structure to
your code. The script below should emphasizes the recursive component of
your code. Its core is the subroutine "ProcessFolder". You first call it
with the root folder name "f:\jeremy-data", then from within itself with the
name of each subfolder that exists.

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

Sub ProcessFolder(sFolderName)
   Set objFolder = objFSO.GetFolder(sFolderName)
   For Each objSubFolder In objFolder.SubFolders
      DoExcelStuff objSubFolder
      ProcessFolder(objSubFolder.Path)
   Next
End Sub

Sub DoExcelStuff (objFolder)
   WScript.Echo objFolder.DateCreated
   WScript.Echo objFolder.DateLastAccessed
   WScript.Echo objFolder.DateLastModified
   WScript.Echo objFolder.Name
   WScript.Echo objFolder.Path
   WScript.Echo objFolder.Size
   WScript.Echo objFolder.Type
End Sub

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

Next

I'm wrong, what I have below only recurses one level.  How do I get this to
apply to all sub folders?  Thx, Jeremy

On Nov 5, 11:01 am, Jeremy <Jer...@discussions.microsoft.com> wrote:

Here is an example I had handy ...

' A simple example of making a recursive list of files in a
' folder and all of its subfolders
' Derived from examples by Michael Harris, Torgier Bakken and
' others

Dim ofs ' a global reference to an instance of the FileSystemObject
Dim aFileSpecs

With CreateObject("WScript.Shell")
  dpath = .SpecialFolders("MyDocuments")
End With
Set ofs = CreateObject("Scripting.FileSystemObject")

' One way to use the list is to break it up into an array
aFileSpecs = Split(getList(dPath, ofs), vbNewline)

wsh.echo "Found:", UBound(aFileSpecs), "file(s)"
wsh.echo Join(aFileSpecs, vbNewLine)

Function getList(sPath, ofs)
Dim s
  s = ""
  With ofs.GetFolder(sPath)
    s = s & sPath & vbNewLine
    if .SubFolders.Count > 0 Then
      For each folder in .SubFolders
       ' Change this part to collect the information you want
        s = s & getList(sPath & "\" & folder.Name, ofs)
      Next
    End if
  End With
  getList = s
End Function
_____________________
Tom Lavedas

news:2591F773-4282-4B91-BFAA-2D75A7982147@microsoft.com...

Did you actually read my detailed response to your first post?

Thank you both for your help.  I'm reading through your suggestions, (which
I've only seen now, for some reason, I never see responses right away,
anyway....).  I did find another script on another forum that helped me mash
out what I want to do.  I've modified it to my needs and it seems to work
well.  It saves everything to a text file we I can then open in Excel.  So
just a few extra steps are required to convert the text data into Excel
format.  But now that I think I have the concept down, I may try 'convert' it
to use Excel.  There was one good point about exporting things to a log file.
 It never occured to me that my users might use a comma in the name of their
word processing files!  So I had to switch to using a semi colon for a
delimeter.  Anyway, for anyone who is interested, here is my revised code.  
And thanks again for the suggestions from both of you.  Jeremy

Set objFSO = CreateObject("Scripting.FileSystemObject")

Const ForAppending = 2

Dim objFSO:Set objFSO = CreateObject("Scripting.FileSystemObject")

Wscript.echo "Script is about to start!"

LogFile = "l:\exportme7.txt"

Dim objLogFile:Set objLogFile = objFSO.CreateTextFile(logfile, 2, True)

objStartFolder = "L:\"

Set objFolder = objFSO.GetFolder(objStartFolder)

objLogFile.write "Name;" & "Created;" & "Last Modified;" & "Size;" & "Path;"
& "Type"

objLogFile.Writeline

objLogFile.Write objFolder.Name & ";;;"

'objLogFile.Write objFolder.datecreated & ";"

'objLogFile.Write objFolder.datelastmodified & ";"

'objLogFile.Write objFolder.size & ";"

objLogFile.Write objFolder.Path & ";"

objLogFile.Writeline

Set colFiles = objFolder.Files

For Each objFile in colFiles

    objLogFile.Write objFile.Name & ";"

    objLogFile.write objFile.datecreated & ";"

    objLogFile.write objFile.datelastmodified & ";"

    objLogFile.write objFile.size & ";"

    objLogFile.Write objFile.path & ";"

    objLogFile.Write objFile.Type

    objLogFile.Writeline

Next

ShowSubfolders objFSO.GetFolder(objStartFolder)

Sub ShowSubFolders(Folder)

    For Each Subfolder in Folder.SubFolders

        objLogfile.Write subfolder.Name & ";"

        objLogFile.write subfolder.datecreated & ";"

        objLogFile.write subfolder.datelastmodified & ";"

        objLogFile.write subfolder.size & ";"

        objLogFile.Write Subfolder.Path  & ";"

        objLogFile.write subfolder.Type

        objLogFile.Writeline

        Set objFolder = objFSO.GetFolder(Subfolder.Path)

        Set colFiles = objFolder.Files

        For Each objFile in colFiles

            objLogFile.Write objFile.Name & ";"

                    objLogFile.Write objFile.datecreated & ";"

                    objLogFile.Write objFile.datelastmodified & ";"

                    objLogFile.Write objFile.size & ";"

                    objLogFile.Write objFile.path & ";"

                    objLogFile.write objFile.type

            objLogFile.Writeline

        Next

        ShowSubFolders Subfolder

    Next

End Sub

objLogFile.Close

wscript.echo "Script Finished!!!"