Deplacer des fichiers

Résolu
gpwebmaster Messages postés 12 Date d'inscription samedi 5 juin 2004 Statut Membre Dernière intervention 24 août 2006 - 27 juin 2005 à 01:40
moldov Messages postés 165 Date d'inscription mercredi 8 octobre 2003 Statut Membre Dernière intervention 10 novembre 2008 - 27 juin 2005 à 17:26
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

moldov Messages postés 165 Date d'inscription mercredi 8 octobre 2003 Statut Membre Dernière intervention 10 novembre 2008
27 juin 2005 à 08:19
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
3
moldov Messages postés 165 Date d'inscription mercredi 8 octobre 2003 Statut Membre Dernière intervention 10 novembre 2008
27 juin 2005 à 08:22
Re



Oublie pas d'ajouter ShellAPI dans les uses;



Bonne Prog
3
moldov Messages postés 165 Date d'inscription mercredi 8 octobre 2003 Statut Membre Dernière intervention 10 novembre 2008
27 juin 2005 à 17:26
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
3
cs_neko Messages postés 135 Date d'inscription jeudi 14 août 2003 Statut Membre Dernière intervention 12 octobre 2006 1
27 juin 2005 à 14:17
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
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
gpwebmaster Messages postés 12 Date d'inscription samedi 5 juin 2004 Statut Membre Dernière intervention 24 août 2006
27 juin 2005 à 14:33
Merci pour vos reponse c'est ce que je voulais !

@+

Et Bonne prog
0
Rejoignez-nous