Discussion :

[naute]

Bonjour .

Tout est dans le titre.

RemoveDir() et RmDir() ne peuvent supprimer que des dossiers vides. J'ai bien trouvé une solution, dans la FAQ Delphi, qui utilise ShellAPI, mais ça n'est valable que sous Windows : or, je suis sous Linux .

Si quelqu'un a une solution à me proposer, je suis preneur.

Merci d'avance.

Amicalement,
naute

[Jipété]

or, je suis sous Linux

man rm mais attention !
/!\ /!\ Tu as grave intérêt à vérifier avant d'envoyer du lourd que tes variables pointent bien sur le dossier que tu veux supprimer ! /!\ /!\

On a déjà vu des rm -rf / supprimer tout le disque, alors méfi !
Genre

Code :

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

if length(dossier) > 1 then rm -rf dossier;

[naute]

Bonjour Jipété .

Je me suis peut-être mal exprimé. Je connais la commande rm, mais, en fait, je parlais de supprimer un dossier non vide depuis un programme Lazarus, pas depuis une console Linux : en gros dans une procédure que je lancerais en cliquant sur un bouton. Évidemment, je pourrais toujours exécuter un rm dans un process, mais je préférerais utiliser, si elle existe, une procédure Lazarus déjà implémentée : ce serait plus élégant.

Je pensais que c'était implicite en faisant mention des procédures RmDir() et RemoveDir(), mais apparemment pas.

Donc, ça ne résout pas mon problèmes, mais merci quand même.

Amicalement,
naute

[Roland Chastain]

Bonjour ! Voici ma proposition. À essayer...

J'ai un doute concernant la partie relative aux attributs de fichier. Il faudrait que je creuse la question.

(Code supprimé.)

[naute]

Bonjour .

J'ai un doute concernant la partie relative aux attributs de fichier.

En ce qui concerne Linux, ton doute est justifié. Les attributs ne concernent que Windows. Sous Linux, on parle plutôt de "permissions" et leur gestion est différente.
Merci pour ton code. Je vais regarder comment il fonctionne pour voir si je peux l'adapter à mon cas, mais techniquement, il ne répond pas à mon interrogation : existe-t-il dans Lazarus une procédure ou une fonction "toute faite" qui permet la suppression d'un dossier non vide. Comme je le disais ci-dessus, je peux également exécuter la commande rm dans un TPocess mais je préférerais une solution "native".

Bah nan car rmdir existe bien sous Linux

Voui ! mais pas RemoveDir() et la commande rmdir se passe des parenthèses contrairement à la procédure RmDir() .

Pour préciser mes besoins, je dois créer, dans mon soft, un répertoire temporaire incluant des sous-répertoires et des fichiers, et, comme tout répertoire temporaire, le supprimer à la fermeture du soft.

Amicalement,
naute

[Jipété]

Évidemment, je pourrais toujours exécuter un rm dans un process, mais je préférerais utiliser, si elle existe, une procédure Lazarus déjà implémentée : ce serait plus élégant.

Perso, je préfère l'efficacité à l'élégance et quand j'ai lu ce qui précède j'ai inconsciemment instantanément pensé à TProcess.

Je pensais que c'était implicite en faisant mention des procédures RmDir() et RemoveDir(), mais apparemment pas.

Bah nan car rmdir existe bien sous Linux,

[BeanzMaster]

Salut Naute

il existe une autre commande FileUtil.DeleteDirectory dans l'unité "FileUtil"
Sinon essayes en préfixant avec le nom des unités SysUtils.RemoveDir et System.rmDir.

Essayes ça aussi (trouvé chez les anglais)

Code :

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

1
2
3
4
5
6
 
  Result := DeleteDirectory(NomeDir,True);
  if Result then 
  begin
    Result := RemoveDirUTF8(NomeDir); //LazFileUTF8,/ LazFileUtils
  end;

A+

Jérôme

[naute]

Bonjour Jérôme .

il existe une autre commande FileUtil.DeleteDirectory dans l'unité "FileUtil"

Super : c'est pile-poil ce que je cherchais.
En plus, cette procédure permet de supprimer soit le dossier complet, soit uniquement ce qu'il contient, en fonction du positionnement d'un flag, ce qui va peut-être m'être utile.


Amicalement,
Hervé