selectionner plusieurs fichiers dans un opendialog [FAQ]

**kalou26** · 23/06/2006, 10h00

tt est dans le titre, est ce possible ??
merci

**mike600river** · 23/06/2006, 10h05

**kalou26** · 23/06/2006, 10h08

oui mais c un probleme de ma filelistbox
les fichiers se mettent a la suite les uns des autres alors que je voudrais quils soient a la ligne a chaque fichier

**pottiez** · 23/06/2006, 10h16

Dans ton TOpenDialog tu as la propriété Files qui liste tout les fichier que tu as selectionné

**kalou26** · 23/06/2006, 10h21

oui et je met koi apres ??

**pottiez** · 23/06/2006, 10h24

bin on ne doit pas avoir la meme version alors, car moi j'ai bien une propriété Files

**pottiez** · 23/06/2006, 10h26

il suffit de récupéré les nom de fichier comme ceci :

Code :

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

OpenDialog1->Files->Strings[i] ;

avec i le numero du fichier.

**lanonyme** · 23/06/2006, 10h28

Bonjour,

Parler de selectionner plusieurs fichiers dans un OpenDialog
puis

Envoyé par kalou26

oui mais c un probleme de ma filelistbox
les fichiers se mettent a la suite les uns des autres alors que je voudrais quils soient a la ligne a chaque fichier

J'avous que j'ai du mal a suivre... exactement ce que vous desiré faire ?

Pourriez vous etre plus explicite ... un bout de code peut etre ?

Merci

lanonyme

**kalou26** · 23/06/2006, 10h44

jai mis sa comme code mais sa majoute les fichers sur la meme ligne et donc je ne peut pas les ouvrir ni les envoyer par mail par mon prog

void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{

OpenDialog1->Execute(); // ouvre la boite OpenDialog
AnsiString CheminFichier=OpenDialog1->FileName; // qui doit être renseignée avec la valeur représentant

if (FileListBox1->Items->IndexOf(OpenDialog1->FileName) != -1)
{
MessageDlg("Fichier déjà dans la liste", mtError, TMsgDlgButtons() << mbOK, 0);
}
else
{
FileListBox1->Items->Add(OpenDialog1->FileName);

}
}

**Tenguryu** · 23/06/2006, 10h54

Il faut faire une boucle pour chacun des fichiers

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
for(int i=1;i<=OpenDialog1->Files->Count;i++)
{
    AnsiString LeFic = OpenDialog1->Files->Strings[i];
    if (FileListBox1->Items->IndexOf(LeFic) != -1)
    {
        MessageDlg("Fichier déjà dans la liste", mtError, TMsgDlgButtons() << mbOK, 0);
    }
    else
    {
        FileListBox1->Items->Add(LeFic);
    }
}