Discussion :

[vmagnini]

Bonjour à tous,

je rencontre un problème avec Windows : j'ai réalisé un programme de sauvegarde des différents fichiers journaliers de ma gestion de données, ceci en créant un dossier de cette forme " 29-10 18-11-34 " généré par les fonctions "dates" de Delphi.
Lorsque je veux supprimer ces dossiers Windows me demande de les vider, ok je les vide, ensuite Windows me dit que ces dossiers sont introuvables...bien que visibles dans l'explorateur.
J'ai essayé plusieurs méthodes sans succès pour les supprimer.
La seule solution que j'ai à ce jour :
une bizarrerie de Windows qui ne les trouve pas mais qui accepte de les déplacer,
je crée un nouveau dossier dans lequel je glisse ces dossiers vides indésirables afin de ne plus les voir dans mon architecture de gestion.
findfirst, findnext deletefile ne réagissent pas ...
Si quelqu'un à une suggestion merci d'avance

[fbalien]

Bonjour

vous avez mis un espace en debut et fin de nom des repertoires ?
Quel version de Windows et delphi ?

[vmagnini]

Bonjour
delphi XE7 pas d'espace à l'avant du nom de fichier
les sauvegarde ont été effectuées sous Windows 95, 7 et en ce moment Windows 10.
Remplis ou vides ces répertoires qui ne sont pas " vus " restent déplaçables.
J'ai fait hier un test nouveau :
Après avoir créer une nouvelle partition sur le disque j'ai déplacé ces dossiers dans cette nouvelle partition et la suppression s'est faite sans plus...
Toutefois je ne considère pas cela comme la solution car un utilisateur lambda ne saurait l'effectuer.

[Andnotor]

une bizarrerie de Windows qui ne les trouve pas mais qui accepte de les déplacer

Pas forcément, ça dépend des fonctions utilisées, un MoveFileW peut passer alors qu'un MoveFileA va échouer^*. Et ce n'est pas ici une question d'encodage mais de longueur de chaîne.

Les chaînes (chemin\fichier) ne doivent pas dépasser MAX_PATH (260 caractères) à moins de les préfixer par \\?\. As-tu essayé de passer le paramètre sous la forme \\?\c:\monrep\monfichier ?

Si ce n'est pas ça, s'il te plaît soit plus précis dans la description du problème. Difficile de faire la part des choses entre Windows 95 (!), les API, l'Explorateur de fichiers, Internet Explorer (IE dans le titre), les opérations manuelles et celles automatisées...



^* Depuis Windows 10 Anniversary, on peut supprimer définitivement ce besoin de préfixer pour autant qu'on utilise les versions Unicode (W) des fonctions (Delphi les utilise par défaut) :
HKLM\SYSTEM\CurrentControlSet\Control\FileSystem -> LongPathsEnabled.

[vmagnini]

Bonjour et merci de ces renseignements.

Je ne suis pas grand spécialiste de Windows malheureusement et je me contente de programmer avec Delphi.
En fait j'utilise la fonction "supprimer" proposée par l'API et comme je l'ai indiqué précédemment que le dossier soit vidé de son contenu ou pas le résultat est le même :
'Introuvable'.
Ce que j'ai oublié de dire c'est que des dossiers de sauvegarde se trouvent eux-mêmes placés dans un dossier conteneur ce qui donne à titre d'exemple :
Sauvegarde :
28-08-2017 15-32
29-08-2017 17-10
etc.
Lorsque je veux supprimer ou renommer les sous-dossiers ce sont ceux-là qui sont en cause, par contre je renomme le dossier principal "Sauvegarde" sans problème,
le déplace et le résultat est toujours le même sauf comme je l'ai indiqué si je le déplace dans un disque différent et encore ce n'est pas systématique..

[Andnotor]

Ca n'aide pas.

Donne-nous le chemin complet et montre-nous le code de la boucle FindFirst/FindNext.

[vmagnini]

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
procedure readdir(path : string);
 
var
  sRec       : TSearchRec;
  i,result     : integer;
  st : string;
  st2         : PWideChar;
begin
  if FindFirst (path,faanyFile,SRec) = 0 then
   begin
     repeat
       findnext (SRec);
       st := srec.name;
       if (st = '.') or (st = '..') then st := '';
       st2 := PWideChar(WideString(st)) ;
       DeleteFile(st2);
       result := findNext (SRec);
    until result <> 0;
   end;
end;

Ce code a été modifié plusieurs fois sans aucun effet ni delete ni rename ou autre

[fbalien]

Bonjour

il me semble que st2 ne contient que le nom du fichier
il faut donc construire le nom complet en concaténant path et st2

[Andnotor]

...et FindNext est appelé deux fois pas boucle !

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
procedure readdir(Path : string);
var
  SRec :TSearchRec;
 
begin
  Path := IncludeTrailingPathDelimiter(Path);
 
  if FindFirst(Path +'*', faAnyFile, SRec) = 0 then
  repeat
    if (SRec.Name <> '.') and (SRec.Name <> '..') then
      DeleteFile(Path +SRec.Name);
  until FindNext(SRec) <> 0;
 
  FindClose(SRec);
end;

[vmagnini]

j'ai copié ce code mais à la compil Delphi envoie erreur : Types incompatibles "PWidechar" et "String"

[Andnotor]

Dans les uses, déplace SysUtils après Windows.

[vmagnini]

Dans les uses, déplace SysUtils après Windows.

sysutils se trouve dans uses

[Andnotor]

sysutils se trouve dans uses

Je m'en doute bien mais tu n'as pas compris ; l'ordre dans lequel apparaissent ces unités est important si plusieurs d'entres-elles déclarent une procédure du même nom (ici DeleteFile).

SysUtils.DeleteFile attend une string alors que Windows.DeleteFile un PChar.

Sinon, tu peux aussi modifier l'appel comme suit DeleteFile(PChar(Path +SRec.Name)).

[vmagnini]

Merci d'avoir bien voulu t'intéresser à mon problème, toutefois, après bien des essais rien ni fait Windows a ses manies...
J'ai donc pris la décision radicale : réécrire ma sauvegarde et reformater la partition qui contient 4 années de sauvegardes journalières (4 fois par jour ouvré) cela libérera une bonne partie du stockage.
Je suis en charge, depuis 24 ans, de la gestion d'une PME d'une soixantaine d'employés et il me reste peu de temps pour chercher.
Encore merci
V.magnini