Rubrique précédente: FindNextFile – Poursuivre l'analyse de répertoire FindFirstFileRubrique suivante: GetDiskFree, GetDiskFreeB, GetDiskFreeKB et GetDiskFreeMB – Renvoyer l'espace disque libre


GetDir ou GetDirectory – Obtenir le nom du répertoire en cours

Valide sur les plates-formes NetWare, Symbian OS, UNIX, Windows et Windows CE

La fonction GetDir ou GetDirectory obtient le nom du répertoire en cours.

Format de la fonction :

GetDir(n1 as Integer) as String
GetDirectory(n1 as Integer) as String
n1

Indique le numéro du lecteur.

Une fois qu'elle a réussi, la fonction renvoie une chaîne contenant le nom du répertoire en cours pour le lecteur spécifié. Dans le cas contraire, elle renvoie une chaîne vide.

La fonction renvoie le nom du répertoire de travail en cours pour le lecteur indiqué par le paramètre n1 (qui correspond à un numéro de lecteur : 0 pour le lecteur par défaut, 1 pour A, 2 pour B, etc.).

Remarque : "n1" n'a aucune signification sur une plate-forme UNIX.

Exemple :

Cet exemple crée un répertoire, en fait le répertoire actif et obtient le nom du répertoire. Cet exemple définit le répertoire par défaut sur C:\ et change le nom du répertoire créé. Si le répertoire existe (c'est-à-dire s'il n'a pas été renommé), il est supprimé.

'Créez le répertoire
CreateDirectory("C:\AMTest")

'Définissez le répertoire actif
SetDirectory("C:\AMTest")
MessageBox("Le répertoire en cours est : " + GetDirectory(0) )

'Définissez le chemin par défaut : C:\
SetDirectory("C:\")

'Renommez le répertoire
RenameDirectory("C:\AMTest","C:\AMTest_1")

If ExistDirectory("C:\AMTest_1") THEN
 RemoveDirectory("C:\AMTest_1")

Else
 MessageBox("Impossible de trouver le répertoire : C:\AMTest_1")
Endif