ho capito,ho fatto questa funzioncina:

Public Function SalvaFolder()

On Error GoTo Errore:
Set FSO = New FileSystemObject

xConferma = FSO.CopyFolder(xPathOrigine, xPathDestinazione)


Set FSO = Nothing
Exit Function
Errore:
SalvaFolder = xConferma
End Function

ma da questo errore:

errore di compilazione:

prevista function o variabile