Bonjour, je cherche le moyen de sélectionner sur mon disque durs plusieurs fichiers ou répertoires en une fois par le biais d'une application afin d'effectuer un traitement global dessus. Le problème est que je n'ai pas la moindre idée du composant a utiliser. Je suis donc ouvert à toutes suggestions, merci davance a tous.

pour moi pas de composant specifique à utiliser, juste faire un TOpenDialog et l'appeler autant de fois que necessaire en memorisant les fichiers dans une TStringList.

Bonjour,

Il faut utiliser un TOpendialog et ensuite utiliser sa proprièté filename. En effet, dans le TOpenDialog, lorsque l'on sélectionne plusieur fichier, ceux ci sont mis entre des ", est la ligne compléte se retrouve dans le filename.

En espérant être clair

Oniria

Salut,

 Je ne sais pas si cela peut aider, mais va ici,
http://www.delphifr.com/codes/LISTING-FICHIERS-FORMAT-TEXTE-IMPRESSION_35572.aspx

le code est bien commenté  et les remarques de delphiprog sont OK

couf

Salut,

Stop ...... Aie Aie Aie
Le TOpenDialog est pourtant prévu pour sélectionner plusieurs fichiers en une fois.

Il faut un TOpenDialog avec la propriété ofAllowMultiSelect à True,

Pour sélectionner plusieurs fichiers :
Dans l'Opendialog tu sélectionnes le premier fichier ensuite tu maintients la touche Maj enfoncé et tu selectionnes le dernier ...
voilà tous les fichiers sont sélectionner en une fois.


Var  Txt : String; I : Integer;
Begin
  If  OpenDialog1.Execute Then Begin
    For I := 0 to OpenDialog1.Files.Count - 1 do
    Txt := OpenDialog1.Files[I];
    {Ce code récupère les noms de fichiers sélectionné un à un
    dans la variable Txt à toi de faire le traitement que tu désires ici}
  End;
End;
 
@+
Cirec

---

@cirec : et si tu veu choisir 'c:\monFichier.txt', c:\monfichier.bmp', 'd:\monfichier.pas', tu fais comment avec un seul appel de openDialog?

@Guillemouze : je pense que Cirec faisait plus particulièrement allusion à la réponse d'Oniria, qui donne l'impression de ne pas connaître la propriété Files de type TStrings de TOpenDialog.

Si les fichiers à sélectionner sont dispersés dans des répertoires différents, il vaudrait mieux envisager l'implémentation d'un "explorateur" avec les composants fournis la VCL (DirectoryListBox, FileListBox, DriveListBox, ou mieux ShellListView, ShellTreeView et ShellComboBox à partir de D5).

Bonne prog'

japee

A l'aide d'une ListBox, c'est tout bête.

uses Dialogs;

var NomFichier : string;

if ( PromptForFileName( NomFichier, '', '', 'Selectionnez un fichier', 'C:\', False ) ) then ListBox1.Items.Add( NomFichier );

@japee : ok, autant pour moi.


Pour conclure (donc je pense ne plus poster de message sur ce sujet), tout depend de quels fichiers tu as besoin.
je vois plusieurs solutions :
    - soit plusieurs fois un openDialog comme je le disais precedament
    - soit un explorer avec une listeview pour afficher les fichiers selectionnés (par exemple)
    - soit juste une zone de drag&drop dans laquelle tu fais glisser tes fichiers a partir de l'explorer windows
    - soit ... autre chose selon tes besoins

@ Guillemouze :
si tu dois choisir plusieurs fichiers dans diffétents répertoires tu peux faire comme ça :

L'OpenDialog s'affichera tant que l'utilisateur ne clique pas sur Annuler ou sur la croix (Fermer)

et toujours avec la propriété ofAllowMultiSelect à True

Var  Txt : String; I : Integer;
  FileList : TStringList;
Begin
  FileList := TStringList.Create;
  Try
  While  OpenDialog1.Execute Do
    FileList.AddStrings(OpenDialog1.Files);
    {La suite est juste un exemple bidon de traitement des Fichiers récupérés}
    For I := 0 to FileList.Count - 1 do
    Txt := FileList[I];

    {ou encore un Affichage du résultat dans une ListBox}
    ListBox1.Items.AddStrings(FileList);
  Finally
    FileList.Free;
  End;
End;

 
@+
Cirec

---