Bonjour à tous
Mon prog doit supprimer une arborescence complète, avant de la copier à nouveau depuis le disque C: . Je passe par ShFileOperations, qui ne me pose habituellement aucun pb (sous XP). Certains fichiers sont protégés, soit, mais sous XP, ça passe.
Sopus Seven, non. J'ai ce message :
[img] http://data.imagup.com/10/1139222521.PNG [/img]
Or, la routine employée est exactement la même :
Procedure Effacer(Handle:HWND;Source:String);
var
lpFileOp:TSHFILEOPSTRUCTA;
TabFrom:array[0..255] of char;
i:integer;
begin
For i:=0 to length(Source)-1 do TabFrom[i]:=Source[i+1];
TabFrom[length(Source)]:=#0;
TabFrom[length(Source)+1]:=#0;
lpFileOp.Wnd:=handle;
lpFileOp.wFunc:=FO_DELETE; // l'action sera un effacement
lpFileOp.pFrom:=TabFrom; // contient le ou les fichiers /dossiers à recopier
lpFileOp.pTo:='';
lpFileOp.fFlags:=FOF_NOCONFIRMATION;
SHFileOperation(lpFileOp); // procède à l'effacement
end;
Et, qui plus est, je déprotège intégralement l'arborescence visée avant d'envoyer l'ordre de son effacement.
Ca vous parle, vous ?
Merci
Message édité par HERIBERT le 23-12-2011 à 10:48:21