How do I paste a set of folder NAMES into a set of cells?
 

I have a set of folders that I will be using Excel to describe the contents
of them. I'd like to be able to paste the folder names into the spreadsheet
rather than re-type all of them. I'm pretty sure there's a way to do it, but
can't figure it out. Please help!

How do I paste a set of folder NAMES into a set of cells?
 

Several methods to accomplish this.......I like Tushar's best if importing to
Excel.

To add a "Print Directory" feature to Explorer, go to
this KB Article.

http://support.microsoft.com/default...EN-US;q272623&

Or you can download Printfolder 1.2 from.....

http://no-nonsense-software.com/freeware/

I use PF 1.2 and find it to be more than adequate with custom
features.

OR Go to DOS(Command) prompt and directory.
Type DIR MYFILES.TXT

All the above create a *.TXT file which can be opened in Notepad or
Excel.

One more method if you want to by-pass the *.TXT file and pull
directly to Excel is to use Tushar Mehta's Excel Add-in. This allows filtering
and sorting once you have the data in Excel.

http://www.tushar-mehta.com/ scroll down to Add-insDirectory
Listing.

Download the ZIP file and un-zip to your Office\Library folder.


Gord Dibben MS Excel MVP

On Wed, 12 Sep 2007 14:22:01 -0700, Jedi Leba
wrote:

I have a set of folders that I will be using Excel to describe the contents
of them. I'd like to be able to paste the folder names into the spreadsheet
rather than re-type all of them. I'm pretty sure there's a way to do it, but
can't figure it out. Please help!

How do I paste a set of folder NAMES into a set of cells?
 

This returns a listing of subfolders and their subfolders, etc, from a root
directory.

Sub ListSubFolders()
Dim f As New Collection
Call GetSubfolders("C:\MyRoot", f)
Dim i As Integer
For i = 1 To f.Count
Range("A50000").End(xlup).Offset(1).Value = f(i)
Next
End Sub

Function GetSubfolders(ByVal sFolderRoot As String, ByRef cSubfoldersFound
As Collection)
Dim oFso As FileSystemObject
Set oFso = New FileSystemObject
Dim oSubfolder As Folder
Dim sFoldername As String
Dim nextrow As Long
For Each oSubfolder In oFso.GetFolder(sFolderRoot).SubFolders
sFoldername = oSubfolder.Path
cSubfoldersFound.Add sFoldername, sFoldername
Call GetSubfolders(oSubfolder, cSubfoldersFound)
Next
End Function

"Jedi Leba" wrote in message
...
I have a set of folders that I will be using Excel to describe the contents
of them. I'd like to be able to paste the folder names into the
spreadsheet
rather than re-type all of them. I'm pretty sure there's a way to do it,
but
can't figure it out. Please help!