Esiste questa cartella?

[tas]

Inoltre, quel test sull'If sarà sempre Falso, dovresti cambiarlo così:

DirRapporti = App.Path & "\Rapporti" 

If Dir(DirRapporti) = "" Then 
    MkDir DirRapporti
End If