directory loop

[Thai]

Hello, I am trying to write a program that loops every every file/sub-dir in a specified path and repair/compact every MDB it finds. I have figured out how to repair/compact the db, but how do I loop through every file in a specified path? Like I would tell the program to start at S:\DATA and it would find all of the MDB's in S:\DATA and its sub-dirs and repair/compact the db. Any help would be appreciated, thanks!

Thai

[HeSaidJoe]

'loop through a dir

Dim sDir As String
sDir = Dir("C:\*.*", vbNormal + vbHidden + vbArchive + vbReadOnly + vbSystem)
While sDir <> ""
sDir = Dir
'do whatever

Wend

[Thai]

That doesn't check the subdirectories and it also doesn't return the full path of the filename. I need something that will loop through every sub dir also and return the full path so I can plug it into my repair/compact function.

Thanks though,
Thai

[MrShickadance]

A recursive function is what you need.

Function rec_dir_func
root dir
repair files if any found
Loop Through list of sub dirs in root dir
rec_dir_func(new root path)
Next Loop
End Function

[kedaman]

For subdirectories and files:
This is my classmodule from which you can fire the events, but you can simply put your own code instead of the raisevent statements.

Option Explicit
Event Filecatch(File As String, Path As String, level As Integer)
Event Direcatch(dire As String, Path As String, level As Integer)
Public curlevel%
Public filemax&
Public diremax&
Public tid&
Sub explore(startdir$, Optional pauses = 100)
Dim tids&
    tids = Timer
    filemax = 0: diremax = 0:  curlevel = 0
    If Right(startdir, 1) <> "\" Then startdir = startdir & "\"
    SubFiles startdir, pauses

    tid = Timer - tids
End Sub

Function SubFiles(Path$, Optional pauses = 100): Dim i&, dmax&, dirname$, dire$(), waiter&
    dirname = Dir(Path, 63)
    Do While dirname <> ""
        If dirname <> "." And dirname <> ".." Then
            If Int(GetAttr(Path + dirname) / 16) Mod 2 = 1 Then
                    If (dmax Mod 10) = 0 Then
                        ReDim Preserve dire(dmax + 10)    ' Resize the array.
                    End If
                diremax = diremax + 1: dmax = dmax + 1
                dire(dmax) = dirname
                RaiseEvent Direcatch(dirname, Path, curlevel)
            Else
                filemax = filemax + 1
                RaiseEvent Filecatch(dirname, Path, curlevel)
            End If
        End If
            dirname = Dir   ' Get another directory name.
        waiter = waiter + 1: If waiter Mod (pauses) = 1 Then DoEvents
    Loop
    For i = 1 To dmax
        curlevel = curlevel + 1
        SubFiles Path & dire(i) & "\"
    Next i
    curlevel = curlevel - 1
End Function

[Edited by kedaman on 06-19-2000 at 08:29 PM]