Discussion :

[michel71]

Bonjour,

Comment je peux ajouter un dossier(sans l'ouvrir) dans un Tlistbox

Code :

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

1
2
3
4
5
 
procedure Tcopier.Button1Click(Sender: TObject);
begin
    if OpenDialog1.Execute then liste.Items.Add(OpenDialog1.FileName);
end;

Avec cette procédure je peux ajouter un fichier mais je ne peux pas ajouter un dossier
Je voudrais pouvoir ajouter les deux sans distinction

Merci

[Charly910]

Bonjour,

je pense qu'il faudrait que tu passe par FindFirst et FindNext pour tout récupérer y compris les sous répertoires
Voici l'aide de D7 sur FindFirst :

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
44
45
procedure TForm1.Button1Click(Sender: TObject);
 
var
  sr: TSearchRec;
  FileAttrs: Integer;
begin
  StringGrid1.RowCount := 1;
  if CheckBox1.Checked then
    FileAttrs := faReadOnly
  else
    FileAttrs := 0;
  if CheckBox2.Checked then
    FileAttrs := FileAttrs + faHidden;
  if CheckBox3.Checked then
    FileAttrs := FileAttrs + faSysFile;
  if CheckBox4.Checked then
    FileAttrs := FileAttrs + faVolumeID;
  if CheckBox5.Checked then
 
    FileAttrs := FileAttrs + faDirectory;
  if CheckBox6.Checked then
    FileAttrs := FileAttrs + faArchive;
  if CheckBox7.Checked then
 
    FileAttrs := FileAttrs + faAnyFile;
 
  with StringGrid1 do
  begin
    RowCount := 0;
 
    if FindFirst(Edit1.Text, FileAttrs, sr) = 0 then
 
    begin
      repeat
        if (sr.Attr and FileAttrs) = sr.Attr then
        begin
        RowCount := RowCount + 1;
        Cells[1,RowCount-1] := sr.Name;
        Cells[2,RowCount-1] := IntToStr(sr.Size);
        end;
      until FindNext(sr) <> 0;
      FindClose(sr);
    end;
  end;
end;

Ce code place les éléments dans un TStringGrid, ce qui est proche de ton cas

A+

Charly

[michel71]

Merci, mais en fait je me suis surement mal expliqué.

Le problème vient de la boite de dialogue qui lorsque je sélectionne un dossier l'ouvre automatiquement.

J'essaie de créer une appli pour faire des sauvegardes, donc je veux sélectionner des fichiers et dossiers puis lancer la sauvegarde (copie de ces éléments sur un disque externe)

Merci

[popo]

Au hasard sans vraiment pousser très loin, je tenterai un ExtractFilePath.

Code :

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

1
2
3
4
procedure Tcopier.Button1Click(Sender: TObject);
begin
    if OpenDialog1.Execute then liste.Items.Add(ExcludeTrailingPathDelimiter(ExtractFilePath(OpenDialog1.FileName)));
end;

PS : le ExcludeTrailingPathDelimiter est juste là pour enlever le backslash de fin parce que je trouve que çà fait plus joli.

Après tu peut jouer avec RigthStr (ou StrRight je ne sais jamais) pour prendre uniquement le dernier répertoire

[Charly910]

Pour les répertoires tu peux utiliser SelectDirectory :

Code :

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

1
2
  If SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt],0) then
    liste.Items.Add(Dir) ;

mais cela ne marche pas pour les fichiers pour lesquels il faudrait que tu conserves TOpenDialog.

L'idéal serait un explorer de fichier avec des cases à cocher devant les fichiers et les répertoires, mais je ne sais pas si cela existe.

A+

Charly

[Jipété]

Salut,

(...) L'idéal serait un explorer de fichier avec des cases à cocher devant les fichiers et les répertoires, mais je ne sais pas si cela existe.

A+

Charly

Ce n'est pas l'idéal, c'est ce qu'il faut ! C'est ce qu'utilise NTBackup, par exemple.
Ça existe sur le web, mais c'est moche :
http://www.delphipages.com/forum/sho...d.php?t=167210
http://gtro.com/delphi/gtrocheckshelltreeview_e.php

Valà,