SonghaySystem(::)

The Funky Knowledgebase:
Visual Basic for Applications

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 = "C:\"
    
    strName = VBA.Dir(strPath, vbDirectory)
    
    Do While strName <> Empty
        'Ignore file system directories.
        If strName <> "." And strName <> ".." Then
            ' Use bitwise comparison to make sure strName is a directory.
            If (VBA.GetAttr(strPath & strName) And vbDirectory) > 0 Then
                Debug.Print "Directory: " & strName
            ' Use bitwise comparison to make sure strName is a file.
            ElseIf (VBA.GetAttr(strPath & strName) And vbDirectory) = 0 Then
                Debug.Print "File: " & 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

This document was last reviewed on Monday, November 30, 1998 at 06:36 PM PST.

Copyright© 2008 by Bryan D. Wilhite All rights reserved. No part of this material may be used or reproduced in any form or by any means, or stored in a database or retrieval system, without prior written permission of the publisher except in the case of brief quotations embodied in critical articles and reviews. Making copies of any part of this material for any purpose other than your own personal use is a violation of United States copyright laws.

The information provided by Bryan D. Wilhite at kintespace.com is provided “as is” without warranty of any kind. In no event shall Bryan D. Wilhite or any of his affiliates be liable for any damages whatsoever including, but not limited to, direct, indirect, incidental, consequential, loss of business profits or special damages due to material published by Bryan D. Wilhite or any of his affiliates.

SonghaySystem(::)

The Funky Knowledgebase:Visual Basic for Applications

Code: Scanning A Root for Files and Directories

The Funky Knowledgebase:
Visual Basic for Applications