Aidez moi a renommer un repertoire en enlevant la partite de son nomRésolu

Question

Bonjour, Je voudrai savoir comment renommer un dossier comme ceci: " Renamefile('c:\'+Edit1.text,'c:\'+Edit1.text+' renamed' " :ca marche mais " Renamefile('c:\'+Edit1.Text,'c:\'+Edit1.Text-' renamed' " je ne sais pas comment le faire. S'il vous plait,aidez-moi parceque je suis encore debutant en delphi.Merci d'avance

papyvore · Answer

salut 
regarde ici http://delphiexamples.com/filesdirectories/renamedirectory.html

Cirec · Answer

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

Aidez moi a renommer un repertoire en enlevant la partite de son nom

2 réponses

Votre réponse