Discussion :

[mamiF]

bonsoir,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
begin
{$I-}
mkdir(rep+'Dossiers\'+edit1.text);
if IOResult <>0then
showmessage('Impossible de créer le répertoire')
else begin
showMessage('Nouveau Dossier créé');
 
If  FindFirst(rep+'Dossiers'+edit1.text,faAnyFile,Info)<>0 Then
begin
Attributs := FileGetAttr(rep+'Dossiers'+'\Doss.txt');
if Attributs and faReadOnly = faReadOnly then begin
FileSetAttr(rep+'Dossiers'+'\Doss.txt', Attributs and not faReadOnly);
assignfile(fs,rep+'Dossiers'+'\Doss.txt');
//reset(fs);
ligne:=edit1.text;
append(fs);
writeln(fs,ligne);
end;
closefile(fs);
Attributs := FileGetAttr(rep+'Dossiers'+'\Doss.txt');
if Attributs and faReadOnly = 0   then FileSetAttr(rep+'Dossiers'+'\Doss.txt', Attributs + faReadOnly);
close;

je ne s'est pas pourquoi le fichier texte ne s’écrie pas correctement

[Charly910]

Bonjour,

que veux tu faire exactement ?

Créer un dossier s'il n'existe pas et créer un fichier texte dans ce dossier ?

A+
Charly

[mamiF]

Bonsoir,
oui exactement mais quand j’écris au fichier texte les répertoire créer ne sont pas organiser ligne par ligne
rep1 rep2 dans un fichier texte
la résultat souhaiter est:
rep1
rep2

[Charly910]

Bonjour,

Essaye ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
procedure TForm1.Button4Click(Sender: TObject);
Var
  Rep, Rep1 : String ;
  fs : TextFile ;
  aFileName : String ;
  Ligne : String ;
begin
  Rep :=  ExtractFilePath(Application.ExeName) ;
  Rep := Rep + 'Dossier\' ;
  Rep1 := Rep +Edit1.text ;
  If Not ForceDirectories(Rep1) Then
    Begin
      ShowMessage('Impossible de créer le répertoire '+ Rep1) ;
      Exit ;
    End
  Else
    Begin
      ShowMessage('Nouveau Dossier créé : '+Rep1);
      aFileName := Rep+'Doss.txt' ;
      Assignfile(fs,aFileName);
      If FileExists(aFileName) Then
        Append(fs)
      Else
        Rewrite(fs) ;
      Ligne:=Edit1.text;
      Writeln(fs,Ligne);
      Closefile(fs);
    End ;
End;

Ce code crée des sous dossiers du répertoire ...\dossiers et stocke le nom des sous dossiers dans me fichier ...\dossiers\Doss.txt :

Rep1
Rep2
...

A+
Charly