Tom,

Ok, found the problem and aside from me being a dummy here (which I find
very hard to correct), the code now works. The error was caused by a word
wrap problem. But the dummy thing I was doing was trying to make a list of
zip files in that folder. The folder I directed your code to contained only
zipped files, another folder contains the unzipped files (each in it's unique
folder) Once I directed the code to the unzipped folder, the code worked
fine, and the list of sub-folders was generated on Sheet1, Col A, as you said
it would be.

Thanks for staying with me on this, I do appreciate your help here.

Have a great weekend,

Don


"Tom Ogilvy" wrote:

> Just to restate. I copied the code from YOUR email. Cleaned up any wordwrap
> problems and Changed the argument to a valid directory for my computer and
> ran it. It worked fine for me.
>
> So I can't say what your problem might be.
>
> --
> Regards,
> Tom Ogilvy
>
>
>
> "Don" wrote:
>
> > Tom,
> >
> > Not sure what's going on here.....I opened a clean wb and inserted the code
> > as I posted into a module with sheet1 being the active sheet. Now I'm
> > getting an error.
> >
> > "Ambiguous name detected: fDir"
> >
> > The line "fDir = FSO............." highlighted in red.
> >
> > Don
> >
> >
> > "Tom Ogilvy" wrote:
> >
> > > In contrast, the code ran fine for me. did you look at the activesheet to
> > > see the results?
> > >
> > > --
> > > Regards,
> > > Tom Ogilvy
> > >
> > >
> > > "Don" wrote:
> > >
> > > > ooops....forgot to post the code....here it is:
> > > >
> > > > Sub Finddir()
> > > >
> > > > Dim FSO As Object
> > > > Dim fDir As Object
> > > > Dim fSubDir As Object
> > > >
> > > > Dim i As Long
> > > >
> > > > Set FSO = CreateObject("Scripting.FileSystemObject")
> > > > Set fDir = FSO.GetFolder("C:\Documents and Settings\Brner\My Documents\My
> > > > Music\CDG Zips")
> > > > For Each fSubDir In fDir.SubFolders
> > > > i = i + 1
> > > > Cells(i, "A").Value = fSubDir.Name
> > > > Next fSubDir
> > > >
> > > > End Sub
> > > >
> > > > "Don" wrote:
> > > >
> > > > > Tom,
> > > > >
> > > > > Must be something I'm not understanding here....and that's not
> > > > > unusual....here's what I tried but it didn't do a thing, didn't give me a
> > > > > list or even an error msg. Can you please tell me what I've done wrong here?
> > > > >
> > > > > As I indicated above in this thread, Jim's add-in worked fine and gave me
> > > > > what I wanted but I'd sure like to understand your code also. Any help would
> > > > > be greatly appreciated.
> > > > >
> > > > > Don
> > > > >
> > > > > "Tom Ogilvy" wrote:
> > > > >
> > > > > > Sub Finddir()
> > > > > > Dim FSO As Object
> > > > > > Dim fDir As Object
> > > > > > Dim fSubDir As Object
> > > > > > Dim i As Long
> > > > > > Set FSO = CreateObject("Scripting.FileSystemObject")
> > > > > > Set fDir = FSO.GetFolder("C:\MyMainSubFolder")
> > > > > > For Each fSubDir In fDir.SubFolders
> > > > > > i = i + 1
> > > > > > Cells(i, "A").Value = fSubDir.Name
> > > > > > Next fSubDir
> > > > > > End Sub
> > > > > >
> > > > > > --
> > > > > > Regards,
> > > > > > Tom Ogilvy
> > > > > >
> > > > > > "Don" wrote:
> > > > > >
> > > > > > > Hi Gang,
> > > > > > >
> > > > > > > Not sure if this is the correct forum or not but here goes....I would like
> > > > > > > to create a list of sub-folder names in either xcel or Word. I don't need to
> > > > > > > have the contents of the folders shown, only the names of same. All these
> > > > > > > sub-folders are in a seperate main folder on my C: drive. There are over 500
> > > > > > > sub-folders involved.
> > > > > > >
> > > > > > > If I'm in the wrong place, please advise where I might post this....TIA
> > > > > > >
> > > > > > > Don
> > > > > > >
> > > > > > >