Originariamente inviato da oregon
Studia la funzione


Dir()
Ho provato così ma passa sempre per l'else...
codice:
perc = Dir1.Path & "\" & Text1.Text
If Dir("" & perc & "") = Null Then
   Open "" & perc & "" For Output As 1
   Close #1
else
   MsgBox ("già esistente"), vbExclamation
End If