Non riesco a capire cosa ci sia di sbagliato in questo semplice codice:
codice:
Private Sub check_file(file As Integer, campi As Integer, metodo As String)

Dim righe As Integer
metodo = Trim(metodo)
Do While Not EOF(file)
    Line Input #file, buffer
    righe = righe + 1
Loop
Close (file)
If (righe Mod campi) <> 0 Then
    MsgBox "Il file" & file & " non è valido!", vbCritical, "Controllo file"
    End
End If
...
..
.
La funzione la richiamo con "Call check_file(1, 4, "input")"

Ma all'avvio del programma mi da l'errore 52 ("Nome o numero di file non valido") sulla riga del Do While Not EOF(file).

Riuscite a capire perchè?

Grazie

Pictor