Producing File Lists

Set strP to the path that you want to produce the file list from.
This code supprots pattern matching Ie: certain filetypes only like *.exe.

This doesn`t support recursion.

Note form moderator to the newbies:
Note that the functions below followed by $ also can be called without the $.

$ defines a string return in VB
End Note

sub GetFileList
  strP = "C:\"
  If Right$(strP, 1) <> "\" Then strP = strP + "\"
  ' strA=Dir$(strP+"\*.exe", vbDirectory) ' *.exe files only (No Folders)
  ' add vbDirectory to include folder names
  strA = Dir$(strP, vbDirectory)   '     ' get first file
  While strA > ""
      If strA <> "." And strA <> ".." Then

         If GetAttr(strP+strA) and vbDirectory then
           ' a folder
           ' a file
         End If

          'MsgBox strP + strA    ' strPathname + strFilename
      End If
      strA = Dir$ ' Get Next File
End Sub

You might also like...


Kym Manson Till the Roof comes off Till the Lights go out Till my Legs give out Can't shut my mouth I will not fall, my Wisdoms all.


Why not write for us? Or you could submit an event or a user group in your area. Alternatively just tell us what you think!

Our tools

We've got automatic conversion tools to convert C# to VB.NET, VB.NET to C#. Also you can compress javascript and compress css and generate sql connection strings.

“If debugging is the process of removing software bugs, then programming must be the process of putting them in.” - Edsger Dijkstra