Discussion :

[shell13010]

Salut tout le monde

Es qu'il est possible de créer un fichier suivant se qu'il y a dans le Tmemo? (Oui , je sais c'est flou...) donc un petit exemple:

index.html
css/
js/

Dans mon Tmemo il y a 3 lignes et donc j'aimerais prendre la 1ere ligne et créer le fichier index.html dans le repertoire courant..

2eme ligne: créer un dossier
3eme ligne: idem
etc...

J'ai penser a utiliser mkdir pour la création des dossiers echo> index.html etc..

Es-que vous pensez que c'est faisable, et surtout la meilleur façon?

une petite image pour que vous puissiez voir:


Merci d'avance pour votre aide...

[Charly910]

Bonjour,

il faut que tu récupères le répertoire courant - voir la FAQ :

http://delphi.developpez.com/faq/?pa...rtoire#exename

puis tu utilise la fonction ForceDirectories pour créer les sous répertoires un par un :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.Button1Click(Sender: TObject);
 
var
  Dir: string;
begin
 
  Dir := 'C:\APPS\SALES\LOCAL';
 
  if ForceDirectories(Dir) then
    Label1.Caption := Dir + ' a été créé'
 
end;

Exemple tiré de l'aide D7

A+

Charly

[shell13010]

Bonjour,

Merci pour la fonction ForceDirectories , j'ai du revoir mon code..

A bientôt.