Comment déplacé un fichier a partir de delphi

Fermé

fabien - 28 mars 2001 à 17:04
nabzone - 3 avril 2001 à 16:18

je voudrais déplacé un fichier à partir d'une fiche delphi 5.0 . Je dois le faire sans utilisé un OpenDialog ou un SaveDialog. Il faut que je le fasse après avoir enrgistrer le fichier sur la base SQL, afin de ne pas enregistrer le même fichier

A voir également:

Comment déplacé un fichier a partir de delphi
Fichier bin - Guide
Delphi 7 - Télécharger - Langages
Comment ouvrir un fichier epub ? - Guide
Comment réduire la taille d'un fichier - Guide
Fichier rar - Guide

1 réponse

Réponse 1 / 1

nabzone
3 avril 2001 à 16:18

dans les uses rajoute ShellAPI

procedure deplace(Handle:HWND;Source,Cible: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_MOVE; // l'action sera un déplacement
lpFileOp.pFrom:=TabFrom; // contient le ou les fichiers /dossiers à déplacer
lpFileOp.pTo:=PAnsiChar(Cible); // ce vers quoi on déplace
lpFileOp.fFlags:=FOF_ALLOWUNDO; // préserve la possibilité d'annuler le déplacement
// + FOF_RENAMEONCOLLISION; //si le fichier cible existe déjà, il le copie sous un nom du style copie (1) de..

SHFileOperation(lpFileOp); // procède au déplacement
end;

==================================
pour exécuter la procédure

deplace(Handle, 'c:\fichier.txt','c:\00000\fichier.txt');

va voir sur ce site http://perso.wanadoo.fr/bardou/

Discussions similaires

Annuaire portable gratuit à partir d'un nom