Qualche idea???


Private Sub txtq_LostFocus(INDEX As Integer)
Static Y As Integer
Dim X As Currency
Dim nome, data, Path, path2 As String
Static Z As Currency
Dim tb As DAO.Recordset
.
.
.
.
.

nome = txtcli.Text
data = txtdate.Text
Path = ("C:\...........\archivio\")
path2 = (Path & nome & "\")
Open (path2 & "ART" & "_" & txtdate.Text & ".txt") For Output As #1
For INDEX = 0 To cod1.count - 1
Print #1, cod1(INDEX).Text
Next
close #1
Exit Sub
.
.
.