Populate list box with file folders

[0 Agios]

I have this code thats made to populate a list box with Excel files, what i need is to populate the list box with regular yellow file folders. What do i need to change "*.xls" to ?




Dim I As Long

With Application.FileSearch
.NewSearch
.LookIn = "\\BRYANTSERVER\Documents\Estimating\RCO Tracker folders"
.FileType = msoFileTypeAllFiles
.filename = "*.xls"
.Execute
For I = 1 To .FoundFiles.Count
ListBox2.AddItem .FoundFiles(I)
Next I
End With

 

[JLGWhiz]

I have this code thats made to populate a list box with Excel files, what i need is to populate the list box with regular yellow file folders. What do i need to change "*.xls" to ?




Dim I As Long

With Application.FileSearch
.NewSearch
.LookIn = "\\BRYANTSERVER\Documents\Estimating\RCO Tracker folders"
.FileType = msoFileTypeAllFiles
.filename = "*.xls"
.Execute
For I = 1 To .FoundFiles.Count
ListBox2.AddItem .FoundFiles(I)
Next I
End With

The only yellow file folders that I am familiar with are the ones sold at a statinery store. If you mean just any file, then you can substitute the xls with and asterisk wildcard (.filename = "*.*")

 

[0 Agios]

this is what i am using and it don't work "Object does not support this property method " error. Any ideas?

Dim I As Long

With Application.FileSearch
.NewSearch
.LookIn = "\\BRYANTSERVER\Documents\Estimating\RCO Tracker folders\"
.FileType = msoFileTypeAllFiles
.filename = "*.*"
.Execute
For I = 1 To .FoundFiles.Count
ListBox2.AddItem .FoundFiles(I)
Next I
End With

 

[MickG]

Have a look here
Copy and Move files and folders

You should be able to get what you want with a bit of modification !!!!!

 

[Kenneth Hobson]

Please paste code between code tags. Click the # icon on the toolbar to insert them.

You must be using 2003- Excel since FileSearch was removed in 2007. You should move away from FileSearch solutions.

/s looks in subfolders. /ad looks for folders. For more command shell Dir help, see:
Dir - list files and folders | Windows CMD | SS64.com

Sub Main()
  Dim myDir As String
  myDir = "\\BRYANTSERVER\Documents\Estimating\RCO Tracker folders\"
  ListBox2.List = Split(CreateObject("Wscript.Shell").Exec("cmd /c dir " & _
      """" & myDir & """" & " /b /s /ad").StdOut.ReadAll, vbCrLf)
End Sub

 

[0 Agios]

Please paste code between code tags. Click the # icon on the toolbar to insert them.

You must be using 2003- Excel since FileSearch was removed in 2007. You should move away from FileSearch solutions.

/s looks in subfolders. /ad looks for folders. For more command shell Dir help, see:
Dir - list files and folders | Windows CMD | SS64.com

Sub Main()
  Dim myDir As String
  myDir = "\\BRYANTSERVER\Documents\Estimating\RCO Tracker folders\"
  ListBox2.List = Split(CreateObject("Wscript.Shell").Exec("cmd /c dir " & _
      """" & myDir & """" & " /b /s /ad").StdOut.ReadAll, vbCrLf)
End Sub

Works great, thank you