Copie de fichiers

cs_FeuilleMorte Messages postés 14 Date d'inscription mardi 7 janvier 2003 Statut Membre Dernière intervention 15 juillet 2008 - 25 mars 2003 à 17:05
Serial326 Messages postés 3 Date d'inscription mercredi 14 septembre 2005 Statut Membre Dernière intervention 1 août 2007 - 13 avril 2006 à 14:43
J'utilise une fonction qui est sencée copier tous les fichiers d'un répertoire (une quarantaine voir plus dans certains cas)dans un autre quand j'utilise * ou *.*. Or cette fonction plante aléatoirement. Elle fonctionne correctement de disque à disque mais dès que je fais la copie sur une disquette ça se passe moin bien. Voici mon code:

var
vl_ShFileOp : TshFileOpStructA;
begin
vl_ShFileOp.Wnd := Application.Handle;
vl_ShFileOp.wFunc := FO_COPY;
vl_ShFileOp.pTo := PAnsiChar ('a:'); // même avec 'a:\'
vl_ShFileOp.pFrom := PAnsiChar ('c:\temp\*.*'); // ou *
vl_ShFileOp.fFlags := FOF_FILESONLY;
ShFileOperation (vl_ShFileOp);

l'erreur suivante apparait:
- sous windows XP:
"Impossible de copier Fichier : Impossible de lire à partir du fichier ou de la disquette source."
- sous windows 98:
"Impossible de copier Fichier : Erreur système de fichier (1026)"

Donc si quelqu'un connaîtrait un autre moyen de copier le contenu d'un répertoire dans un autre d'un coup, ou si quelqu'un voit l'origine de mon problème, faites moi signe.

Merci d'avance.

FeuilleMorte

3 réponses

cs_ahmed12 Messages postés 83 Date d'inscription lundi 5 mai 2003 Statut Membre Dernière intervention 9 décembre 2010
9 juil. 2003 à 17:42
oubadji
0
cs_ahmed12 Messages postés 83 Date d'inscription lundi 5 mai 2003 Statut Membre Dernière intervention 9 décembre 2010
9 juil. 2003 à 17:52
oubadji
0
Serial326 Messages postés 3 Date d'inscription mercredi 14 septembre 2005 Statut Membre Dernière intervention 1 août 2007
13 avril 2006 à 14:43
Je sais qu'il est probablement trop tard pour ça étant donné que celà a été donné en 2003, mais je voulais mettre la solution qui a fonctionné pour moi pour tous les prochains qui rechercheront à propos de ce problème.

J'avais le même problème et je n'ai eu qu'à ajouter #0 aux chemins passé à pTo et pFrom pour tout régler.
0
Rejoignez-nous