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:

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?