hi Robert,

Dim sfoFolder As Object, sfd As Object

--
isabelle



Le 2012-06-21 02:12, Robert Crandal a écrit :
One more question Isabelle.....

What is the data type for the "sfd" variable??
Is it an integer?? It's just sitting by itself on the line
where "rw" is defined as Integer. I've never seen that
type of variable definition before.

Thanks!


"isabelle" wrote in message ...
hi Robert,

Sub List_SubFolders()
Dim fd As FileDialog, rw As Integer, sfd
Dim oFolder As String, fso As Object

'================================================= ============
'you can replace this part by oFolder = "C:\UserFolders"

Set fd = Application.FileDialog(msoFileDialogFolderPicker)
With fd
.AllowMultiSelect = False
.Show
oFolder = .SelectedItems(1)
End With
'================================================= ============

Set fso = CreateObject("Scripting.FileSystemObject")
Set sfoFolder = fso.getfolder(oFolder)

For Each sfd In sfoFolder.SubFolders
rw = rw + 1
Range("A" & rw) = Right(sfd, Len(sfd) - Len(sfoFolder) - 1)
Next
End Sub


--