Search For All Exe's

How can i search the computer for all the exe files?
So the program returns the path of the file, mabye into a listbox, all a text file, thats not the important bit.

Any Ideas how to search the computer for .exe files?

And would i be able to change exe to any other file type ?

thanks

i ParadoX

Why would you want to change the file type?

I dont mean like change the file type of the EXE, i meant like change the search criteria to search for jpg or Wav files.

But its looking for EXE's thats i need to be able to do

Any ideas?

Are you talking about your VB program emulating the Windows Search?

You could use the VB dir function to find a file pattern in a specific directory.

You could use the DOS dir function with the /S option to find files in subdirectories too, and any other option to format the output, and redirect output to a file. Then open the file and have your way with it.

There's also an API call to FindFile or something like that, but I forget. Not much help there, but you could look or someone else might remember what it is.

Quote:

---

Originally Posted by vbmom

You could use the VB dir function to find a file pattern in a specific directory.

You could use the DOS dir function with the /S option to find files in subdirectories too, and any other option to format the output, and redirect output to a file. Then open the file and have your way with it.

There's also an API call to FindFile or something like that, but I forget. Not much help there, but you could look or someone else might remember what it is.

---

To list files in a directory : http://www.vbforums.com/showthread.php?t=244915

This will probably help.

Thanks fo the help, the link;
http://www.vbforums.com/showthread.php?t=244915
Really helped, as that program is nearly what i want.

Then only thing that i want to change, and i cant figure out how is:

1 The program wont search sub-directories, can the code be edited to be able to do that.

2 I cant Figure out how to change the Program so it only Searches for Exe Files, can anyone help me on how to change the code?

If you do not want to download the File then the code is below, Thanks!

iParadoX

VB Code:

Private Sub Command1_Click()
    Dim strStartPath As String
    strStartPath = "C:\" 'ENTER YOUR START FOLDER HERE
    ListFolder strStartPath
End Sub
 
Private Sub ListFolder(sFolderPath As String)
    Dim FS As New FileSystemObject
    Dim FSfolder As Folder
    Dim File As File
    Dim i As Integer
    
    Set FSfolder = FS.GetFolder(sFolderPath)
    Text1.Text = ""
    For Each File In FSfolder.Files
        DoEvents
        Text1.Text = Text1.Text & File & vbCrLf
    Next File
    Set FSfolder = Nothing
End Sub

I can now get a listbox and populate it with the names of the exe files, but this method does not show the whole path of the application, which i desperatly need it to do.

Also also will only search in one directory, and not search the subdirectories, can i edit the code to allow that?

Thanks a lot

the code is

VB Code:

Private Sub ListFiles(strPath As String, Optional Extention As String)
'Leave Extention blank for all files
    Dim File As String
    
    If Right$(strPath, 1) <> "\" Then strPath = strPath & "\"
    
    If Trim$(Extention) = "" Then
        Extention = "*.*"
    ElseIf Left$(Extention, 2) <> "*." Then
        Extention = "*." & Extention
    End If
    
    File = Dir$(strPath & Extention)
    Do While Len(File)
        List1.AddItem File
        File = Dir$
    Loop
End Sub
 
Private Sub Form_Load()
ListFiles "C:\", "txt"
End Sub

Did you try the second (API way) example in that thread? It seems to do what you want.

thanks For all your Help

iParadoX

Really a good threat