excluir com exceções
22/03/2006
0
ex: WUTemp , RECYCLER , System Volume Information
var SF:SHFILEOPSTRUCT; begin // public FillChar(SF, SizeOf(SF), 0); SF.Wnd := Handle; SF.wFunc := FO_DELETE; SF.pFrom := pchar(PublicOrigem+´\*.*´+#0); SF.fFlags := FOF_NoConfirmation; SHFileOperation(SF); // public
Crcam
Posts
23/03/2006
Martins
Valew galera!!!
23/03/2006
Adriano Santos
É isso ai Martins, eu faria desta forma. O problema seria o tamanho do array, acredito que teria que crar um array dinâmico.
procedure TForm1.Button1Click(Sender: TObject);
var
ListaPermissoes : array of String;
I : Integer;
begin
{Limpa o Listbox}
ListBox1.Items.Clear;
{define um tamanho parao array}
SetLength(ListaPermissoes, 10);
{Aqui preencho o array com qualquer valor só para testar}
for I := 1 to High(ListaPermissoes) do
ListaPermissoes[I] := FormatFloat(´000´, I);
{Loop para imprimir as strings do array. Aqui podemos fazer uma rotina para chamar a exclusão sim ou não}
for I := 1 to High(ListaPermissoes) do
ListBox1.Items.Add(ListaPermissoes[I]);
end;
23/03/2006
Aroldo Zanela
Podem simplificar usando a classe TStringList.
23/03/2006
Martins
Podem simplificar usando a classe TStringList.[/quote:e5c2cbddaa]
Bem lembrado Aroldo, podemos fazer com TStringList, e podemos ordenar tb de forma mais fácil com essa classe.
valew
23/03/2006
Crcam
Entendi a idéia de vc´s fazer um alista de exceções mas como eu faço a fusão no código em questão
23/03/2006
Martins
23/03/2006
Martins
Boa sorte!
24/03/2006
Crcam
não posso deixar morrer um programa por causa de uma pasta
a que causa a parada critica é a System Volume Information mesmo oculta ela interrompe o processo....
25/03/2006
Crcam
ninguém pode me ajudar com esse problema? tentei fazer um esquema com o xcopy mas para variar a forma tem falhas....
por favor alguem sabe como copiar arquivos subpastas de uma forma que as pastas do sistema não dem erro?????????
25/03/2006
Martins
Pelo o Windows é complicado, pois algumas pastas contem programas ou serviços sendo executados, então isso causa a falha, ou aquela mensagem de acesso negado. O ideal seria sua rotina de cópia ignorar as pastas, sempre q chegar nela, ignorar e passar para a próxima.
Boa sorte!!
Clique aqui para fazer login e interagir na Comunidade :)
