ajouter un dossier dans une ListBox

Version imprimable

01/10/2012, 23h43
michel71

ajouter un dossier dans une ListBox
Bonjour,

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

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

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:

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

02/10/2012, 14h56
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
02/10/2012, 17h37
popo
Au hasard sans vraiment pousser très loin, je tenterai un ExtractFilePath.
Code:

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
02/10/2012, 18h31
Charly910
Pour les répertoires tu peux utiliser SelectDirectory :
Code:

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
02/10/2012, 20h53
Jipété

Salut,

Citation:

Envoyé par Charly910

(...) 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à,
03/10/2012, 16h19
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
03/10/2012, 19h14
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
03/10/2012, 20h41
Jipété

Citation:

Envoyé par 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

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. :ccool:

@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...
04/10/2012, 11h54
popo

De toute façon, je viens de regarder, ça ne correspond pas. C'est un treeView
05/10/2012, 16h50
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
06/10/2012, 07h57
SergioMaster

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

Citation:

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)