Opération sur fichier txt

'Pour copier un fichier précis :

Set FSys = CreateObject("Scripting.FileSystemObject")
Set MonFic = FSys.GetFile("C:\fichier.txt")
MonFic.Copy "C:\copie.txt", True
Msg = "fichier.txt copié"
MsgBox(Msg)

'Pour supprimer un fichier précis :

Set FSys = CreateObject("Scripting.FileSystemObject")
Set MonFic = FSys.GetFile("C:\fichier.txt")
MonFic.delete
Msg = "fichier.txt supprimé"
MsgBox(Msg)

'Pour créer un fichier précis :

Set FSys = CreateObject("Scripting.FileSystemObject")
Set MonFic = FSys.CreateTextFile("C:\fichier.txt")
Msg = "fichier.txt créé
MsgBox(Msg)

'Pour lire un fichier complet précis :

Set FSys = CreateObject("Scripting.FileSystemObject")
Set MonFic = FSys.OpenTextFile("c:\fichier.txt", 1)
Contenu = MonFic.ReadAll
Msg = "Le fichier fichier.txt contient : " & Contenu
MsgBox(Msg)

'Pour créer et écrire dans un fichier précis

Set FSys = CreateObject("Scripting.FileSystemObject")
Set MonFic = FSys.CreateTextFile("c:\fichier.txt")
With MonFic
.writeLine "1er ligne" 'Mettre write pour ne pas rajouter des sauts de ligne
.writeLine "2er ligne"
.writeLine "Etc..."
End With
Msg = "Écriture réussie dans fichier.txt"
MsgBox(Msg)