Searching an entire drive ( c:\ )

[iamthom]

okay okay, my friends tell me its quite easy and to use something but i cant find anything that can help me, then i turned to searching on geocities, i found the filesystemobject stuff, yet that is not helping me either.

I need a way to search the entire drive (sorta like what virus scanners do, yet much simplier, all i need it for is to check filenames) And fso doesnt have a function for that and i dont know what to do now, can anyone please help me??

[Bruce Fox]

Something like:

Option Explicit
 
'Module
 
'*******************************************************************************
'  Original Code by: KPD-Team 1999
'*******************************************************************************
 
Public Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long
Public Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
Public Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long
Public Declare Function GetFileAttributes Lib "kernel32" Alias "GetFileAttributesA" (ByVal lpFileName As String) As Long
 
Const MAX_PATH = 260
Const MAXDWORD = &HFFFF
Const INVALID_HANDLE_VALUE = -1
Const FILE_ATTRIBUTE_ARCHIVE = &H20
Const FILE_ATTRIBUTE_DIRECTORY = &H10
Const FILE_ATTRIBUTE_HIDDEN = &H2
Const FILE_ATTRIBUTE_NORMAL = &H80
Const FILE_ATTRIBUTE_READONLY = &H1
Const FILE_ATTRIBUTE_SYSTEM = &H4
Const FILE_ATTRIBUTE_TEMPORARY = &H100
 
Const ColPurple = &HFF00FF
Const ColDarkGreen = &H8000&
 
Public Type FILETIME
    dwLowDateTime As Long
    dwHighDateTime As Long
End Type
 
Public Type WIN32_FIND_DATA
    DWFILEATTRIBUTES As Long
    FTCREATIONTIME As FILETIME
    FTLASTACCESSTIME As FILETIME
    FTLASTWRITETIME As FILETIME
    NFILESIZEHIGH As Long
    NFILESIZELOW As Long
    DWRESERVED0 As Long
    DWRESERVED1 As Long
    CFILENAME As String * MAX_PATH
    CALTERNATE As String * 14
End Type
 
 
Public Function FINDFILESAPI(PATH As String, SEARCHSTR As String, FileCount As Integer, DirCount As Integer)
    Dim FILENAME As String      'WALKING FILENAME VARIABLE...
    Dim DIRNAME As String       'SUBDIRECTORY NAME
    Dim DIRNAMES() As String    'BUFFER FOR DIRECTORY NAME ENTRIES
    Dim NDIR As Integer         'NUMBER OF DIRECTORIES IN THIS PATH
    Dim i As Integer            'FOR-LOOP COUNTER...
    Dim HSEARCH As Long         'SEARCH HANDLE
 
    Dim WFD As WIN32_FIND_DATA
    Dim CONT As Integer
 
    'Search for Sub-Directories
    If Right(PATH, 1) <> "\" Then PATH = PATH & "\"
 
    NDIR = 0
 
    ReDim DIRNAMES(NDIR)
 
    CONT = True
 
    HSEARCH = FindFirstFile(PATH & "*", WFD)
 
    If HSEARCH <> INVALID_HANDLE_VALUE Then
 
        Do While CONT
 
            DIRNAME = STRIPNULLS(WFD.CFILENAME)
 
            'Ignore the current and encompassing directories
            If (DIRNAME <> ".") And (DIRNAME <> "..") Then
 
                'Check for Directory with BitWise comparison
                If GetFileAttributes(PATH & DIRNAME) And FILE_ATTRIBUTE_DIRECTORY Then
 
                    DIRNAMES(NDIR) = DIRNAME
                    DirCount = DirCount + 1
                    NDIR = NDIR + 1
                    ReDim Preserve DIRNAMES(NDIR)
 
                End If
  
            End If
 
            'Get next Sub-Directory
            CONT = FindNextFile(HSEARCH, WFD)
 
        Loop
 
        CONT = FindClose(HSEARCH)
 
    End If
 
    'Walk through this directory and Sum File sizes
    HSEARCH = FindFirstFile(PATH & SEARCHSTR, WFD)
 
    CONT = True
 
    If HSEARCH <> INVALID_HANDLE_VALUE Then
 
        Do
 
            FILENAME = STRIPNULLS(WFD.CFILENAME)
 
            If (FILENAME <> ".") And (FILENAME <> "..") Then
 
                FINDFILESAPI = FINDFILESAPI + (WFD.NFILESIZEHIGH * MAXDWORD) + WFD.NFILESIZELOW
                FileCount = FileCount + 1
 
                '****************************************************
                'Display
                If InStr(FILENAME, ".") Then
                    MsgBox PATH & FILENAME
                End If
                '****************************************************
 
            End If
 
            'Get next File
            CONT = FindNextFile(HSEARCH, WFD)
 
        Loop Until CONT = 0
 
        CONT = FindClose(HSEARCH)
 
    End If
 
    'If there are Sub_Directories, then recursively walk into them
    If NDIR > 0 Then
 
        For i = 0 To NDIR - 1
            FINDFILESAPI = _
                FINDFILESAPI + FINDFILESAPI(PATH & DIRNAMES(i) & "\", SEARCHSTR, FileCount, DirCount)
        Next i
 
    End If
 
End Function
 
Public Function STRIPNULLS(ORIGINALSTR As String) As String
' Remove NULL Characters
 
    If (InStr(ORIGINALSTR, Chr(0)) > 0) Then
        ORIGINALSTR = Left(ORIGINALSTR, InStr(ORIGINALSTR, Chr(0)) - 1)
    End If
 
    STRIPNULLS = ORIGINALSTR
 
End Function
 
 
 
 
 
'Form
 
Private Sub Form_Load()
    Call FINDFILESAPI("C:\", "*.*", 0, 0)
End Sub

[iamthom]

thank u very much, though now the only problem is is that i changed it, instead of the message box it does other commands like Files left goes down, and that sort of stuff, but the thing is is that it freezes now (im thinking just cuz its reading many many files at one time)

anything i can do about this?

[peet]

Hi iamthom,
try adding DoEvents instide your loops.

example

Do While CONT
 
            DIRNAME = STRIPNULLS(WFD.CFILENAME)
 
            'Ignore the current and encompassing directories
            If (DIRNAME <> ".") And (DIRNAME <> "..") Then
 
                'Check for Directory with BitWise comparison
                If GetFileAttributes(PATH & DIRNAME) And FILE_ATTRIBUTE_DIRECTORY Then
 
                    DIRNAMES(NDIR) = DIRNAME
                    DirCount = DirCount + 1
                    NDIR = NDIR + 1
                    ReDim Preserve DIRNAMES(NDIR)
 
                End If
  
            End If
 
            'Get next Sub-Directory
            CONT = FindNextFile(HSEARCH, WFD)
 
            [b]DoEvents[/b]
 
        Loop
 
        CONT = FindClose(HSEARCH)
 
    End If

[iamthom]

i love you! lol thank u so much, that solved my prob =D

yay, one step closer to making my program

the only problem now is that it comes up with an error (overflow) but i believe i should be able to fix that, now just to edit thecode to my liking

once again thank u both

[peet]

I'm sure Bruce love you too

mmm.. the overflow is probably an integer that hits the roof... maybe you figured it out already ?

[iamthom]

yea, i figured that out already

it was the filecount = filecount + 1 part, and filecount was defined as a integer, so i just made it a double so it coud go higher, it works now.

[simlee]

Sorry to dig up an old post folks....

The FindFile Code is excellent and almost does exactly what I am looking for except.....

Some files i might be finding may not have extensions, but I do not want the directories returned as a result. Is there anyway around this?

Thanks

Simlee

[Elminster]

Hey guys!

I found this code wonderfull, and extremelly fast. I just was wondering about one thing...

I have a lot of partitions (C:, D:, E:...)

I found out by windows that my C: have 19119 files, but using a counter in the code, it only finds 17279...


In the D: (2140 files windows says) this code found 2143 compared with what windows shows...

why it happens?

Thanks in advance,

Elminster

[RobDog888]

It is probably not finding the hidden or system files. I found this
out when using similar code, but what I did was to use a dos
search executed from within a .bat file. Also very fast.
The /s is to specify a search and the /a is to search all.

Dir C:\*.* /s /a > C_Drive_File_Contents.txt

[simlee]

*bump*

Don't suppose anyone can advise on my query?

Thanks

simlee

[Jmacp]

Well you never actually use any of these constants in the code,

Const FILE_ATTRIBUTE_HIDDEN = &H2
Const FILE_ATTRIBUTE_NORMAL = &H80
Const FILE_ATTRIBUTE_READONLY = &H1
Const FILE_ATTRIBUTE_SYSTEM = &H4
Const FILE_ATTRIBUTE_TEMPORARY = &H100

even though they're declared, so you probaly have to mod it to allow for all these files. Thats why your coming up short on the list count.

[RobDog888]

If you want to know if you are getting all the files, use the dos
method as a control. Then compare against your program. Usually
the system and hidden files wont get picked up unless you
specify the proper flags like in the above post.

HTH

[Elminster]

Hello!

How should I use the flags on the code?
Its just to declare them?

Thanks for your time,

Elminster