Ciao Alfredo,
grazie per la risposta.
La soluzione da te proposta mi dava errore #NOME.
Mi sono andato a vedere la funzione GetAttr e ho provato a modificare in questo modo:
Function IsFile(ByVal fName As String) As Boolean
On Error Resume Next
IsFile = GetAttr(fName)
End Function
Ora mi funziona, ma non vorrei che tralascio qualcosa.
Cosa cambia con l'istruzione scritta da te?
IsFile = ((GetAttr(fName) And vbDirectory) <> vbDirectory)
Grazie ancora