Ce site est optimisé pour être consulté depuis un navigateur moderne dans lequel JavaScript est activé.

Comment utiliser FichierSystemObject en VBA ?

ayi

Comment utiliser l’objet FileSystemObject (FSO) en VBA pour manipuler des fichiers et dossiers ?

ayi_2

Ajoutez d’abord la référence : Outils > Références > Microsoft Scripting Runtime
Ou créez l’objet en liaison tardive :
<pre data-code-wrap="vba"><code class="lang-vba">Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")

' Vérifier si un fichier existe
If fso.FileExists("C:\fichier.txt") Then
MsgBox "Le fichier existe"
End If

' Lire un fichier
Dim f As Object
Set f = fso.OpenTextFile("C:\fichier.txt", 1)
Dim contenu As String
contenu = f.ReadAll
f.Close

' Créer un dossier
fso.CreateFolder "C:\NouveauDossier"

</code></pre>