Utilisation de FileSystemObject (FSO) dans Excel VBA
Le FileSystemObject (FSO) vous donne accès à toute une gamme de fonctions pour accéder au système de fichiers de votre ordinateur. En utilisant cet objet, vous pouvez facilement accéder aux fichiers, dossiers et lecteurs, ainsi que lire et écrire dans des fichiers.
La plupart des fonctions FSO pourraient être écrites par vous en VBA traditionnel, mais nécessiteraient plus de codage et seraient plus difficiles à maintenir et à comprendre pour un développeur entrant. Le FSO est une API (Application Programming Interface) éprouvée et plus fiable que votre propre code. Il est facile à utiliser et prêt et disponible.
Le FSO fonctionne selon les normes internationales et les paramètres que vous avez sur votre ordinateur. Si vous distribuez votre application Excel dans le monde entier, l'utilisation du FSO prendra en charge toutes les différences de paramètres entre les pays, ce que votre propre code aurait du mal à faire.
Le FSO vous permettra de faire presque tout en code VBA que vous pourriez faire dans l'explorateur de fichiers Windows. Il vous donne un accès complet au système de fichiers Windows.
Création d'un objet FileSystemObject
Le FileSytemObject ne fait pas partie d'Excel VBA. Vous pouvez utiliser le FSO en créant un objet (late binding) en VBA :
| 123 | Sous-CréerFSO()Définir MyFSO = CreateObject("Scripting.FileSystemObject")Fin du sous-marin |
Alternativement, vous pouvez ajouter une référence dans VBA pour la bibliothèque FSO. C'est ce qu'on appelle la liaison anticipée et elle est plus rapide que la liaison tardive, car l'objet n'a pas besoin d'être créé lorsque votre code est exécuté.
Pour ajouter une référence, vous devez appuyer sur Alt-F11 pour entrer dans Visual Basic Editor (VBE), puis utiliser « Tools|References » dans le menu VBE. Cela affichera une fenêtre contextuelle pour vous permettre de sélectionner la référence appropriée (voir ci-dessous).
Faites défiler la liste des références disponibles jusqu'à ce que vous puissiez voir « Microsoft Scripting Runtime ». Cochez la case et cliquez sur OK, et la bibliothèque fait maintenant partie de votre application.
L'emplacement du fichier de bibliothèque DLL est C:\Windows\SysWOW64\scrrun.dll
Si vous distribuez votre application à d'autres collègues ou emplacements, il est essentiel qu'ils aient ce fichier au bon emplacement sur leur ordinateur, sinon votre code produira une erreur.
Il vaut la peine de mettre un piège d'erreur sur l'événement 'WorkbookOpen' à l'aide de la commande Dir pour vérifier que le fichier existe. S'il est absent, donnez un message d'avertissement et fermez le fichier Excel.
Une fois la référence ajoutée, vous pouvez utiliser le code suivant pour créer le FSO :
| 123 | Sous-TestFSO()Dim MyFSO en tant que nouvel objet FileSystemFin du sous-marin |
Tous les exemples de cet article utiliseront cette méthodologie pour créer le FSO.
Le FSO a de nombreuses méthodes et propriétés disponibles. Ceux-ci sont divisés ici en sections selon ce qu'ils peuvent faire.
Utiliser les méthodes « Exists »
Vous pouvez utiliser une méthode FSO pour vérifier si un lecteur, un dossier ou un fichier existe. Ces méthodes sont faciles à utiliser et ne nécessitent qu'un seul paramètre.
| 123456 | Sous-vérifier l'existence ()Dim MyFSO en tant que nouvel objet FileSystemMsgBox MyFSO.DriveExists("C:")MsgBox MyFSO.FolderExists("C:\temp\")MsgBox MyFSO.FileExists("C:\temp\testfile.txt")Fin du sous-marin |
Ces instructions renverront toutes « True » en supposant que votre ordinateur dispose d'un lecteur C :, d'un dossier appelé « Temp » et d'un fichier dans le dossier Temp appelé « testfile.txt »
Les chaînes de texte dans les paramètres ne sont pas sensibles à la casse. Vous ne pouvez pas utiliser de caractères génériques dans aucune de ces méthodes.
Vous ne pouvez pas non plus utiliser d'URL (Uniform Resource Locators) pour décrire un dossier ou un emplacement de fichier. Le FSO fonctionne uniquement sur le système d'exploitation Windows et le système de fichiers qui s'y trouve. Pour un emplacement de serveur externe, vous devez d'abord mapper un lecteur sur celui-ci, puis utiliser le chemin du lecteur lui-même.
Utilisation des méthodes « Obtenir »
Le FSO dispose de nombreuses méthodes pour obtenir des informations sur le fichier et le chemin, soit en divisant le chemin et le fichier, soit en obtenant des informations sur le fichier ou le dossier telles que la date de création ou la date de modification.
GetAbsolutePathname
Cela fournira un chemin complet à partir de la racine du lecteur spécifié.
La syntaxe est :
GetAbsolutePathName (spéc. chemin)
| 12345 | Sous-CheminAbsolu()Dim MyFSO en tant que nouvel objet FileSystem, Pth en tant que chaînePth = "c:… "MsgBox MyFSO.GetAbsolutePathName(Pth)Fin du sous-marin |
Cela renverra une chaîne 'C:\Users\Richard\Documents'. C'est parce que le chemin a été spécifié comme C: suivi de trois points. Chaque point signifie un niveau suivant dans la structure des dossiers.
ObtenirNomBase
Cela renvoie le nom d'un fichier ou d'un dossier spécifié.
La syntaxe est :
ObtenirNomBase(chemin)
| 12345 | Nom de sous-base()Dim MyFSO en tant que nouvel objet FileSystem, Pth en tant que chaînePth = "C:\temp\testfile.txt"MsgBox MyFSO.GetBaseName(Pth)Fin du sous-marin |
Ce code retournera 'testfile'. La méthode renvoie la dernière section du nom de chemin. S'il s'agit d'un fichier, il ne renvoie pas le suffixe du fichier.
Si le chemin est introuvable, une chaîne vide sera renvoyée.
GetDrive
Cela vous permet d'utiliser du code pour accéder aux informations du lecteur, en fonction de la lettre de lecteur spécifiée.
La syntaxe est :
GetDrive (spéc lecteur)
| 123456 | Sous DriveInfo()Dim MyFSO As New FileSystemObject, Pth As String, Dr As DrivePth = "C:"Définir Dr = MyFSO.GetDrive(Pth)MsgBox Dr.FreeSpaceFin du sous-marin |
Cette méthode renvoie un objet lecteur basé sur le lecteur spécifié. Vous pouvez utiliser cet objet pour accéder aux informations sur le lecteur, telles que l'espace libre disponible.
Fatigué de rechercher des exemples de code VBA ? Essayez AutoMacro !
Obtenir le nom du lecteur
Cette méthode séparera le nom du lecteur d'une chaîne de chemin/nom de fichier.
La syntaxe est :
Obtenir le nom du lecteur (chemin)
| 12345 | Nom du sous-lecteur()Dim MyFSO en tant que nouvel objet FileSystemObject, Pth en tant que chaînePth = "C:\temp\testfile.txt"MsgBox MyFSO.GetDriveName(Pth)Fin du sous-marin |
Cela renverra « C : »
ObtenirNomExtension
Cela renverra le suffixe du fichier dans le chemin spécifié.
La syntaxe est :
ObtenirNomExtension (chemin)
| 12345 | Nom de sous-extension()Dim MyFSO en tant que nouvel objet FileSystemObject, Pth en tant que chaînePth = "C:\temp\testfile.txt"MsgBox MyFSO.GetExtensionName(Pth)Fin du sous-marin |
Cela renverra 'txt'.
Si aucun fichier n'est spécifié, une chaîne vide sera renvoyée.
ObtenirFichier
Cette méthode renvoie un objet fichier, qui contient diverses informations sur le fichier lui-même.
La syntaxe est :
ObtenirFichier (spécif_fichier)
| 123456 | Sous-fichierInfo()Dim MyFSO As New FileSystemObject, Pth As String, Fn As FilePth = "C:\temp\testfile.txt"Définir Fn = MyFSO.GetFile(Pth)MsgBox Fn.DateCrééFin du sous-marin |
Cela renverra la date et l'heure de création du fichier spécifié. Si aucun fichier n'est spécifié ou si le fichier n'existe pas, vous obtiendrez une erreur « fichier non trouvé ».
| 12345 | Nom du sous-fichier()Dim MyFSO en tant que nouvel objet FileSystem, Pth en tant que chaînePth = "C:\temp\testfile.txt"MsgBox MyFSO.GetFileName(Pth)Fin du sous-marin |
Cela renverra 'testfile.txt'.
ObtenirDossier
Cela crée un objet dossier pour le dossier de base dans le chemin spécifié. Le chemin ne doit contenir que des noms de dossier. Aucun nom de fichier ne doit être inclus sinon une erreur se produira.
La syntaxe est :
ObtenirDossier (spécif dossier)
| 123456 | Infos sous-dossier()Dim MyFSO en tant que nouvel objet FileSystemObject, Pth en tant que chaîne, Fo en tant que dossierPth = "C:\temp"Définir Fo = MyFSO.GetFolder(Pth)MsgBox Fo.DateCrééFin du sous-marin |
L'objet dossier contient diverses informations auxquelles il est possible d'accéder. Dans ce cas, il renvoie la date de création du dossier.
Vous pouvez également utiliser cette méthode pour récupérer tous les noms de fichiers dans un dossier donné :
| 12345678 | Noms de sous-fichiers()Dim MyFSO en tant que nouvel objet FileSystem, Pth en tant que chaîne, Fo en tant que dossier, Fn en tant que fichierPth = "C:\temp"Définir Fo = MyFSO.GetFolder(Pth)Pour chaque Fn dans Fo.FilesMsgBox Fn.NameFn suivantFin du sous-marin |
Ce code parcourra le dossier « Temp » et affichera chaque nom de fichier trouvé.
Obtenir le nom du dossierParent
Cette méthode renverra le nom du dossier au niveau supérieur de la hiérarchie des dossiers.
La syntaxe est :
Obtenir le nom du dossierParent (chemin)
| 12345 | Nom du sous-dossier()Dim MyFSO en tant que nouvel objet FileSystemObject, Pth en tant que chaîne, Fo en tant que dossierPth = "C:\utilisateurs\richard"MsgBox MyFSO.GetParentFolderName(Pth)Fin du sous-marin |
Cela renverra « Users » car il s'agit du « parent » pour le dossier « richard ».
Programmation VBA | Le générateur de code fonctionne pour vous !
Utilisation des méthodes « Créer »
Avec le FSO, vous pouvez créer un nouveau dossier et un nouveau chemin et créer un fichier texte.
Créer le dossier
Vous pouvez spécifier un nouveau nom de chemin de dossier à créer. Un danger est que si le dossier existe déjà, une erreur se produira. Vous pouvez utiliser la méthode « FolderExists » pour vous assurer que cela ne se produira pas.
La syntaxe est :
Créer le dossier(nom de dossier)
| 1234567 | Sous-CréerNouveauDossier()Dim MyFSO en tant que nouvel objet FileSystem, Pth en tant que chaînePth = "C:\temp\MonDossier"Si MyFSO.FolderExists(Pth) = False ThenMyFSO.CreateFolder (Pth)Fin siFin du sous-marin |
Ce code créera un nouveau dossier appelé "MyFolder" sous le chemin existant "C:\temp".
CréerFichierTexte
Cette méthode vous permet de créer un simple fichier texte et d'y écrire directement.
La syntaxe est :
CréerFichierTexte (nom de fichier, [ écraser, [ unicode ]])
| 1234567 | Sous CréerFichierTexte()Dim MyFSO en tant que nouvel objet FileSystemObject, Pth en tant que chaînePth = "C:\temp\Monfichier.txt"Définir Fn = MyFSO.CreateTextFile(Pth,True)Fn.Write "Ajouter mon propre texte ici" & vbLf & "Ceci est la deuxième ligne"Fn.FermerFin du sous-marin |
Ce code crée un fichier texte appelé "Myfile.txt" dans le dossier "Temp" du lecteur "C:", puis y écrit deux lignes de texte.
Notez qu'un caractère de saut de ligne est concaténé dans la chaîne en cours d'écriture.
Si le chemin vers lequel vous écrivez n'existe pas, une erreur se produira. Vous pouvez utiliser la méthode 'FolderExists' pour vérifier cela avant de créer le fichier.
Il existe un paramètre facultatif pour écraser le fichier existant si nécessaire - cela peut être True ou False. La valeur par défaut est Vrai.
Utilisation des méthodes de « copie »
Vous pouvez utiliser ces méthodes pour copier un fichier ou un dossier vers un autre emplacement.
Programmation VBA | Le générateur de code fonctionne pour vous !
Copier un fichier
Cette méthode copiera un fichier d'un emplacement de dossier à un autre. Notez que la copie échouera si l'emplacement de destination a l'attribut en lecture seule défini.
La syntaxe est :
Copier un fichier la source, destination, [ écraser ]
| 1234 | Sous CopieFichier()Dim MyFSO en tant que nouvel objet FileSystemMyFSO.CopyFile "C:\temp\*.txt", "C:\temp\myfolder\", TrueFin du sous-marin |
Ce code fera une copie de tous les fichiers texte (txt) de "C:\temp" dans "C:\temp\myfolder\", en écrasant le fichier si nécessaire. Le paramètre par défaut pour Overwrite est True.
Vous pouvez utiliser un caractère générique astérisque (*) pour les noms de fichiers, mais vous ne pouvez pas utiliser un caractère générique point d'interrogation (?) pour représenter des caractères uniques.
Copiez le dossier
Vous pouvez utiliser cette méthode pour copier un dossier entier d'un emplacement à un autre.
La syntaxe est :
Copiez le dossier la source, destination, [ écraser ]
| 1234 | Sous-copier le dossier()Dim MyFSO en tant que nouvel objet FileSystemMyFSO.CopyFolder "C:\temp\*", "C:\users\richard\"Fin du sous-marin |
Ce code copie tous les dossiers et fichiers sous "C:\temp" dans "C:\users\richard". Le nouveau dossier créé sera "C:\users\richard\myfolder" car "C:\temp" contenait un dossier appelé "myfolder".
Il y a quatre résultats possibles lors de l'utilisation de cette méthode :
- Si la destination n'existe pas, le dossier source et son contenu sont copiés.
- Si la destination existe déjà, une erreur se produit.
- Si la destination est un dossier, le dossier source et son contenu seront copiés. Une erreur se produira si Overwrite est défini sur False et qu'il existe déjà une copie d'un fichier dans la destination.
- Si la destination est définie en lecture seule, une erreur se produira si overwrite est défini sur false.
Cette méthode s'arrête à la première erreur qu'elle rencontre. Il n'y a pas de restauration des actions qui ont réussi avant que l'erreur ne se produise.
Utiliser les méthodes « Déplacer »
Ces méthodes peuvent être utilisées pour déplacer des fichiers ou des dossiers vers d'autres emplacements. C'est la même chose que couper d'un endroit et coller dans un autre endroit. Notez que si le fichier à déplacer est ouvert, la méthode Move échouera avec une erreur.
DéplacerFichier
Cette méthode est utilisée pour déplacer un fichier spécifique vers un autre emplacement. Les caractères génériques sont autorisés dans le dernier composant de chemin de la source.
La syntaxe est :
DéplacerFichier la source, destination
| 1234 | Sous DéplacerFichier()Dim MyFSO en tant que nouvel objet FileSystemMonFSO.MoveFile "C:\temp\*", "C:\temp\myfolder"Fin du sous-marin |
Ce code déplace tous les fichiers trouvés dans "C:\temp" dans "C:\temp\myfolder".
Les dossiers source et destination doivent exister, car le dossier de destination n'est pas automatiquement créé.
Cette méthode s'arrête à la première erreur qu'elle rencontre. Il n'y a pas de restauration des actions qui ont réussi avant que l'erreur ne se produise.
Programmation VBA | Le générateur de code fonctionne pour vous !
DéplacerDossier
Cette méthode déplace un dossier spécifique d'un emplacement à un autre.
La syntaxe est :
DéplacerDossier (la source, destination)
| 1234 | Sous MoveAFolder()Dim MyFSO en tant que nouvel objet FileSystemMyFSO.MoveFolder "C:\temp\mondossier", "C:\temp\madestination"Fin du sous-marin |
Ce code déplace le dossier « myfolder » et son contenu dans le dossier « mydestination ». 'myfolder' est effectivement supprimé et 'mydestination' est créé, avec le contenu de 'myfolder'.
Si le dossier de destination existe déjà, une erreur se produit.
Utilisation des méthodes « Supprimer »
Ces méthodes sont utilisées pour supprimer des fichiers ou des dossiers. Ils doivent être utilisés avec précaution car il n'y a pas de méthodes de restauration ou d'annulation en cas de problème.
Supprimer le fichier
Cela supprime des fichiers individuels ou un groupe de fichiers à l'aide de caractères génériques.
La syntaxe est :
Supprimer le fichier spécif_fichier, [ Obliger ]
| 1234 | Sous SupprimerFichiers()Dim MyFSO en tant que nouvel objet FileSystemMonFSO.SupprimerFichier "C:\temp\*"Fin du sous-marin |
Ce code supprimera tous les fichiers du dossier ‘C:\temp’
Le paramètre Force est facultatif et est défini sur True ou False. S'il est défini sur True, les fichiers en lecture seule seront supprimés. Le défaut est faux.
Supprimer le dossier
Cette méthode supprime un dossier spécifié et son contenu.
La syntaxe est :
Supprimer le dossier spécif dossier, [ Obliger ]
| 1234 | Sous-supprimer les dossiers()Dim MyFSO en tant que nouvel objet FileSystemMyFSO.DeleteFolder "C:\temp\MaDestination"Fin du sous-marin |
Ce code supprimera le dossier « MyDestination » et tous les fichiers contenus dans ce dossier. Le dossier « temp » restera.
Le paramètre Force est facultatif et est défini sur True ou False. S'il est défini sur True, les dossiers en lecture seule seront supprimés. Le défaut est faux.
Les caractères génériques peuvent être utilisés dans le dernier composant du chemin. Si le dossier n'est pas trouvé, une erreur se produira.
Cette méthode s'arrête à la première erreur qu'elle rencontre. Il n'y a pas de restauration des actions qui ont réussi avant que l'erreur ne se produise.
Programmation VBA | Le générateur de code fonctionne pour vous !
Autres méthodes dans l'OFS
OpenAsTextStream.
Cette méthode ouvre un fichier spécifié en tant qu'objet Text Stream et lui permet d'être lu ou écrit. L'avantage de cette méthode est qu'elle peut ouvrir n'importe quel type de fichier et extraire le texte disponible.
La syntaxe est :
OpenAsTextStream ([ iomode, [ format ]])
Le paramètre 'iomode' permet la lecture seule (1), la lecture/écriture (2) et l'ajout (8). Le paramètre read/write écrase le fichier.
Le paramètre 'format' est défini sur -2 pour le système par défaut, -1 pour ouvrir le fichier en Unicode et 0 pour ouvrir le fichier en ASCII (American Standard Code for Information Interchange).
| 1234567891011 | Sous TextStream()Dim MyFSO en tant que nouvel objet FileSystemDéfinir f = MyFSO.GetFile("C:\temp\myfile.txt")Définir ts = f.OpenAsTextStream(2)ts.Ecrire "Mon nouveau texte"ts.FermerDéfinir ts = f.OpenAsTextStream(1)s = ts.ReadLineMsgBox sts.FermerFin du sous-marin |
Ce code récupère un fichier texte existant et le crée en tant qu'objet à l'aide de la méthode 'GetFile'. Il ouvre alors le flux de texte en lecture/écriture (2) et écrit une ligne de texte. Le fichier est ensuite fermé et rouvert comme lu (1) et une ligne en est lue, qui s'affiche alors sous forme de boîte de message.
Notez que la ligne lue doit être placée dans une variable avant de pouvoir être affichée dans une boîte de message.
Chemin de construction
Cette méthode ajoutera un dossier ou un nom de fichier à la fin d'un chemin de dossier existant. Cela crée uniquement une chaîne de texte et ne crée pas réellement le nouveau dossier.
La syntaxe est :
Chemin de construction (chemin, Nom)
| 12345 | Sous BuildPth()Dim MyFSO en tant que nouvel objet FileSystemnp = MonFSO.BuildPath("C:\temp", "UnNouveauDossier")MsgBox npFin du sous-marin |
Cela affichera 'C:\temp\ANewFolder'. Cependant, si vous souhaitez réellement utiliser ce dossier, vous devez utiliser la méthode 'CreateFolder'.
OuvrirFichierTexte
Cette méthode permet d'ouvrir et de lire ou d'écrire des fichiers en fonction des paramètres définis. Cela fonctionne de manière similaire à la méthode OpenAsTextStream.
La syntaxe est :
OuvrirFichierTexte (nom de fichier, [ iomode, [ créer, [ format ]]])
Le paramètre 'iomode' autorise ForReading, ForWriting et ForAppending. Le paramètre ForWriting écrase le fichier.
Le paramètre 'create' est une valeur booléenne. True signifie qu'un nouveau fichier sera créé si le nom de fichier spécifié n'existe pas. False signifie qu'aucun fichier ne sera créé si le nom de fichier n'est pas trouvé. Le défaut est faux.
Le paramètre 'format' peut être défini sur TristateFalse, TristateMixed, TristateTrue et TristateUseDefault selon que le fichier est ASCII ou Unicode.
| 1234567 | Sous OpenTxtFile()Dim MyFSO en tant que nouvel objet FileSystemDéfinir ts = MyFSO.OpenTextFile("C:\temp\myfile.txt", ForReading, False, TristateUseDefault)s = ts.ReadLineMsgBox sts.FermerFin du sous-marin |
Ce code lira une ligne du fichier texte 'myfile.txt'.
Un avantage de la méthode OpenTextFile par rapport à OpenAsTextStreamMethod est qu'elle a des listes déroulantes pour les paramètres, qui sont plus significatives que d'essayer de se souvenir des valeurs numériques appropriées pour les différentes options de paramètres.
Programmation VBA | Le générateur de code fonctionne pour vous !
Propriétés de l'OFS
Disques
Cette propriété contient une collection de lecteurs disponibles sur votre ordinateur.
| 1234567 | Sous Drv()Dim MyFSO en tant que nouvel objet FileSystemObject, d en tant que lecteurDéfinir Dr = MyFSO.DrivesPour chaque d Dans DrMsgBox d.DriveLetterJour suivantFin du sous-marin |
Ce code renverra chaque lettre de lecteur disponible sur votre ordinateur.
Nom
Cela renvoie le nom d'un fichier ou d'un dossier spécifié.
| 123456789 | Exemple de sous-nom()Dim MyFSO en tant que nouvel objet FileSystemDéfinir f = MyFSO.GetFile("C:\temp\myfile.txt")i = f.Name & " on Drive " & UCase(f.Drive) & vbCrLfi = i & "Créé : " & f.DateCréé & vbCrLfi = i & "Dernier accès : " & f.DateLastAccessed & vbCrLfi = i & "Dernière modification : " & f.DateLastModifiedMsgBox jeFin du sous-marin |
Ce code donnera le nom du fichier et des informations à son sujet en utilisant la propriété Drive.
Chemin
La propriété Path séparera le chemin d'une spécification de fichier.
| 123456789 | Exemple de sous-chemin()Dim MyFSO en tant que nouvel objet FileSystemDéfinir f = MyFSO.GetFile("C:\temp\myfile.txt")i = f.Path & f.Name & " on Drive " & UCase (f.Drive) & vbCrLfi = i & "Créé : " & f.DateCréé & vbCrLfi = i & "Dernier accès : " & f.DateLastAccessed & vbCrLfi = i & "Dernière modification : " & f.DateLastModifiedMsgBox jeFin du sous-marin |
Cet exemple fonctionne de la même manière que l'exemple Nom, sauf qu'il fournit désormais le chemin du fichier.
Programmation VBA | Le générateur de code fonctionne pour vous !
Taille
La propriété Size donnera la taille d'un dossier ou d'un fichier.
| 12345 | Sous FSize()Dim MyFSO en tant que nouvel objet FileSystemDéfinir f = MyFSO.GetFolder("C:\temp\")MsgBox f.TailleFin du sous-marin |
Ce code ci-dessus renverra la taille du dossier 'C:\temp\'.
| 12345 | Sous FSize()Dim MyFSO en tant que nouvel objet FileSystemDéfinir f = MyFSO.GetFile("C:\temp\myfile.txt")MsgBox f.TailleFin du sous-marin |
Ce code ci-dessus renverra la taille du fichier 'myfile.txt'.
Taper
La propriété type renverra le texte du type de fichier ou de dossier.
| 12345 | Sous FType()Dim MyFSO en tant que nouvel objet FileSystemDéfinir f = MyFSO.GetFolder("C:\temp\")MsgBox f.TypeFin du sous-marin |
Ce code ci-dessus renverra le texte « Dossier de fichiers ».
| 12345 | Sous-FType()Dim MyFSO en tant que nouvel objet FileSystemDéfinir f = MyFSO.GetFile("C:\temp\myfile.txt")MsgBox f.TypeFin du sous-marin |
Ce code ci-dessus renverra le texte 'Document texte'.
Notez l'utilisation de « GetFolder » et « GetFile » dans chaque exemple.
