Fonction CurDir
Renvoie un variant sous forme de chaîne représentant le chemin actif .
Certaines fonctions de fichier et de répertoire spécifiques à DOS ne sont plus fournies dans Collabora Office, ou leur fonction est seulement limitée. Par exemple, la prise en charge des fonctions ChDir, ChDrive et CurDir n'est pas fournie. Certaines propriétés spécifiques à DOS ne sont plus utilisées dans les fonctions qui attendent des propriétés de fichier comme paramètres (par exemple, pour les différencier des fichiers cachés et des fichiers système). Cela garantit le plus haut niveau possible d'indépendance de la plate-forme pour Collabora Office. Par conséquent, cette fonctionnalité est susceptible d'être supprimée dans une future version.
La bibliothèque ScriptForge dans Collabora Office 7.1 présente le service FileSystem avec des méthodes pour gérer les fichiers et les dossiers dans les scripts utilisateur.
CurDir [(Text As String)]
Valeur de retour :
Chaîne de caractères
Text: toute expression de chaîne qui spécifie un disque existant, par exemple "C" pour la première partition du premier disque dur. Ce paramètre est uniquement utilisé sous Windows.
Si aucun disque n'est spécifié ou si le disque est une chaîne de longueur zéro (""), CurDir renvoie le chemin du disque actif. Collabora Office Basic renvoie une erreur si la syntaxe de la description du disque est incorrecte ou si le disque n'existe pas.
Cette fonction ne respecte pas la casse.
Sub ExampleCurDir
Dim sDir1 As String, sDir2 As String
sDir1 = "C:\Test"
sDir2 = "D:\Private"
ChDir( sDir1 )
MsgBox CurDir
ChDir( sDir2 )
MsgBox CurDir
End Sub