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à,

[popo]

Je crois que c'est Snark qui a déjà fait exactement ça.
Peut-être sur son blog auquel je n'ai pas acccès à mon travail et donc je n'en suis pas sur : http://snark.blary.com

[Charly910]

GTroCheckShellTreeView est très bien, mais je pense qu'il ne permet d'afficher et de cocher que des répertoires (les fichiers ne sont pas traités car c'est un descendant de ShellTreeview

[Jipété]

GTroCheckShellTreeView est très bien, mais je pense qu'il ne permet d'afficher et de cocher que des répertoires (les fichiers ne sont pas traités car c'est un descendant de ShellTreeview

Oui, mais la démo disponible sur son site (presque tout en bas de page) affiche classiquement un explorateur (Treeview à gauche, Listview à droite) avec cases à cocher pour les deux composants, donc dossiers + fichiers.

@popo : ce lien ne fonctionne plus... On retrouve sa trace chez Phidels, avec un explorateur de fichiers également ; je n'ai pas noté s'il incluait les fameuses cases à cocher...

[popo]

De toute façon, je viens de regarder, ça ne correspond pas. C'est un treeView

[michel71]

Merci à tous pour vos efforts pour m'aider. Finalement je me suis résolu à sélectionner soit un fichier soit un dossier et je stock le tout dans un fichier

[SergioMaster]

j'arrive un peu tard, n'ayant pas suivi cette discussion (à cause du titre peu explicite) mais si

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.

c'est relativement facile à faire avec virtualtreeview (voir dans les demos)