Section courante

A propos

Section administrative du site

GETDIR

 Demande le répertoire
Free Pascal System

Syntaxe

Procedure getdir(drivenr:Byte;Var dir:ShortString);
Procedure getdir(drivenr:Byte;Var dir:Ansistring);

Paramètres

Nom Description
dir Ce paramètre permet de retourner le répertoire courant
drivenr 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 connaître le répertoire courant de l'unité spécifié avec une chaîne de caractères de format standard Pascal.

Remarques

Exemples

L'exemple suivant permet d'afficher le répertoire courante sur l'unité courante et le répertoire courant sur l'unité C: 

  1. Program GetDirSamples;
  2.  
  3. Var
  4.  S:String;
  5.  
  6. BEGIN
  7.  GetDir(0,S);
  8.  WriteLn('Le répertoire courante sur l''unité courante est ',S);
  9.  GetDir(3,S);
  10.  WriteLn('Le répertoire courante sur l''unité C est ',S); 
  11. END.

on obtiendra un résultat semblable suivant :

Le répertoire courante sur l'unité courante est D:\
Le répertoire courante sur l'unité C est C:\SOURCE\

Voici quelques exemples montrant comment lire le répertoire venant d'être changé :

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

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

Repertoire courante = C:\WINDOWS

L'exemple suivant permet de retourner la lettre de l'unité courante du système d'exploitation :

  1. Program CurrDriveByGetDirSamples;
  2.  
  3. Function GetCurrDrive:Char;
  4. Var
  5.  S:String;
  6. Begin
  7.  GetDir(0,S);
  8.  GetCurrDrive := S[1];
  9. End;
  10.  
  11. BEGIN
  12.  WriteLn('L''unité courante est ',GetCurrDrive);
  13. END.

on obtiendra un résultat semblable suivant :

L'unité courante est C

L'exemple suivant permet de transformer la procédure GetDir en fonction de façon a obtenir immédiatement le répertoire courant :

  1. Program GetDirSamples3;
  2.  
  3. Function GetCurrDir:String;
  4. Var
  5.  S:String;
  6. Begin
  7.  GetDir(0,S);
  8.  GetCurrDir := S; 
  9. End;
  10.  
  11. BEGIN
  12.  WriteLn(GetCurrDir);
  13. END.

on obtiendra un résultat semblable suivant :

C:\

Voir également

Langage de programmation - Free Pascal - Référence de procédures et fonctions - Chdir
Langage de programmation - Free Pascal - Référence de procédures et fonctions - Mkdir
Langage de programmation - Free Pascal - Référence de procédures et fonctions - Rmdir

Dernière mise à jour : Samedi, le 18 juillet 2015