Discussion :

[hocine]

salut,
je sais que sur la faq il existe un astuce pour supprimer un répertoire, seulement sa ne fonctionne que si le répertoire est vide, et s'il y a quelque chose de dans, la suppression ne s'effectue pas.
Merci.

[ero-sennin]

Salut,

Est ce que c'est ceci qui tu as vu dans la FAQ ?

[hocine]

Salut,
Oui.
Comment supprimer un répertoire ?
Mais sa n'a rien donné, comme je l'ai indiqué ultérieurement.
Merci

[ero-sennin]

Salut,

Je viens de faire un test, et chez moi ça fonctionne parfaitement. J'ai créé un fichier dans C:\ qui s'appelle test et qui contient un fichier texte et une image. Tout est supprimé... Voici le code au cas où :

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
43
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,ShellApi, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
function DelDir(Dir: String): Boolean;
var fos: TSHFileOpStruct;
begin
  ZeroMemory(@fos, SizeOf(fos));
  with fos do begin
    wFunc := FO_DELETE;
    fFlags := FOF_SILENT or FOF_NOCONFIRMATION;
    pFrom := PChar(Dir + #0);
  end;
  Result := (0=ShFileOperation(fos));
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  DelDir('C:\test');
end;
 
end.

A+

[tipiweb]

Salut,

Tu utilises qu'elle OS ?
J'ai vu sur le forum que VISTA posait quelques problèmes sur la manipulation de fichiers/dossiers qui touchent au système (genre SYSTEM32)

Il est situé où ton répertoire ?

Max

[hocine]

Salut ,
je vais essayer et je vous rendrais la réponse, que j'espère favorable.
Le système : XP pack 2
MERCI.

[hocine]

Salut,
j'ai essayé votre code sa marche mais...!
voici mon code

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
 
procedure TForm1.Button5Click(Sender: TObject);
var rep,rep1:string;
begin
rep := ExtractFilePath(Application.ExeName);
rep1:=rep+'archives\archive'+form1.ComboBox1.Text;
showmessage (rep+'archives\archive'+form1.ComboBox1.Text );
if DirectoryExists(rep1) then
begin
showmessage('oui le répertoire existe');
DelDir(rep1); {j'ai essayé avec DelDir('rep1') et sa n'a rien donner}
showmessage('répertoire supprimer');
end
else
showmessage('Non le répertoire n''existe pas');
end;

ce code même si le message ''répertoire supprimer'' s'affiche mais sans résultat.
donc j'ai plusieurs archives, et je voudrais que l'utilisateur puisse choisir l'année à partir d'un combobox.
MERCI.