Como salvar um arquivo que esta no ShellListView1
Olá! Sweleciona a pasta, tudo certo, exibe os arquivos no ShellListView1. mas Preciso salvar automaticamente os arquivos que estão nele, na verdade são imagens .jpg. Os arquivos estao na memoria de uma camera digital. Não consigo dar um savetofile (´C:\´) dos arquivos. Alguem pode me ajudar
for liX3 := 0 to ShellListView1.Items.Count - 1 do
begin
// doload(shelllistview1.Folders[liX3].PathName);
//
ShellListView1.Items[liX3].Selected := True;
if ShellListView1.Items[liX3].selected = true then
begin
// verifica se existe a pasta, caso contrário, a cria
// SaveToFile(´C:\Documents and Settings\TR55057\Desktop\Imagens_Camera\´+ShellListView1.Folders[liX3].PathName);
end;
//
end;
for liX3 := 0 to ShellListView1.Items.Count - 1 do
begin
// doload(shelllistview1.Folders[liX3].PathName);
//
ShellListView1.Items[liX3].Selected := True;
if ShellListView1.Items[liX3].selected = true then
begin
// verifica se existe a pasta, caso contrário, a cria
// SaveToFile(´C:\Documents and Settings\TR55057\Desktop\Imagens_Camera\´+ShellListView1.Folders[liX3].PathName);
end;
//
end;
Marciopoffo
Curtidas 0