Section courante

A propos

Section administrative du site

GETDIR

 Demande le répertoire
Turbo Pascal pour Windows System

Syntaxe

Procedure GetDir(unite:Word;Var reper:String);

Paramètres

Nom Description
reper Ce paramètre permet de retourner le répertoire courant
unite Ce paramètre permet d'indiquer l'unité de disque souhaité :
Valeur Description
0 Cette valeur permet d'indiquer l'unité de disque courante
1 Cette valeur permet d'indiquer l'unité de disque A:
2 Cette valeur permet d'indiquer l'unité de disque B:
3 Cette valeur permet d'indiquer l'unité de disque C:
4 Cette valeur permet d'indiquer l'unité de disque D:
5 Cette valeur permet d'indiquer l'unité de disque E:
6 Cette valeur permet d'indiquer l'unité de disque F:
7 Cette valeur permet d'indiquer l'unité de disque G:
8 Cette valeur permet d'indiquer l'unité de disque H:
9 Cette valeur permet d'indiquer l'unité de disque I:
10 Cette valeur permet d'indiquer l'unité de disque J:
11 Cette valeur permet d'indiquer l'unité de disque K:
12 Cette valeur permet d'indiquer l'unité de disque L:
13 Cette valeur permet d'indiquer l'unité de disque M:
14 Cette valeur permet d'indiquer l'unité de disque N:
15 Cette valeur permet d'indiquer l'unité de disque O:
16 Cette valeur permet d'indiquer l'unité de disque P:
17 Cette valeur permet d'indiquer l'unité de disque Q:
18 Cette valeur permet d'indiquer l'unité de disque R:
19 Cette valeur permet d'indiquer l'unité de disque S:
20 Cette valeur permet d'indiquer l'unité de disque T:
21 Cette valeur permet d'indiquer l'unité de disque U:
22 Cette valeur permet d'indiquer l'unité de disque V:
23 Cette valeur permet d'indiquer l'unité de disque W:
24 Cette valeur permet d'indiquer l'unité de disque X:
25 Cette valeur permet d'indiquer l'unité de disque Y:
26 Cette valeur permet d'indiquer l'unité de disque Z:

Description

Cette procédure permet de connaitre le répertoire courant de l'unité spécifié avec une chaîne de caractères de format standard Pascal.

Exemple

Voici quelques exemples typiques de l'utilisation de cette fonction :

  1. Program GetDirSamples;
  2.  
  3. Uses WinCrt;
  4.  
  5. Var
  6.  S:String;
  7.  
  8. BEGIN
  9.  ChDir('C:\WINDOWS');
  10.  GetDir(0,S);
  11.  WriteLn('Repertoire courante = ',S);
  12. END.

on obtiendra le résultat suivant si le répertoire «C:\WINDOWS» existe :

Repertoire courante = C:\WINDOWS

Voir également

Langage de programmation - Turbo Pascal pour Windows - Référence de procédures et fonctions - GETCURDIR

Dernière mise à jour : Dimanche, le 10 décembre 2017