ник: ars_bs
все спасибо всем нашел как сделать
Sub nameFiles()
Dim nameFile As String
Dim mypath As String
mypath = "c:\1\*.txt"
nameFile = Dir(mypath, vbReadOnly)
i = 0
Do While nameFile <> ""
а вот сдесь пишем что надо
i = i + 1
Debug.Print nameFile, i
nameFile = Dir
Loop
End Sub