grazie. Ho scritto il codice per fare il file che contiene l'elenco dei files di una directory.
Ho scritto anche un codice che dovrebbe lavorare su tutti i files di una certa directory senza utilizzare la lista dei files: la cosa strana è che a volte funziona e a volte no (???). Pare che a volte non riesca a posizionarsi nella directory di lavoro. Qualcuno mi scova l'errore?
allego il codice. In questo caso copia solo due colonne dal file di input e crea un file nuovo che termina con lo stesso nome seguito da .txt
Option Explicit
Private Sub Command1_Click()
Dim myfile As String
Dim Q, W, E, R, T, Y, U, I, O, P, A, S As String
Dim rwIndex As Integer
myfile = Dir("*.txt")
Do While myfile <> ""
ChDir ("C:\input")
Open myfile For Input As #1
For rwIndex = 1 To 50
Input #1, Q, W, E, R, T, Y, U, I, O, P, A, S
ChDir "C:\zzz"
Open myfile & ".txt" For Append As #2
Print #2, Y & "," & U
Close #2
Next rwIndex
Close #1
myfile = Dir()
Loop
End Sub
|