Code: Scanning A Root for Files and Directories

Public Function basScan() As Boolean

Dim strPath As String, strName As String

On Error GoTo basScan_Err

basScan = True    

strPath = &quot;C:&bsol;&bsol;&quot;

strName = VBA.Dir(strPath, vbDirectory)

Do While strName &lt;&gt; Empty
    'Ignore file system directories.
    If strName &lt;&gt; &quot;.&quot; And strName &lt;&gt; &quot;..&quot; Then
        ' Use bitwise comparison to make sure strName is a directory.
        If (VBA.GetAttr(strPath & strName) And vbDirectory) &gt; 0 Then
            Debug.Print &quot;Directory: &quot; & strName
        ' Use bitwise comparison to make sure strName is a file.
        ElseIf (VBA.GetAttr(strPath & strName) And vbDirectory) = 0 Then
            Debug.Print &quot;File: &quot; & strName
        End If
    End If
    ' Get next entry for current path.
    strName = VBA.Dir
Loop

basScan_Exit: Exit Function

basScan_Err: Select Case VBA.Err Case Else VBA.MsgBox VBA.Err & ": " & VBA.Err.Description, _
vbCritical, "basScan Error" basScan = False Resume basScan_Exit End Select End Function

mod date: 1998-12-01T02:36:08.000Z