[delphi]Déplacer des fichiers?

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [delphi]Déplacer des fichiers?

endemyon

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

Publicité

KrzAramis

Help Me

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

@++

endemyon

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

KrzAramis

Help Me

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

@++

os2

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

Sujets relatifs
[DELPHI] Comment avoir le look XP ?	[DELPHI] récupérer le nom d'un fichier ...
[Delphi] Recuperer des valeurs contenues dans une page web	[Delphi] Stockage d'un mot de passe. [Résolu]
[Solution technique] Accéder à des fichiers distants	VBS - Un p'tit code pour trouver les fichiers identiques sur un DD
[ Delphi ] Copier une instance de classe	[Delphi] Problème de transparence d'images
[Résolu] Free et upload de fichiers	lancer une application externe avec delphi 6 ...
Plus de sujets relatifs à : [delphi]Déplacer des fichiers?

Page générée en 0.044 secondes