Get Folder Names...

[carp]

I need a sub to get all the folders in a dir. And do this:

Winsock1.SendData FolderName
FolderName = FolderName + !

DO you get what I mean?
Get a folder name, Send the name, Get the next name, Send it and so on until all the folder names have been sent??

[carp]

I'm waiting...

[John McKernan]

Private Sub GetFolders(Folderspec as String)
   Dim fso
   dim folderobj
   dim f
   dim subfolder
   dim foldername
 
   set fso = CreateOhject("Scripting.FileSystemObject")
   set folderobj = fso.GetFolder(Folderspec)
   set subfolder = folderobj.SubFolders
 
   For Each f in subfolders
      foldername = f.Name
 
      'do what you want'
   Next
End Sub

When calling the sub pass it a folder path ("C:\", etc)

[carp]

Type MisMatch and it highlights this:

For Each f In subfolders

This is how I called it:

GetFolders("C:\")

and where you put

'Do what you want'

I changed that to

List1.AddItem foldername

[mstic]

Try this variation of John McKernan's Code

Private Sub GetFolders(Folderspec as String)
   Dim fso
   dim folderobj
   dim f
   dim root
   dim foldername
 
   set fso = CreateObject("Scripting.FileSystemObject")
   set folderobj = fso.GetFolder(Folderspec)
   set root = folderobj.Foldername   ' Name or path not sure, no vb near me
 
   For Each f.subfolders in root
      foldername = f.Name
 
      'do what you want'
   Next
End Sub

I'm not on a vb-enabled box right now,, so do tell me if it works?