Salve todos amigos da Script Brasil,estou enfrentando um problema no meu código font,a finalidade dele seria fazer um backup de uma pasta,o problema é que o diretório de origem tem um espaço o qual acusa erro,se eu tirar o espaço funciona mas não posso alterar...
abaixo vai o código
var
Dados: TSHFileOpStruct;
origem, destino: String;
begin
origem:='C:\Arquivos de programas\Sistema Mar-Girius';
destino:='F:\';
begin
FillChar(Dados,SizeOf(Dados), 0);
with Dados do
begin
wFunc := FO_COPY;
pFrom := PChar(origem);
pTo := PChar(destino);
fFlags:= FOF_ALLOWUNDO;
end;
SHFileOperation(Dados);
ShowMessage('Processo finalizado. Verifique se sua cópia foi realizada corretamente.');
Pergunta
Felipe da Silva COsta
Salve todos amigos da Script Brasil,estou enfrentando um problema no meu código font,a finalidade dele seria fazer um backup de uma pasta,o problema é que o diretório de origem tem um espaço o qual acusa erro,se eu tirar o espaço funciona mas não posso alterar...
abaixo vai o código
var
Dados: TSHFileOpStruct;
origem, destino: String;
begin
origem:='C:\Arquivos de programas\Sistema Mar-Girius';
destino:='F:\';
begin
FillChar(Dados,SizeOf(Dados), 0);
with Dados do
begin
wFunc := FO_COPY;
pFrom := PChar(origem);
pTo := PChar(destino);
fFlags:= FOF_ALLOWUNDO;
end;
SHFileOperation(Dados);
ShowMessage('Processo finalizado. Verifique se sua cópia foi realizada corretamente.');
end
end;
end.
Link para o comentário
Compartilhar em outros sites
6 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.