Discussion :

[David]

Salut à tous,

voici ma question :
j'utilise la fct MoveFile (http://delphi.developpez.com/faq/?pa...eplacerfichier ) pour deplacer des fichiers (photos) d'un repertoire à un autre (tous deux dans un même lecteur).

Il s'agit d'un déplacement et non d'une copie.
Lorsque l'on fait cela manuellement avec l'explorer, ça prend 1 seconde pour que les fichiers selectionnés se retrouvent dans le dossier de destination.

Or lorsque je lance ma routine (une boucle for qui balaie un TStringList contenant tous le chemins source) le temps d'execution est tres long (plusieures minutes pour une centaine de photos, à 5Mo de moyenne par photo). De plus, le disque dur est en pleine activité d'écriture.

J'en conclu donc que cette méthode, contrairement à un simple glisser/déplacer dans l'explorer écrit une copie de chaque fichier dans le dossier de destination puis efface celui de la source.

Comment faire pour éviter la recopie des fichiers et obtenir un simple déplacement ?

Merci pour votre aide

[Gilbert Geyer]

Bonjour,

J'en conclu donc que cette méthode, contrairement à un simple glisser/déplacer dans l'explorer écrit une copie de chaque fichier dans le dossier de destination puis efface celui de la source

... effectivement l'aide dit bien à propos du flag MOVEFILE_COPY_ALLOWED :

MOVEFILE_COPY_ALLOWED
If the file is to be moved to a different volume, the function simulates the move by using the CopyFile and DeleteFile functions. Cannot be combined with the MOVEFILE_DELAY_UNTIL_REBOOT flag.

... reste plus qu'à trouver un remède pour accélérer.
... faudrait pouvoir trouver une combine dans laquelle le fichier-gravé-sur-disque reste à sa place en ne modifiant que l'intitulé du chemin qui conduit vers lui et dans ce cas le 'Move' serait quasi-instantané.

A+

EDIT du 13/01/2008 - 14h59 : Au fait au lieu d'utiliser ton 'Move' essaye donc de voir ce que donnerait tout simplement l'utilisation de la fonction RenameFile :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
   RenameFile('C:\CheminSouce\MonFichier.bmp', 'C:\CheminDestination\MonFichier.bmp');

... en encadrant ce RenameFile avec des if FileExists() pour éviter un conflit pouvant résulter de l'existance préalable d'un fichier nommé 'MonFichier.bmp' dans le répertoire de destination et pour éviter de renommer un 'MonFichier.bmp' qui n'existerait pas dans le répertoire-source.

A+

[David]

Problème résolu.
Merci cher Gilbert

[David]

j'ai un peu honte (très même), mais je ne voudrais pas laisser une fausse idée sur l'utilisation de MoveFile.
En fait cette fonction marche très bien pour déplacer des fichier et ne provoque pas de ralentissements dus à une écriture. On obtient des résultats aussi rapides qu'avec un déplacer dans l'explorer.
La longueur de mon traitement était due au fait qu'en aval du déplacement je relisais le fichier pour en afficher une vignette...
Mes premiers tests portant sur trois photos, je n'ai pas "senti" le problème, surtout que d'une compilation à l'autre les fichiers restaient certainement dans la RAM. Par contre en essai grandeur nature le problème est apparu et je l'ai faussement imputé à la fct de déplacement.

Mea culpa

[Gilbert Geyer]

Salut,

j'ai un peu honte

... y'a vraiment pas de quoi, on arrive tous à se faire piéger.

MoveFile : On obtient des résultats aussi rapides qu'avec un déplacer dans l'explorer

... mais comme MoveFile = CopyFile + Delete, t'as chronométré pour comparer avec le RenameFile qui lui ne modifie que le chemin d'accès aux fichiers et qui devrait donc être encore plus rapide ?

A+

[David]

Eh bien je n'ai pas été jusqu'à chronométrer
tout simplement parce que le résultat est immédiat.
...et identique à un RenameFile.

voici ma syntaxe:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
if not  movefile(Pchar(ListboxFiles.Strings[i]),
              Pchar(IncludeTrailingPathDelimiter(RepACreer)+ExtractFileName(ListboxFiles.Strings[i])))
                then log(fichier+ ' non déplacée,déja existante.');

comme le volume ne change pas, ça doit opérer comme un renommage simple, comme dans ta remarque :

MOVEFILE_COPY_ALLOWED
If the file is to be moved to a different volume, the function simulates the move by using the CopyFile and DeleteFile functions. Cannot be combined with the MOVEFILE_DELAY_UNTIL_REBOOT flag.

a+

[Gilbert Geyer]

Re-salut,

Eh bien je n'ai pas été jusqu'à chronométrer
tout simplement parce que le résultat est immédiat.
... et identique à un RenameFile.

... dommage pour l'absence de chrono (temps-écoulé-en-ms = GetTickCount - Strart où Start et temps écoulé type DWord)
... mais si le résultat est "immédiat" ça se comprend.

A+