Sujet Précédent Sujet Suivant

[VBS] Ouvrir un fichier

Résolu/Fermé
NicoViz Messages postés 3 Date d'inscription dimanche 15 février 2009 Statut Membre Dernière intervention 17 février 2009 - 15 févr. 2009 à 23:45
NicoViz Messages postés 3 Date d'inscription dimanche 15 février 2009 Statut Membre Dernière intervention 17 février 2009 - 17 févr. 2009 à 17:57
Bonsoir,
ça fait quelques heures que je remue le web pour trouver le fonction qui va me permettre de faire ce que je veux!
J'ai un petit script en VBS qui créé un fichier rapport.log à la racine de C:\

Ma question doit être simple, mais je voudrai savoir comment ouvrir le rapport lorsque le visiteur ferme la page. Plus exactement la fonction qui ouvre le fichier, car pour créer des évènements à la fermeture je sais faire.

J'ai trouvé quelques pistes avec shell mais rien de concluant (j'ai pas du utiliser les bons arguments).

Merci bonne soirée !
A voir également:

4 réponses

Réponse 1 / 4
Utilisateur anonyme
16 févr. 2009 à 16:04
Bonjour,

Exemple type: 

'----------------------------------------------------------------------------------------------------------------------------------------------
' Fichier Lire.vbs

  Const ctePourLecture = 1
  Const ctePourEcrire = 2
  Const ctePourAjouter = 8
  Const cteRapport = "Rapport.txt"

  Dim objFSO, objFichier, varNomFic, Texte, Message

  Set objFSO = CreateObject("Scripting.FileSystemObject")

  ' Localisation du script et du fichier à lire
  varNomFic = WScript.ScriptFullName
  varNomFic = Left(varNomFic, InStrRev(varNomFic, "\"))
  varNomFic = varNomFic & cteRapport

  If ( objFSO.FileExists(varNomFic) ) Then
    Set objFichier = objFSO.OpenTextFile(varNomFic,ctePourLecture)
  Else
    Set objFichier = objFSO.CreateTextFile(varNomFic,ctePourEcrire)
  End If

  While Not objFichier .AtEndOfStream
        Texte = objFichier .ReadLine
        Message = Message & vbLf & Texte
  Wend
  objFichier.Close

  Set objFichier = Nothing
  Set objFSO = Nothing

  WScript.Echo Message

WScript.Quit(0)
'

Lupin
0
Réponse 2 / 4
NicoViz Messages postés 3 Date d'inscription dimanche 15 février 2009 Statut Membre Dernière intervention 17 février 2009
16 févr. 2009 à 16:44
Salut merci de ta réponse! Est-ce que ça fonctionne avec les fichiers d'une autre extension ? (Ici mon fichier est un .log)
0
Réponse 3 / 4
Utilisateur anonyme
16 févr. 2009 à 17:04
re:

oui, pour tout fichier de type texte

Const cteRapport = "Rapport.log"

Lupin
0
Réponse 4 / 4
NicoViz Messages postés 3 Date d'inscription dimanche 15 février 2009 Statut Membre Dernière intervention 17 février 2009
17 févr. 2009 à 17:57
Ok merci :)
0

Discussions similaires

"Aucune application permettant d'ouvrir cette URL"
sidojaice -
JIP -

24 réponses