1. Accueil
  2. Forum Codes-Sources
  3. Delphi / Pascal

Aidez moi a renommer un repertoire en enlevant la partite de son nom [Résolu]

Signaler
-
Messages postés
3826
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
10 mai 2021
 -
Bonjour,
Je voudrai savoir comment renommer un dossier comme ceci:
" Renamefile('c:\'+Edit1.text,'c:\'+Edit1.text+' renamed' " :ca marche mais
<b>" Renamefile('c:\'+Edit1.Text,'c:\'+Edit1.Text-' renamed' "</b> je ne sais pas comment le faire.

S'il vous plait,aidez-moi parceque je suis encore debutant en delphi.Merci d'avance

2 réponses

Réponse 1 / 2
Messages postés
207
Date d'inscription
samedi 15 novembre 2003
Statut
Membre
Dernière intervention
29 avril 2021
 10
salut
regarde ici http://delphiexamples.com/filesdirectories/renamedirectory.html
Réponse 2 / 2
Messages postés
3826
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
10 mai 2021
 42
Bonjour,

essaye comme ceci:
procedure TForm1.Button1Click(Sender: TObject);
var
  aFullFileName: string;
  aFileName: string;
begin
  aFullFileName := 'C:\aaaaaa\bbbbb\ccccc\ddddd\MonFichier.txt';
  aFileName := ExtractFileName(aFullFileName);// extrait le nom du fichier
  Memo1.Lines.Add(aFullFileName);// affiche le nom complet initial
  Memo1.Lines.Add(ExtractFilePath(ExtractFileDir(aFullFileName)) + aFileName);// affiche le chemin modifié 
end;

Résultat:
C:\aaaaaa\bbbbb\ccccc\ddddd\MonFichier.txt
devient
C:\aaaaaa\bbbbb\ccccc\MonFichier.txt

si c'est pas exactement ce que tu veux ça doit pas être très loin ;)

Cordialement
Répondre Posez votre question