• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 128
  • Last Modified:

Reading multiple files in a folder

I am using VB 6.0 to extract specific data from text files and write them to another text file. The problem I am encountering is that I need a way to just continuously read the hundreds of files I have in a folder. I know it requires a loop but the files which can be called something like "2569310.pas". If the next file was the above file + 1 then there would be no problem since I could use a counter and add one. The number could be 1000 in difference so I'm continuously getting a "file not found error" and the program dies. Does anyone know any way to get around this?
1 Solution
Use the dir command to get their names e.g

Dim x
x = Dir("c:\")
While x <> ""
    Debug.Print x
    x = Dir
Search for all .pas files in the directory:

Private Sub Command1_Click()
    Dim sFilename As String
    On Error GoTo ERRFILE
    sFilename = Dir("c:\blabla\*.pas", vbNormal)
    Do While (sFilename <> "")
        Debug.Print sFilename
        'Process the file
        'Get the next file
        sFilename = Dir()
    Exit Sub
    MsgBox Err.Description
End Sub
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Free Tool: Path Explorer

An intuitive utility to help find the CSS path to UI elements on a webpage. These paths are used frequently in a variety of front-end development and QA automation tasks.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now