Ho un problema.
Dovrei controllare se un file sia già esistente.


Do While myname <> "" ' Avvia il ciclo.
......
......
......
If COPIA = 1 Then
Dim confronto As String
Dim ctrlexist As String
confronto = MyPath & "\" & nomefile
If confronto = "" Then GoTo nessuno
If Esiste.Value = 1 Then ctrlexist = Dir(confronto) 'Controlla Esistenza file
If ctrlexist <> "" Then FileCopy MyPath & "\" & myname, "C:\FileXTool\" & nomefile else GoTo nessuno
End If
Form1.List3.AddItem myname
List4.AddItem MyPath
fileFnd = fileFnd + 1
nessuno:
myname = Dir ' Legge la voce successiva.
Form1.Refresh
Loop

Nel passare ctrlexist = Dir(confronto) la variabile è vuota (anche se in Debug scrivo Prit Dir(confronto), da nullo mentre confronto è pieno e il percorso ed il file è esatto...insomma esiste nel disco).
Ho provato anche ad utilizzare l'istruzione GetAttr e, la prima volta il On Error Goto intercetta l'errore, mentre al secondo passaggio non viene intercerttato dal On Erro Goto ma da un On Error Resume Nex posizionato in un'altra Function

... insomma c'è un modo per verificare se il file esiste ? O dove sbaglio?
Grazie