Discussion :

[defluc]

Bonjour

La question est dans le sujet.
Après avoir écumé les forums et FAQ, aucune solution ne fonctionne et pourtant, il y est affirmé le contraire. Voirhttp://www.experts-exchange.com/Prog..._20644008.html

Le problème semble résider dans la destination.
Mais que l'on fasse

Code :

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

     CopyFile(PChar(SourceDir + '*.Zip'), PChar(DestDir));

ou

Code :

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

     CopyFile(PChar(SourceDir + '*.Zip'), PChar(DestDir + ExtractFileName(SourceDir + '*.Zip')));

, rien ne se passe.

Et pourtant

Code :

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

if FileExists(SourceDir + '*.Zip')

renvoie bien True.
Alors, où est l'erreur ?

Merci pour vos explications.

[ShaiLeTroll]

Ben, tu supposerais que si la destination contient *, il faudrait que Windows devine le nom du fichier, ... CopyFile copie des fichiers, tu voudrais que la fonction comprenne implicitement que tu ne veux en fait que déplacer des fichiers d'un répertoire vers un autre ... allez, FindFirst\FindNext, comme tout le monde ... d'ailleurs dans le lien, c'est qu'il utilise, ou sinon c'est un ShellOperation ...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
class procedure ....ChangeLocalLogDirectory();
var
  SearchItem:  TSearchRec;
  PathLog: String;
  BackUpPathLog: String;
  Compteur: Integer;
const
  BackUpDir = 'BackUp\';
  LogMaskExt = '*.*';
begin
  PathLog := GetLocalLogDirectory();
  if FindFirst(PathLog + LogMaskExt, faAnyFile - faDirectory, SearchItem ) = 0 then
  begin
    try
      BackUpPathLog := PathLog + BackUpDir + 'Log ' + FormatDateTime('yyyy-mm-dd (dddd d mmmm)',Now()) + '\';
 
      Compteur := 1;
      while DirectoryExists( BackUpPathLog + 'No ' + IntToStr(Compteur) ) do 
      begin
           Compteur := Compteur + 1;
      end;
      BackUpPathLog := BackUpPathLog + 'No ' + IntToStr(Compteur) + '\';
      if not DirectoryExists(BackUpPathLog) then 
      begin
        ForceDirectories(BackUpPathLog);
      end;
 
      // Déplacement des Fichiers
      repeat
        if (SearchItem.Name <> '.') and (SearchItem.Name <> '..')  then 
        begin
          if MoveFile( PChar(PathLog + SearchItem.Name), PChar(BackUpPathLog + ExtractFileName(SearchItem.Name)) ) then 
          begin
             beep;
          end;
        end;
      until not ( FindNext(SearchItem) = 0 ); // Continuer tant que FindNext renvoi 0
    finally
          FindClose(SearchItem);
    end;
  end;
end;

[defluc]

J'ai bien lu ta réponse.

Avant de faire la copie, je fais

Code :

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

MkDir(DestDir);

et je constate que DestDir est créé en lecture seule. Et pas moyen de changer l'attribut.

J'ai déjà eu ce problème et il s'agissait d'un virus.

Je vous tiendrai au courant quand je l'aurai éliminé.

[defluc]

Question à ShaiLeTroll :
Est-ce que ta procédure fonctionne pour copier d'un CD vers le disque dur ?

[ShaiLeTroll]

MkDir ? en Delphi, c'est ForceDirectories ... sinon, ouais tu as un soucis mais je doute que CopyFile soit aussi intelligente de toute façon, sinon, je me serais bien fait chier depuis longtemps ...

EDIT, ah copie de CD, bien sur, oui elle fonctionne mais faut faire un SetAttrFile ensuite car évidemment des fichiers sur un CD c'est en lecture seule, et windows en conserve l'attribut, c'est un piège ... dommage, je n'ai plus le code source d'un mini-installeur que j'avais fait en Delphi (façon InstallShield, sauf que c'était Install Shai et tout était codé en dur), j'avais fait tout ça, et justement le lecture seule, je m'étais fait avoir la 1ère fois