Comment utiliser l’objet FileSystemObject (FSO) en VBA pour manipuler des fichiers et dossiers ?
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"