Probleme de copie multiple

Version imprimable

10/09/2006, 21h04
blondelle

Probleme de copie multiple

Bonjour.
J'utilise un DriveComboBox associe a un FileListBox.
Est ce qu'il est possible de copier une selection de plusieurs fichiers.
Y a t'il une methode a respecter pour ce type de copie.
10/09/2006, 21h53
blondelle

J'ai fait une recherche, j'ai vu en delphi la posibilite de stoker les chemins des fichiers a copiers dans une ListBox,
comment mettre en oeuvre une telle procedure?

Bonsoir blondelle !

Un simple truc comme :
Code:

1 2 3 4 5 6 7 8 9 10 TStringList *plist = new TStringList(); for (int i = 0; i < FileListBox1->Items->Count; i ++) { if (FileListBox1->Selected[i] == true) { plist->Add(FileListBox1->Items->Strings[i]); } }
afin de stocker la selection dans un TStringList et d'utiliser ces infos après dans :
Code:

1 2 CopyFile (....)
(un API qui copie....je jubile en faisant des rimes débiles) ne suffirait pas ?
@ + ;)

10/09/2006, 22h24
Sunchaser
Salut,
J'ai oublié deux choses en fait :
. si tu utilises un DirectoryListBox, il faut écrire ceci :
Code:

1 2 plist->Add(DirectoryListBox1->Directory + AnsiString("\\") + FileListBox1->Items->Strings[i]);
. a priori, tu utilises un DriveComboBox, mais comment fais tu pour y associer un FileListBox ?

@ + ;)
10/09/2006, 22h47
blondelle

bonsoir Sunchaser.
J'ai tellement bricolé pour arriver a faire fonctionner ces quelques lignes de code je crois que je vais changer de passion.
bon treve de plaisanterie.
DirectoryBox est lié par Events a FileListBox
DriveComboBox est lié par Events a DirectoryListBox
Je peu t'envoyer une copie du fichier il n'y a presque pas de code c'est surprenant comme quatres lignes peuvent nous pourrir la vie.
la seule chose qui ne ma pas pose probleme et dont je n'ai pas besoin pour l'instant c'est le changement de lecteur
Mon programme se compose d'une Form 2 directorybox 2 filelistbox une partie source une partie destination ca fonctionne pour copier un seul fichier, j'aimerais le faire pour plusieurs fichiers, apres on verra pour un repertoire et on va s'arreter la.
comment tu recupere tes fichiers a copier dans la ListeBox je n'ai pas verifie s'il y a une propriete "count" le NB de fichier contenu est aleatoire, une boucle pour la copie devrait suffire, je vais tester.
Merci en tout cas pour ta reponse.
10/09/2006, 23h00
blondelle

Juste une question qui n'est pas forcement idiote si le chemin qui va etre copie dans la cellule du StringGrid est tres longue vat elle etre tronquée.
10/09/2006, 23h08
Sunchaser

Citation:

Envoyé par blondelle

Juste une question qui n'est pas forcement idiote si le chemin qui va etre copie dans la cellule du StringGrid est tres longue vat elle etre tronquée.

StringGrid ?
De mon côté je parlais d'un TStringList....
10/09/2006, 23h16
blondelle

Encore une question a la con y a t'il un composant pour un TStringList je ne vois rien dans la liste des composants BCB .
10/09/2006, 23h17
Sunchaser

Que je sache, non, TStringList n'est pas un composant 'visuel'....
10/09/2006, 23h34
blondelle

Ah! ca me rassure je vais pouvoir me coucher tranquille et reprendre tout cela demain a tete reposee.
Merci pour tes reponses Sunchaser.
Je posterais la solution que saurais trouvée.
Dis moi si tu a essaye le TDriveComboBox.
A +

J'ai resolu le probleme en utilisant un TListBox (avec un TStringList je travaillais en aveugle), la pour mes essais j'ai vu ce qui se passait, et ca marche pour un ou plusieurs fichiers, si on laisse la propriete visible du ListBox on peu voir la liste des fichiers dans le tampon de copie.
Le code:

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
46
47
48
49
50
 
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "dir.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Quitter1Click(TObject *Sender)
{
Application->Terminate();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::DriveComboBox1Change(TObject *Sender)
{
DirectoryListBox1->Drive = DriveComboBox1->Drive;
        FileListBox1->Directory = DirectoryListBox1->Directory;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FileListBox1Click(TObject *Sender)
{
source = FileListBox1->FileName;
        ListBox1->Items->Add(source);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FileListBox2Enter(TObject *Sender)
{
for (int i = ListBox1->Items->Count-1; i>=0; i--)
        {
source = ListBox1->Items->Strings[i];
        nom_a_copier = ExtractFileName(source);
                chemin = DirectoryListBox2->Directory;
        chemin = chemin + "\\" + nom_a_copier;
CopyFile(source.c_str(), chemin.c_str(), true);
        chemin = "";
ListBox1->Items->Delete(i);
        }
// on rafraichis le FileListBox2
FileListBox2->Update();
}
//---------------------------------------------------------------------------

J'ai fais une petite modif
le code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
void __fastcall TForm1::FileListBox2Enter(TObject *Sender)
{
premier_chemin = DirectoryListBox2->Directory;
for (int i = ListBox1->Items->Count-1; i>=0; i--)
        {
source = ListBox1->Items->Strings[i];
        nom_a_copier = ExtractFileName(source);
        chemin = premier_chemin + "\\" + nom_a_copier;
CopyFile(source.c_str(), chemin.c_str(), true);
        chemin = "";
ListBox1->Items->Delete(i);
        }
// on rafraichit le FileListBox2
FileListBox2->Update();
}

Cette variable n'est appelee qu'une seule fois

11/09/2006, 16h50
blondelle

Je ne vois rien d'autre a modifier je met un petit resolu