[VB6] Copiare una cartella con FSO (File System Object)

[814(k m49!(]

Vorrei copiare la la cartella "defaultDat" e incollarla nella dir: Pth & "\Source\DB\Ait\" ma la cartella dovrebbe rinominarsi come da text1.text , solo che non capisco dove sbaglio
potete aiutarmi?
il codice che uso e' questo:

Dim fso As New FileSystemObject
fso.CopyFolder(Pth & "\Source\defaultDat", Pth & "\Source\DB\Ait\", True) = Text1.Text

e l'errore e' : Errore di compilazione: Prevista Function o variabile.

grazie

[girobai]

call fso.CopyFolder(Pth & "\Source\defaultDat", Pth & "\Source\DB\Ait\" & text1.text, True)

[814(k m49!(]

grazie