Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: VB4,VB5,VB6
Expertise: beginner
Nov 18, 2000

GetFiles - Returns all the files in a directory

' Returns a collection holding all the filenames that
' match a given filespec and search attributes.

Function GetFiles(filespec As String, Optional Attributes As VbFileAttribute) _
    As Collection
    Dim filename As String
    
    Set GetFiles = New Collection
    
    ' start the search
    filename = Dir$(filespec, Attributes)
    
    Do While Len(filename)
        ' we've found a new file
        GetFiles.Add filename, filename
        ' get ready for the next iteration
        filename = Dir$
    Loop
End Function
Francesco Balena
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap
Thanks for your registration, follow us on our social networks to keep up-to-date