VBS: Traitement de fichier

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

Laisser un commentaire

Votre adresse de messagerie ne sera pas publiée. Les champs obligatoires sont indiqués avec *