Aprire e chiudere file ciclicamente: errore anomalo

[Adrix]

Ciao, sto tentando di aprire e chiudere file in un ciclo ma non capisco perchè continua a darmi l'errore "Path not found" ecco il codice:

For indicefile = -1 To FileSala.ListCount

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

Next indicefile

FileSala è una FileListBox che visualizza dei file .dat in un percorso. Incrementando l'indice non legge alcun file nè lo chiude...soluzioni?

[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