[TPW] Création d'un répertoire

Version imprimable

bonjour a tous
alors je veux savoir comment creer un repertoire avec TPW 1.5 . et merci
voici mon code :

Code:

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

05/04/2008, 21h24
droggo

Bia,

Citation:

Envoyé par anis_el_madani

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.
05/04/2008, 22h24
anis_el_madani

je suis amigos

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 !
06/04/2008, 03h13
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.
06/04/2008, 08h50
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:

Uses WinDOS;