Probleme pour renommer un dossier

Version imprimable

Je cherche a renommer un dossier, je n'ai pas d'erreur de compilation, pas d'erreur d'execution, mais le dossier n'est pas remonne, et je ne vois pas mon erreur.
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
 
void __fastcall TForm1::Renommerunrepertoire1Click(TObject *Sender)
{
// on recupere le nouveau nom du dossier
AnsiString nvnom = InputBox("Input Box", "Nouveau Nom Du Fichier", "");
// on traite l'ancien chemin pour creer le nouveau
        AnsiString chemin = DirectoryListBox2->Directory;
        nom_a_copier = ExtractFileName(chemin);
int a = chemin.Length();
int b = nom_a_copier.Length();
int c = a - b;
// ici on a le nouveau chemin
        AnsiString nvchemin = LeftStr(chemin, c);
        nvchemin = nvchemin + nvnom;
//AnsiString OldName = chemin;
//AnsiString NewName = nvchemin;
//        RenameFile(chemin.c_str(), nvchemin.c_str());
// on renomme le dossier
RenameFile(chemin, nvchemin);
if(RenameFile(chemin.c_str(), nvchemin) == true)
        {
// si OK
ShowMessage("répertoire renommé");
        }
// on rafraichit le DirectoryListBox
        DirectoryListBox2->Update();
}

14/09/2006, 22h43
kurkaine
Après avoir testé ton code, effectivement ça ne marche pas :aie: En fait, c'est à cause de ton composant DirectoryListBox2 qui vérouille le répertoire à renommé. Du coup, il n'est pas accessible en écriture. Lorsque tu écris le nom du répertoire manuellement, c'est à dire sans passer par ce composant, le répertoire est bien renommé.

Du coup, je pense que tu devrais ajouté la ligne
Code:

1 2 AnsiString chemin = DirectoryListBox2->Directory ; DirectoryListBox2->Directory = "C:\\";
dans ce cas, comme tu ne seras plus positionné sur le répertoire à renommé, ça passe bien :mrgreen:
14/09/2006, 22h49
blondelle

kurkaine a ecrit:

Citation:

Après avoir testé ton code, effectivement ça ne marche pas En fait, c'est à cause de ton composant DirectoryListBox2 qui vérouille le répertoire à renommé. Du coup, il n'est pas accessible en écriture. Lorsque tu écris le nom du répertoire manuellement, c'est à dire sans passer par ce composant, le répertoire est bien renommé.

Du coup, je pense que tu devrais ajouté la ligne
Code:
AnsiString chemin = DirectoryListBox2->Directory ;
DirectoryListBox2->Directory = "C:\\";dans ce cas, comme tu ne seras plus positionné sur le répertoire à renommé, ça passe bien

Merci pour la reponse je vais tester.

J'ai teste et effectivement quand on libere le dossier on peut le renommer je poste le code modifié.
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
 
void __fastcall TForm1::Renommerunrepertoire1Click(TObject *Sender)
{
// on recupere le nouveau nom du dossier
AnsiString nvnom = InputBox("Input Box", "Nouveau Nom Du Fichier", "");
// on traite l'ancien chemin pour creer le nouveau
        AnsiString chemin = DirectoryListBox2->Directory;
        nom_a_copier = ExtractFileName(chemin);
int a = chemin.Length();
int b = nom_a_copier.Length();
int c = a - b;
// ici on a le nouveau chemin
        AnsiString nvchemin = LeftStr(chemin, c);
        nvchemin = nvchemin + nvnom;
//AnsiString OldName = chemin;
//AnsiString NewName = nvchemin;
// on libere le dossier a renommer sinon on ne peut pas le renommer
DirectoryListBox2->Directory = "C:\\";
// on renomme le dossier ici chemin et nvchemin contiennent le chemin
// complet du dossier a renommer
RenameFile(chemin, nvchemin);
// on rafraichit le DirectoryListBox
        DirectoryListBox2->Update();
// on affiche le dossier renomme
DirectoryListBox2->Directory = nvchemin;
}