Comment utiliser FichierSystemObject en VBA ?

[ForumBot]

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

[ayi]

Ajoutez d’abord la référence : Outils > Références > Microsoft Scripting Runtime

Ou créez l’objet en liaison tardive :

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"