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

[girobai]

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