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

- - Dernière réponse : Cirec
Messages postés
4229
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
3 août 2018
- 23 août 2017 à 10:46
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
Afficher la suite 

Votre réponse

2 réponses

Messages postés
161
Date d'inscription
samedi 15 novembre 2003
Dernière intervention
10 décembre 2018
Commenter la réponse de papyvore
Messages postés
4229
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
3 août 2018
0
Merci
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
Commenter la réponse de Cirec

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.