How to find multiple files with the same part of filename?

[vip2k]

Hi everyone,

i was just wondering how to find multiple files with the same part of filename and just 1 character different.

eg. if i want "abc_$.txt"

i want to find "abc_1.txt", "abc_2.txt", "abc_3.txt", etc within the same directory

thanks buds

[CVMichael]

Something like this:

Option Explicit
 
Private Sub Form_Load()
    Dim sFile As String
    Dim sDir As String
    
    sDir = "C:\"
    sFile = Dir(sDir & "abc_?.txt", vbArchive)
    
    Do Until Len(sFile) = 0
        If sFile <> "." And sFile <> ".." Then
            Debug.Print sDir & sFile
        End If
        
        sFile = Dir
    Loop
End Sub

[vip2k]

coooool, it works, thanksssssss

[vip2k]

one more question,

what if i want to get all file from a specific directory.

eg. if i want "*.txt"

i want to find all .txt files within the same directory

thanks buds

[bushmobile]

just change the search string - i'm also pretty sure that . and .. don't get returned if you specify a search string, so you can do:

Private Sub Form_Load()
    Dim sFile As String
    Dim sDir As String
    
    sDir = "C:\"
    sFile = Dir(sDir & "*.txt", vbArchive)
    
    Do While Len(sFile)
        Debug.Print sDir & sFile
        
        sFile = Dir
    Loop
End Sub

[vip2k]

Thanks, but sFile giving me a empty string?!? (see code below)

Private Sub Form_Load()
Dim sFile As String
Dim sDir As String

sDir = "C:\"
sFile = Dir(sDir & "*.txt", vbArchive) <-- sFile giving me a empty string?!?

Do While Len(sFile)
Debug.Print sDir & sFile

sFile = Dir
Loop
End Sub

[bushmobile]

you've definitely got some txt files in C:\ ?

try

sFile = Dir(sDir & "*.txt")

[vip2k]

haha, ops, i didn't have any txt file in C:.. it works now, thankss bud