Deplacer des fichiers [Résolu]

Signaler
Messages postés
12
Date d'inscription
samedi 5 juin 2004
Statut
Membre
Dernière intervention
24 août 2006
-
Messages postés
165
Date d'inscription
mercredi 8 octobre 2003
Statut
Membre
Dernière intervention
10 novembre 2008
-
Y'a t-il une fonction pour deplacer toutles fichiers d'un repertoire à un autre, parce qu'avec la fonction MoveFile ou MoveFileEx je ne peux déplcer qu'un fichier par un fichier mais en plus il faut connaitre leur nom ?

5 réponses

Messages postés
165
Date d'inscription
mercredi 8 octobre 2003
Statut
Membre
Dernière intervention
10 novembre 2008

Salut,



Je pense que cette fonction devrais résoudre ton probleme



function MoveDir(const fromDir, toDir: string): Boolean;

var

fos: TSHFileOpStruct;

begin

ZeroMemory(@fos, SizeOf(fos));

with fos do

begin

wFunc := FO_MOVE;

fFlags := FOF_FILESONLY;

pFrom := PChar(fromDir + #0);

pTo := PChar(toDir)

end ;

Result : (0 ShFileOperation(fos));

end;



Tu passe le répertoire d'origine plus le destination en parametre



Bonne Prog
Messages postés
165
Date d'inscription
mercredi 8 octobre 2003
Statut
Membre
Dernière intervention
10 novembre 2008

Re



Oublie pas d'ajouter ShellAPI dans les uses;



Bonne Prog
Messages postés
165
Date d'inscription
mercredi 8 octobre 2003
Statut
Membre
Dernière intervention
10 novembre 2008

Salut,



Et bah pour eviter le bloquage tu le met dans un thread comme ca plus ed probleme.



Bonne Prog



Ne pas oublié de cliquer sur Reponse Accepter si celle-ci vous convient
Messages postés
135
Date d'inscription
jeudi 14 août 2003
Statut
Membre
Dernière intervention
12 octobre 2006

Il faut tout de même se méfier, cette technique bloque completement l'application tan que le fichier n'a pas fini de bouger

bouh
Messages postés
12
Date d'inscription
samedi 5 juin 2004
Statut
Membre
Dernière intervention
24 août 2006

Merci pour vos reponse c'est ce que je voulais !

@+

Et Bonne prog