delphi 7 - ajuda

[edoO~' 1]

copiar um arquivo que está no listbox

para a pasta que está no edit...

 

ou senao

copiar um arquivo que eu selecionei no opendialog

para a pasta que está no edit..

 

 

nao estou conseguindo usar copyfile

por favor

ajudem!

[Drakar~ 0]

Talvez Sirva:

 

Uses: FileCtrl

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Onde origem.Text é o edit aonde está o caminho do arquivo que você abriu pelo opendialog e destino.Text é outro edit onde está o destino do arquivo

 

OU

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

[edoO~' 1]

tipo, o que eu queria mesmo seria ele pegar do listbox

mas mesmo eu trocando o list box por um edit

ainda nao é transferido!

 

:(

[Drakar~ 0]

Você está colocando os caminhos corretos nos Edit's ?

 

Ex: "C\windows\xx.bat" ??

[edoO~' 1]

aham

tipo..

eu coloquei uma funçao do selectdirectory

ao selecionar a pasta

esse caminho vai pro edit

xD

 

edit1.text:=(s)

 

(to usando variável s pra funçao do selectdirectory)

[Drakar~ 0]

Acabei de Testar aqui, e Funcionou!

 

Lembrei de uma coisa, não se esqueça de botar um "\" no destino, e tbm o destino deve conter o nome exato da nova cópia. Olha o Print:

 

 

e o arquivo Copiado:

 

 

[edoO~' 1]

foi isso que eu fiz...

mas num copia de jeito nenhum.

 

o.O

tem alguma outra funçao que copia sem ser copyfile?!

[Drakar~ 0]

Tente Isso:

 

Uses:

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ShellApi;

 

var
Dados: TSHFileOpStruct;
begin
FillChar(Dados,SizeOf(Dados), 0);
with Dados do
begin
wFunc := FO_COPY;
pFrom := PChar(Edit1.Text);
pTo := PChar(Edit2.Text);
fFlags:= FOF_ALLOWUNDO;
end;
SHFileOperation(Dados);
end;

 

Download do Source:

[DOWN]

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[/DOWN]

 

[edoO~' 1]

kkkkkkkkkkkkkkkkkkk

eu axo que eu sou azarado mesmo

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

to tentando fazer parecido..

eu axo que ele usou copyfile

 

e esse códique que vc passou.

da um erro

diz que nao consegue ler o arquivo ou pasta de Origem.

 

isso é azar

kpaspkoasopksakpoaskpo

[Drakar~ 0]

KKK, olha nesse você faz assim, no 1 edit vc coloca todo o caminho até o arquivo, incluindo a extenção dele.(ex: "c:\autoexec.bat") e no edit2 você coloca apenas a pasta destino(ex: "c:\windows")

[edoO~' 1]

no seu programa eu consegui sim

pow

mas no meu que nao foi

poksakopsakopsakosa

meldels

é o mesmo código, como pode!

[Drakar~ 0]

Adicione nas Uses do seu Programa: StdCtrls, ShellApi;

 

e Posta ai se deu certo. :hm:

@Edit

 

A Propósito, aparece algum erro? no Compilador.

[edoO~' 1]

nao aparece nenhum erro

porra

é o maldito edit da aba standart

ele é fudido d+

troquei por um sEdit

deu tudo certo

 

ALELUIAAAAAAAAAAAAAAAAAAAAAA

PODEM FECHAR

 

drakar

muito obrigado, desculpa te enxer!