codice:
Dim fso As Object, f As Object     ' percorsi x i database
dim percorso as string
dim vnome as string
dim i as Integer
percorso = App.Path & "\"  
Set fso = CreateObject("Scripting.FileSystemObject")
for i = 1 to 10
vnome = vnome & i
Set f = fso.OpenTextFile(percorso & vnome, 2, True)
f.Close
next i
adattalo al tuo problema ( io ho aggiunto un ciclo x esempio)
ciao... dovrebbe funzionare.. ( non lo provato)