[delphi]Déplacer des fichiers?

Marsh Posté le 23-09-2003 à 15:32:48

Comment faire pour déplacer tous les fichiers d'un répertoire vers un autre, puis supprimer le répertoire source?

---------------
Mes photos : http://500px.com/endemyon

Reply

Marsh Posté le 23-09-2003 à 15:32:48

Reply

Marsh Posté le 23-09-2003 à 16:42:42

Deja je te conseille de procurer l excellente collection de code appellée D:Tnt url= www.d-tnt.co.uk car la reponse a ta question y est. Un exemple ?

Code :

//CopyAllFiles() will copy a set of files or a directory of your choice.
// It also displays the same animation of the operation as does Windows Explorer.
//You can pass wildcards to the function. In order to copy a directory, do not include the last
backslash.
//For example: CopyAllFiles('C:\ThisDirectory', 'C:\AnotherDirectory', False);
//The 'False' parameter tells the function to not rename files if they already exist.
// If set to 'True', the new files will have 'Copy of ...' appended to the name. }
uses ShellAPI;
function CopyAllFiles(sFrom, sTo: string; Protect: boolean): boolean;
{ Copies files or directory to another directory. }
var
F: TShFileOpStruct;
ResultVal: integer;
tmp1, tmp2: string;
begin
FillChar(F, SizeOf(F), #0);
Screen.Cursor := crHourGlass;
try
F.Wnd := 0;
F.wFunc := FO_COPY;
{ Add an extra null char }
tmp1 := sFrom + #0;
tmp2 := sTo + #0;
F.pFrom := PChar(tmp1);
F.pTo := PChar(tmp2);
if Protect then
F.fFlags := FOF_RENAMEONCOLLISION or FOF_SIMPLEPROGRESS
else
F.fFlags := FOF_SIMPLEPROGRESS;
F.fAnyOperationsAborted := False;
F.hNameMappings := nil;
Resultval := ShFileOperation(F);
Result := (ResultVal = 0);
finally
Screen.Cursor := crDefault;
end;
end;

Sachant que ta le chemin de depart il te suffit de faire un deldete et le tour est joue

@++

Reply

Marsh Posté le 23-09-2003 à 18:27:28

Merci pour la réponse et le lien , j'ai juste remplacé FO_COPY par FO_MOVE et ça marche pile comme je le veux.

---------------
Mes photos : http://500px.com/endemyon

Reply

Marsh Posté le 23-09-2003 à 19:07:31

[:ddr555]
No problem pour une fois que j ai la bone reponse avant antp :whistle:
[:kamool]

@++

Reply

Marsh Posté le 23-09-2003 à 19:15:58

il me semble qu,avec le move on ne peut pas déplacer un fichier d'un hd à un autre ou d'une partition à une autre...

---------------
Borland rulez: http://pages.infinit.net/borland

Reply