[VBS] lire un fichier texteRésolu

Question

Bonjour

J'ai suis débutant en VBS, j'ai besoin de lire un fichier texte qui contient une liste de fichier et de les détruire. Exemple mon fichier contient 

C:\Temp\123
C:\Temp\fichier.txt
C:\Temp\fichier.lnk

Mon script ne doit pas avoir de message interactif et doit continuer si un des objets est manquant dans la liste. S.V.P aider moi et/ou guider moi pour le réaliser

Merci d'avance

cs_JMO · Accepted Answer

Tu avais déjà posé la même question en juillet dernier !!!

http://www.vbfrance.com/forum/sujet-LIRE-FICHIER-TEXTE-DETRUIRE-FICHIERS_1601620.aspx?p=2
 




jean-marc

Utilisateur anonyme · Answer

Bonjour,

Tu vas trouver plusieurs exemples sur cette page. Ceux qui font appels à FSO, peuvent être utilisés tel quel ou presque avec VBScript. (Tu vas probablement devoir enlever les références à Excel; ou bien utiliser VBA Excel au lieu de VBScript )

cs_Jack · Answer

Catégorie modifiée

spmsbl · Answer

Merci CMARCOTTE de ta réponse 

Est ce possible d'avoir un exemple ? Quand je regarde dans la liste "cette page" je ne voie rien qui correspond a ce que j'ai besoin. Merci d'avance

Utilisateur anonyme · Answer

Bonjour,

Désolé, j'ai mal lu.

Pour les fichiers textes, c'est plutôt cette page

cs_JMO · Answer

Bonsoir le Forum,

Une recherche sur OpenTextFile , FileExists et DeleteFile aurait permis d'arriver à écrire ce simple script.



Option Explicit
Const cstTextFile = "H:\SCRIPTS\DeleteFile.txt"
Dim objFso
Dim arrFiles
Dim i

Set objFso = CreateObject("Scripting.FileSystemObject")

If objFso.FileExists(cstTextFile) Then 
   arrFiles = Split(objFso.OpenTextFile(cstTextFile,1).ReadAll,vbCrLf)
   For i = 0 To UBound(arrFiles)
       If objFso.FileExists(arrFiles(i)) Then objFso.DeleteFile arrFiles(i), True
   Next
End If

Set objFso = Nothing




jean-marc

cs_JMO · Answer

Ajout d'une vérification que le fichier texte ne soit pas vide.


Option Explicit
Const cstTextFile = "H:\SCRIPTS\DeleteFile.txt"
Dim objFso
Dim arrFiles
Dim i

Set objFso = CreateObject("Scripting.FileSystemObject")

If objFso.FileExists(cstTextFile) Then 
   If objFso.GetFile(cstTextFile).Size <> 0 Then
      arrFiles = Split(objFso.OpenTextFile(cstTextFile,1).ReadAll,vbCrLf)
      For i = 0 To UBound(arrFiles)
          If objFso.FileExists(arrFiles(i)) Then objFso.DeleteFile arrFiles(i), True
      Next
   End If 
End If

Set objFso = Nothing


jean-marc

spmsbl · Answer

Tu a bien raison JMO ! Désolé ce n'est pas pour mal faire
Merci beaucoup pour votre aide

[VBS] lire un fichier texte

8 réponses

Votre réponse

Discussions similaires