Io uso questa funzione
Function ControllaUniqueFile(percorso As String) As String
On Error Goto errore
Open percorso For Input Access Read As #1
Close #1
ControllaUniqueFile="YES"
Exit Function
errore:
ControllaUniqueFile="NO"
Exit Function
End Function
|