If Dir("c:\programmi\nomecartella ") = "" Then MsgBox "non esiste"