OPÉRATION BASIQUE SUR FICHIER EN VBS

'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)