Ce jour est à marquer d'une pierre blanche, car voici notre première rencontre avec un objet qui n'est pas un contrôle, et qui ne possède donc aucune existence sous forme de représentation graphique. Loin des yeux, mais pas loin du cœur, voici l'objet App, qui n'est autre que l'ensemble de votre application elle-même, en personne. App, comme tout objet, possède un certain nombre de propriétés. L’une d’entre elles est particulièrement utile : il s'agit de la propriété Path, accessible uniquement en lecture, et qui indique quel est le chemin d’accès de l'exécutable.
Ceci se révèle particulièrement utile quand on a besoin d'aller chercher d'autres documents (fichiers textes, images à charger, etc.) dans une application. On ne sait jamais a priori comment s'appelle le répertoire dans lequel votre application a été installée sur d'autres machines que la vôtre. Grâce à l'objet App, et à sa propriété Path, on va donc pouvoir récupérer l'emplacement de l'exécutable, et de là, pointer le chemin conduisant au fichier que l'on veut manipuler.
Donc, en résumé, on peut utiliser cette propriété pour désigner un fichier par référence relative au répertoire dans lequel a été installé l'application, quel que soit le répertoire en question.
Admettons par exemple que vous ayez besoin d'aller désigner un fichier au cours d'un programme, parmi une dizaine disponibles (genre mois01.txt, mois02.txt, etc.). Vous mettez donc le nom du fichier à aller chercher dans une variable nommée Fic. Mais comment préciser à l'ordinateur le chemin menant à ce fichier ? Ce chemin sera a priori différent selon la manière dont votre application aura été installée sur chaque machine. La parade consistera donc :
à obliger l'application à installer la série des fichiers txt toujours au même endroit par rapport à l'exécutable (on supposera ici qu'ils sont dans un sous-répertoire nommé Files). On verra plus loin comment réaliser cette prouesse.
à désigner dans le code le chemin du fichier en récupérant celui de l'exécutable, et en pointant ensuite le sous répertoire Files.
Illustration :
1 2 3 4 5 6 7 8
|
' La variable Fic stocke le nom du fichier à ouvrir
Chemin = App.Path
If Right(Chemin, 1) <> "\" Then
Chemin = Chemin & "\"
EndIf
Complet = Chemin & Fic
MsgBox "L'emplacement complet est : " & Complet |
Partager