Solved

How to create a file list to list all the, let's say *.txt files, in a driver?

Posted on 1998-07-03
8
138 Views
Last Modified: 2010-05-03
I need to create a list of files to list all the files in a directory (or a driver).  These files follow certain patterns (let's say *.frm, *.bas,  ....) and may be in the subdirectories, or sus-subdirectories. Then I will process each file accordingly.
0
Comment
Question by:Jingya
8 Comments
 
LVL 2

Expert Comment

by:peterwest
ID: 1464896
Hi there,

I'm not sure if you want the programme to automatically search down through the subdirectories or not.  The following code will print all of the files ending .txt in the current directory to the screen, although you could modify the *.txt property to include a directory path as well....


'Declare local variables
Dim sFileName As String

'Get the first file that matches the file mask
sFileName = Dir$("*.txt")

'Loop util no more matches are found
Do While sFileName <> ""
   
    'Display the filename
    Me.Print sFileName
   
    'Get the next file that matches the criteria
    sFileName = Dir$

Loop


Hope this helps

Pete

0
 

Expert Comment

by:qhenry
ID: 1464897
I would use a file list box with a .pattern property of '*.txt' etc. Now you can individually process each item in the list box.
qhenry
0
 
LVL 2

Expert Comment

by:peterwest
ID: 1464898
Hi again,

Another method you could use would be to use the FindFirstFile and FindNextFile API calls; these allow you to retrieve extended information relating to the files too - including file size, date etc. etc.

Pete
0
 

Author Comment

by:Jingya
ID: 1464899
I appreciate the answers. But these answers are too simple and do not answer the key point -- the list should include all the qualified files in all the sub- and sub-sub- directories. This is the key point!!  I want a smart way to do it.  I don't think this question worths more than 50 point. All we need is to list the herach of subdirectories and then dir each directory.  Principlely this is not difficult but tedious. I wonder whether we could do this  in a smart way.
0
Highfive Gives IT Their Time Back

Highfive is so simple that setting up every meeting room takes just minutes and every employee will be able to start or join a call from any room with ease. Never be called into a meeting just to get it started again. This is how video conferencing should work!

 

Author Comment

by:Jingya
ID: 1464900
Further comment:  Let me make the question more clear.  I want a code automatically search and find the sub- sub-sub- directory structure in an assigned directory or disk drive, then search each directory to find files ended with .txt and list the file name in a file name array for further processing.
0
 
LVL 2

Expert Comment

by:peterwest
ID: 1464901
So, just to quantify one more time - you want a method that will allow you to start searching, say, in the root directory and have the search performed over all sub-directories from that point.

Pete

0
 

Author Comment

by:Jingya
ID: 1464902
Pete:
     Exactly as you discribed! Thank you to help me clarify the question.

Jingya
0
 
LVL 2

Accepted Solution

by:
swilt earned 50 total points
ID: 1464903
This will search C:\ with subdirectories for either a specific file or pattern entered into a textbox (Text1) when a command button is pressed (Command1)

    Option Explicit

    Dim colFiles As Collection

    Private Sub Command1_Click()
        Dim vIte As Variant
         
        Set colFiles = New Collection
        MyFindFiles "C:\", Text1.Text
        For Each vIte In colFiles
            MsgBox vIte
        Next vIte
        Set colFiles = Nothing
         
    End Sub

    Private Sub MyFindFiles(ByVal sPath As String, ByVal sFilePattern As String)
        Dim sFile As String
        Dim vIte As Variant
        Dim colDir As New Collection
         
        On Error Resume Next
         
        sFile = Dir$(sPath & sFilePattern)
        While sFile <> ""
            If Left$(sFile, 1) <> "." Then
                colFiles.Add sPath & sFile
            End If
            sFile = Dir$
        Wend
             
        sFile = Dir$(sPath, vbDirectory)
        While sFile <> ""
            If Left$(sFile, 1) <> "." Then
                If GetAttr(sPath & sFile) And vbDirectory Then
                    colDir.Add sPath & sFile & "\"
                End If
            End If
            sFile = Dir$
        Wend
         
        For Each vIte In colDir
            MyFindFiles vIte, sFilePattern
        Next vIte
         
        Set colDir = Nothing
    End Sub
0

Featured Post

How to improve team productivity

Quip adds documents, spreadsheets, and tasklists to your Slack experience
- Elevate ideas to Quip docs
- Share Quip docs in Slack
- Get notified of changes to your docs
- Available on iOS/Android/Desktop/Web
- Online/Offline

Join & Write a Comment

Introduction I needed to skip over some file processing within a For...Next loop in some old production code and wished that VB (classic) had a statement that would drop down to the end of the current iteration, bypassing the statements that were c…
You can of course define an array to hold data that is of a particular type like an array of Strings to hold customer names or an array of Doubles to hold customer sales, but what do you do if you want to coordinate that data? This article describes…
Get people started with the process of using Access VBA to control Outlook using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Microsoft Outlook. Using automation, an Access applic…
Get people started with the process of using Access VBA to control Excel using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Excel. Using automation, an Access application can laun…

759 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

20 Experts available now in Live!

Get 1:1 Help Now