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

Aucunpseudo - 23 août 2017 à 04:46 - Dernière réponse : Cirec 4217 Messages postés vendredi 23 juillet 2004Date d'inscriptionModérateurStatut 3 avril 2018 Dernière intervention
- 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 

2 réponses

Répondre au sujet
papyvore 155 Messages postés samedi 15 novembre 2003Date d'inscription 5 avril 2018 Dernière intervention - 23 août 2017 à 08:11
Commenter la réponse de papyvore
Cirec 4217 Messages postés vendredi 23 juillet 2004Date d'inscriptionModérateurStatut 3 avril 2018 Dernière intervention - 23 août 2017 à 10:46
0
Utile
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.