... indirizzo = "Z:\SCHEDINE\2017\" & a & "\" & b & ".xlsm" If Dir(indirizzo) <> "" Then MsgBox "File esistente" Else MsgBox "File inesistente" End If ...