Discussion :

[anis_el_madani]

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

[droggo]

Bia,

alors je veus savoir comment creer un repertoire avec TPW 1.5
{ MkDir('c:\4si'); au contaraire de la version dos , cette instruction n'est

Pourtant MkDir existe bien dans TPW.

Tu ne peux pas utiliser Rewrite(...) pour créer un répertoire, c'est uns fonction spécifique aux fichiers.

[anis_el_madani]

Salut

Je sais que rewrite est reservée à la création des fichiers mais, si tu as bien lu le code, je veux créer un fichier dans un répertoire

Et pour le 'mkdir', lorsque j'ajoute la biblio 'uses dos', il m'affiche ce message : 'FILE NOT FOUND (DOS.TPU)'

Et merci d'avance !

[droggo]

Gie,

Et si tu enlevais tout simplement cette unité dans les uses ?
(D'un compilateur à l'autre, rien n'oblige à avoir les mêmes unités, il n'y a aucun standard à ce niveau là)

L'aide est là pour t'aider.

ps : encadre ton code avec les balises [*code] [*/code], sans les étoiles qui ne sont là que pour les désactiver.

[Alcatîz]

Bonjour !

MkDir fait partie de l'unité System.
Par contre, si tu dois faire appel à des routines de l'unité DOS sur TPW, utilise plutôt :

Code :

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

Uses WinDOS;