PRob VBS

salut tout le monde

jaimerai savoir il c'est possible d'affichier le contenu d'un fichier texte dans une fenetre Windows style msgBox... merci

Code:

---

msgbox "ton texte ici"

---

pour compléter :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

MsgBox LectureFichier ("c:\Mon.bat")   Function LectureFichier (stFichier) Const ForReading = 1, ForWriting = 2 Dim fso, f Set fso = CreateObject("Scripting.FileSystemObject") Wscript.Echo stfichier   Set f = fso.OpenTextFile(stFichier, ForReading)   LectureFichier = f.ReadAll   End Function

---

:roll: :wink:

Au fait, quelle est la limite du nombre de caractères dans une msgbox?

par-ce qu'il faut peut-être prévoire une procédure de découpage non? (mid, lenght...)

salut :wink:

Citation:

---

Envoyé par méphistopheles

Code:

---

msgbox "ton texte ici"

---

---

pfff sa répond pas vraiment a ma question...

Citation:

---

Envoyé par bbil

pour compléter :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

MsgBox LectureFichier ("c:\Mon.bat")   Function LectureFichier (stFichier) Const ForReading = 1, ForWriting = 2 Dim fso, f Set fso = CreateObject("Scripting.FileSystemObject") Wscript.Echo stfichier   Set f = fso.OpenTextFile(stFichier, ForReading)   LectureFichier = f.ReadAll   End Function

---

:roll: :wink:

---

merci bien mais stFichier correspond au chemin ou ce trouve mon fichier cest juste ???

oui ... regarde la ligne utilisant la fonction de lecture :

Code:

---

MsgBox LectureFichier ("c:\Mon.bat")

---

:roll: :wink:

ok merci ! sa marche nikel ! mais le seul truc moche cest que avant de mafficher le contenu de mon fichier txt dans une fenetre il ouvre un msgbox avec justement le message c:\Mon.bat comme message et cest pas super... y'a t'il un moyen de le supprimer ???

eu... cette ligne doit être en trop :

Code:

---

Wscript.Echo stfichier

---

:wink:

oauis merci sa marche nikel !!!