'<<<<<<< LECTURE d'un fichier >>>>>>>>>>>>

'déclaration file system object Dim fso

'instanciation Set FSO = CreateObject("Scripting.FileSystemObject")

'on instance le fichier texte Set Ftxt = FSO.OpenTextFile("Monchemin")

'on parcours chaque ligne du fichier texte Do While Not Ftxt.AtEndOfStream

     MaVariable = Ftxt.Readline
     '....... <- votre code ici pour traiter chaque ligne

Loop

Ftxt.Close

'<<<<<<< ECRITURE dans un fichier >>>>>>>>>>>>

'déclaration file system object Dim fso

'instanciation Set FSO = CreateObject("Scripting.FileSystemObject")

'on instance le fichier texte dans lequel on veut ecrire Set Ftxt = FSO.createTextFile("Monchemin",true) 'true=ecrase

'On ecrit ce que l'on veut dans le fichier Ftxt.writeline ("Mon texte à écrire ou ma Variable texte")

Ftxt.Close

'<<<<<<<<< DEPLACER un fichier >>>>>>>>>>>>>>>

'déclaration file system object Dim fso

'instanciation Set FSO = CreateObject("Scripting.FileSystemObject")

'Déplacement du fichier Set Ftxt = fso.GetFile("moncheminsource") 'Fichier origine Ftxt.move("monchemindestination") 'emplacement destination

'<<<<<<<<< COPIER un fichier >>>>>>>>>>>>>>>

'déclaration file system object Dim fso

'instanciation Set FSO = CreateObject("Scripting.FileSystemObject")

'Copie du fichier Set Ftxt = fso.GetFile("moncheminsource") 'Fichier origine Ftxt.copy("monchemindestination") 'emplacement destination

'<<<<<<<<< SUPPRIMER un fichier >>>>>>>>>>>>>>>

'déclaration file system object Dim fso

'instanciation Set FSO = CreateObject("Scripting.FileSystemObject")

'Suppression du fichier Set Ftxt = fso.GetFile("moncheminsource") 'Fichier origine Ftxt.delete