Aprire e chiudere file ciclicamente: errore anomalo

[Adrix]

ho risolto

For indicefile = 0 To FileSala.ListCount-1

Open App.Path & "\database\database acquisti\sala\" & FileSala.List(indicefile) For Input As 1
Close 1

Next indicefile