Código Delphi [-]if not directoryexist(sourcedir) then copiar( .... )
if not directoryexist(sourcedir) then copiar( .... )