bonjour a tous
alors je veux savoir comment creer un repertoire avec TPW 1.5 . et merci
voici mon code :
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
 
procedure creation( var F : fichier );
const chemin = 'c:\4si\';
  var
    nf           : string [15];
    nom_logique  : string[50];
begin
  write (' Donner le nom du Ficher SVP  : ');
  readln(nf);
  nom_logique := chemin+nf+'.DAT';
  write(nom_logique);
  Assign ( F,nom_logique);
  rewrite(F);
end;
 
{Programme Pricipal }
BEGIN
   { MkDir('c:\4si');  au contaraire de la version dos , cette instruction n'est                      pas acceptée par cette version du pascal } 
  creation (liste);
END.
et merci d'avance