[VBS] lire un fichier texte [Résolu]

spmsbl 51 Messages postés lundi 2 octobre 2006Date d'inscription 14 février 2013 Dernière intervention - 13 févr. 2013 à 20:14 - Dernière réponse : spmsbl 51 Messages postés lundi 2 octobre 2006Date d'inscription 14 février 2013 Dernière intervention
- 14 févr. 2013 à 19:57
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
Afficher la suite 

Votre réponse

8 réponses

Meilleure réponse
cs_JMO 1855 Messages postés jeudi 23 mai 2002Date d'inscription 24 juin 2018 Dernière intervention - 14 févr. 2013 à 18:49
3
Merci
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

Merci cs_JMO 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 74 internautes ce mois-ci

Commenter la réponse de cs_JMO
Utilisateur anonyme - 14 févr. 2013 à 00:07
0
Merci
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 )
Commenter la réponse de Utilisateur anonyme
cs_Jack 14010 Messages postés samedi 29 décembre 2001Date d'inscription 28 août 2015 Dernière intervention - 14 févr. 2013 à 00:27
0
Merci
Catégorie modifiée
Commenter la réponse de cs_Jack
spmsbl 51 Messages postés lundi 2 octobre 2006Date d'inscription 14 février 2013 Dernière intervention - 14 févr. 2013 à 15:16
0
Merci
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
Commenter la réponse de spmsbl
Utilisateur anonyme - 14 févr. 2013 à 16:56
0
Merci
Bonjour,

Désolé, j'ai mal lu.

Pour les fichiers textes, c'est plutôt cette page
Commenter la réponse de Utilisateur anonyme
cs_JMO 1855 Messages postés jeudi 23 mai 2002Date d'inscription 24 juin 2018 Dernière intervention - 14 févr. 2013 à 18:27
0
Merci
 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
Commenter la réponse de cs_JMO
cs_JMO 1855 Messages postés jeudi 23 mai 2002Date d'inscription 24 juin 2018 Dernière intervention - 14 févr. 2013 à 18:42
0
Merci
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
Commenter la réponse de cs_JMO
spmsbl 51 Messages postés lundi 2 octobre 2006Date d'inscription 14 février 2013 Dernière intervention - 14 févr. 2013 à 19:57
0
Merci
Tu a bien raison JMO ! Désolé ce n'est pas pour mal faire
Merci beaucoup pour votre aide
Commenter la réponse de spmsbl

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.