Searching the harddrive

[n00b1337]

Ok i need to konw how to Search the Hard drive for files... im going ot make a program that searches the hd for .vbps and puts them into a subdir. how would i make hte computer search???

[agmorgan]

This thread has a solution http://www.vbforums.com/showthread.p...arch+har+drive
Trouble is, its not simple to follow through.
If you do a search for "search hard drive", other solutions come up
and they aren't that simple either

[Static]

this will go through all files/folder in the dir you give it:

If txtFrmSlctn.Text = "Stainless Steel" Then
    optFrmSS.Value = True
    ElseIf txtFrmSlctn.Text = "Epoxy" ThenPublic Function RecurseFolderList(FolderName As String)  As Boolean
 
On Error Resume Next
Dim fso, f, fc, fj, f1
 
 Set fso = CreateObject("Scripting.FileSystemObject")
 
If Err.Number > 0 Then
    RecurseFolderList = False
    Exit Function
End If
 
On Error GoTo 0
If fso.FolderExists(FolderName) Then
 
    Set f = fso.GetFolder(FolderName)
    Set fc = f.Subfolders
    Set fj = f.Files
    'For each subfolder in the Folder
     For Each f1 In fc
     'Do something with the Folder Name
     Debug.Print f1
       'Then recurse this function with the sub-folder to get any'
      ' sub-folders
       RecurseFolderList (f1)
     Next
    
       'For each folder check for any files
       For Each f1 In fj
           Debug.Print f1 'This is when the file will be listed
       Next
    
    Set f = Nothing
    Set fc = Nothing
    Set fj = Nothing
    Set f1 = Nothing
 
Else
    RecurseFolderList = False
End If
 
Set fso = Nothing
 
End Function

[randem]

n00b1337


Give this a try, you will need the FileSystemObject reference in your project.

Sub ScanFolder(FolderSpec)
Dim thisFolder as Folder
Dim allFolders as Folders
 
   Set thisFolder = FSys.GetFolder(FolderSpec)
   Set allFolders = thisFolder.Subfolders
 
   For each thisFolder in allFolders
   
      Debug.Print thisFolder.ParentFolder.Path, thisFolder.Path, thisFolder.Name
 
      ScanFolder(thisFolder).Path
 
   Next
End Sub

[randem]

n00b1337

Sorry, I was rushing out the door and did not give you a complete view of things. Cut and paste this entire code excert into an empty form. Put a CommandButton and a ListBox on the form, then run the code.
Of course add the FileSystemObject reference to your code (Microsofts Scripting Runtime)

Option Explicit
 
Dim FSys As FileSystemObject
 
 
Sub ScanFolder(FolderSpec)
 
Dim thisFolder As Folder
Dim allFolders As Folders
Dim thisFile As File
Dim allFiles As Files
 
Dim i As Integer
 
   Set thisFolder = FSys.GetFolder(FolderSpec)
   Set allFolders = thisFolder.SubFolders
   
   
   For Each thisFolder In allFolders
   
      List1.AddItem thisFolder.Path   ' Add folder path to the listbox
      Set allFiles = thisFolder.Files
    
      If allFiles.Count > 0 Then
        For Each thisFile In allFiles
           List1.AddItem thisFolder.Path & "\" & thisFile.Name   ' Add folder path and filename to listbox
 
        Next
      End If
      
      Set allFiles = Nothing
      
      ScanFolder thisFolder.Path
      DoEvents
      
   Next
   
   Set thisFolder = Nothing
   Set allFolders = Nothing
   
End Sub
 
Private Sub Command1_Click()
 
   ScanFolder ("c:\")
   MsgBox "ScanFolders Complete"
   
End Sub
 
Private Sub Form_Load()
 
   Set FSys = New FileSystemObject
 
End Sub

[n00b1337]

didnt work.... how do i display the results?? becuase i need to locate the .vbp's then store themn in C:\VB Projects

[randem]

What did not work? Was it unemployed? What? The code I gave you displays every file on you PC. What do you mean did not work? you have to do some of the work.

Change the list1additem to this:

'      List1.AddItem thisFolder.Path  Comment out this line
 
' Modify List1.Additem line
 
           If Right(thisFile.Name, 4) = ".vbp" Then
              List1.AddItem thisFolder.Path & "\" & thisFile.Name
           End If

[n00b1337]

error..... user defined type not defined .....
/vbcode
Set FSys = New FileSystemObject

[randem]

n00b1337


You have to do ALL the steps:

Of course add the FileSystemObject reference to your code (Microsofts Scripting Runtime)

Reading is underated...

[n00b1337]

hehe ok im trying.... im young and not to greatly experienced... so im trying to make the code work...

[n00b1337]

ahhh im soooo stuck on this one area
[Highlight=VB]
Sub ScanFolder(FolderSpec) ' what do i do here... i cant figure it out

Dim thisFolder As fold
Dim allFolders As Folders
Dim thisFile As File
Dim allFiles As Files
and these i dont get it

[randem]

n00b1337

You have to close your vbcode tags also. What do you mean make it work what error are you getting now? I don't understand what do you do here????

[n00b1337]

Dim thisfolder
Dim allFolders
Dim thisFile
Dim allFiles
 
Dim i As Integer
 
   Set thisfolder = FSys.GetFolder(FolderSpec)  ****
   Set allFolders = thisfolder.SubFolders

this line **** = Runtime error '424'
Object required
are thoose Dimmed Correctly?

[randem]

n00b1337

Here, I have done it all for you. Just cut and paste into your project or download the project.

Option Explicit
 
Dim FSys As FileSystemObject
 
'Constant Value Description for FileAttributes
 
'Normal     0 Normal file. No attributes are set.
'ReadOnly   1 Read-only file. Attribute is read/write.
'Hidden     2 Hidden file. Attribute is read/write.
'System     4 System file. Attribute is read/write.
'Volume     8 Disk drive volume label. Attribute is read-only.
'Directory  16 Folder or directory. Attribute is read-only.
'Archive    32 File has changed since last backup. Attribute is read/write.
'Alias      64 Link or shortcut. Attribute is read-only.
'Compressed 128 Compressed file. Attribute is read-only.
 
 
Sub ScanFolder(FolderSpec)
 
Dim thisFolder As Folder
Dim allFolders As Folders
Dim thisFile As File
Dim allFiles As Files
 
Dim i As Integer
Dim x As Integer
 
   Set thisFolder = FSys.GetFolder(FolderSpec)
   Set allFolders = thisFolder.SubFolders
   
 
   For Each thisFolder In allFolders
   
'      List1.AddItem thisFolder.Path
      
      If (thisFolder.Attributes And Hidden) <> Hidden Then   ' Leave hidden directories alone
        Set allFiles = thisFolder.Files
        
        If allFiles.Count > 0 Then
          For Each thisFile In allFiles
             If Right(thisFile.Name, 4) = ".vbp" Then
                List1.AddItem thisFolder.Path & "\" & thisFile.Name
             End If
          Next
        End If
        
        Set allFiles = Nothing
        ScanFolder thisFolder.Path
      End If
 
      DoEvents
      
   Next
   
   Set thisFolder = Nothing
   Set allFolders = Nothing
   Exit Sub
   
End Sub
 
Private Sub Command1_Click()
 
   List1.Clear
   ScanFolder ("C:\")
   MsgBox "ScanFolders Complete"
   
End Sub
 
Private Sub Form_Load()
 
   Set FSys = New FileSystemObject
 
End Sub

[randem]

n00b1337

No you did not dim them correctly. Why did you change from the code I gave you?

[n00b1337]

its saying theres no such thing as diming as folder or file?? im running vb6.0? i duno... im getting farther tho brb

[randem]

n00b1337


Download the project and open that (Can't trust your typing)

[n00b1337]

Omg it is sooo messed up.... i dled urs.... it works.... i deleted mine..... pasted ur and it says that ...

Option Explicit
 
Dim FSys As FileSystemObject

Error: User-defined not Defined


Umm i Copy and pasted it just the way u said

[randem]

n00b1337

Of course add the FileSystemObject reference to your code (Microsofts Scripting Runtime)

What part of this don't you get?

Give this a try, you will need the FileSystemObject reference in your project.

or this?

It will not work without it? The project I uploaded works doesn't it? It has the reference.

[n00b1337]

Bingo.... hehe thats what i need... how do i add that in tho? im stuck on that

[randem]

n00b1337


Go to Projects->References

and select the Microsoft Scripting Runtime

and Walaaa....

[n00b1337]

Omg thank you soo much for ur time and patience U are the Vb guru in my eyes and i will always come ot u for help

[n00b1337]

I need u to help me with one more thing tho.... its much easyer... Can u tell me how to make a Label the Selected Line in the list box?

[randem]

n00b1337

I don't follow...

Could you explain better.

[n00b1337]

ok bare with me hehe.... i now have a label above the listbox...... when i select one of the .vbp's in the list, i want it to be displayed in the label ( For example if i Click one that says (C:\vb\Hi.vbp) i want it so show C:\vb\hi.vbp in the label

[kows]

Private Sub List1_Click()
  Label1.Caption = List1.List(List1.ListIndex)
End Sub

[n00b1337]

awesome thank you very much