IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBScript Discussion :

Résultat script vbs vers fichier txt


Sujet :

VBScript

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Inscrit en
    Juin 2008
    Messages
    65
    Détails du profil
    Informations forums :
    Inscription : Juin 2008
    Messages : 65
    Par défaut Résultat script vbs vers fichier txt
    Bonjour,

    Je tente de sortir le résultat du script suivant dans un fichier txt :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    Sub ControleDisque()
    Dim stRep 'Nom du répertoire à parcourir
    Dim oFSO, oFld
    Dim fso, f
    Set oFSO = CreateObject("Scripting.FileSystemObject")
    stRep = "\\Plume\data"
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set f = fso.OpenTextFile("ControleDisque.txt",2,true)
    Set oFld = oFSO.GetFolder(stRep)
    For Each oFld In oFSO.GetFolder(stRep).SubFolders
    Wscript.Echo "Size :" & oFld.Size & vbCrLf & _
    f.Write size         
    Next
    f.close
    End Sub
    Cependant, j'obtient l'erreur suivante lors de son exécution :

    Ligne 12
    Caractère 9
    Fin d'instruction attendue
    Code erreur 800a0401
    Etant novice en vbscript, est-ce que quelqu'un pourrait me donner un coup de main?

    Merci d'avance.

  2. #2
    Membre averti
    Inscrit en
    Juin 2007
    Messages
    31
    Détails du profil
    Informations forums :
    Inscription : Juin 2007
    Messages : 31
    Par défaut
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    Wscript.Echo "Size :" & oFld.Size & vbCrLf & _
    f.Write size
    La fin de ta première ligne est un "_", ce qui fait que ca te donne en fait ceci en code :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Wscript.Echo "Size :" & oFld.Size & vbCrLf & f.Write size
    et sur un wscript.echo, c'est pas terrible

  3. #3
    Membre confirmé
    Inscrit en
    Juin 2008
    Messages
    65
    Détails du profil
    Informations forums :
    Inscription : Juin 2008
    Messages : 65
    Par défaut
    Ok, merci,

    j'ai retiré "& vbCrLf & _" de la ligne 11

    Le script s'exécute mais je n'ai aucun résultat, rien dans le fichier txt.

    Je continue à chercher.

  4. #4
    Membre averti
    Inscrit en
    Juin 2007
    Messages
    31
    Détails du profil
    Informations forums :
    Inscription : Juin 2007
    Messages : 31
    Par défaut
    Ton wscript.echo te ressort bien quelque chose ?

  5. #5
    Membre confirmé
    Inscrit en
    Juin 2008
    Messages
    65
    Détails du profil
    Informations forums :
    Inscription : Juin 2008
    Messages : 65
    Par défaut
    Pour l'instant, il n'y a rien qui sort, le fichier ne se crée pas. Avant, je faisais sortir le script en msgbox et ça fonctionnait.
    J'ai fait quelques modifs pas encore concluantes et j'en suis là :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    Sub ControleDisque()
    Const ForWriting = 2
    Dim stRep 'Nom du répertoire à parcourir
    Dim oFSO, oFld
    Dim fso, f
    Set oFSO = CreateObject("Scripting.FileSystemObject")
    stRep = "\\Plume\data"
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set f = fso.OpenTextFile("C:\ControleDisque.txt",ForWriting,true)
    Set oFld = oFSO.GetFolder(stRep)
    For Each oFld In oFSO.GetFolder(stRep).SubFolders
    Wscript.Echo "Size :" & oFld.Size 
    f.Write size       
    Next
    f.close
    End Sub
    Je vais chercher des infos sur les commandes Write WScript car c'est là que ça doit coincer.

  6. #6
    Expert confirmé
    Avatar de ced600
    Homme Profil pro
    Développeur .NET
    Inscrit en
    Août 2006
    Messages
    3 364
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 44
    Localisation : France

    Informations professionnelles :
    Activité : Développeur .NET

    Informations forums :
    Inscription : Août 2006
    Messages : 3 364
    Par défaut
    1. Utilises les balises de codes pour le code. (dans la fenêtre d'édition, le bouton #)
      cho
    2. size -> c'est quoi ? Pas une variable initialisé et à laquelle tu as affecté une valeur. En tout cas pas la même chose que ce que tu affiches dans ton echo.
    3. Si tu veux écrire dans un fichier texte, ce qui est affiché dans un écho, tu dois dire au script d'y écrire ce que tu affiches dans l'echo.
    4. As tu compris ce que je viens de dire ? As tu trouvé ton erreur ?
    5. Si non, alors va faire un tour sur la FAQ VBScript, car on va avoir du mal à communiquer si tu n'as pas les notions de bases.
    6. Si oui, vérifie que je n'ai pass raconter n'importe quoi, puis n'oublis pas le tag résolu si le problème est résolue.
    7. c tout

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. exporter table vers fichier txt
    Par joe370 dans le forum VBA Access
    Réponses: 3
    Dernier message: 07/05/2009, 12h08
  2. [VBA] Export table access vers fichier.txt
    Par fabiolous dans le forum VBA Access
    Réponses: 2
    Dernier message: 23/04/2007, 17h55
  3. Réponses: 41
    Dernier message: 02/05/2006, 14h17
  4. Table d'une Bde Access vers fichier .txt
    Par cefabien dans le forum Access
    Réponses: 2
    Dernier message: 08/12/2005, 11h31
  5. [MSSqlServeur 2000] export vers fichier txt
    Par squal_13 dans le forum MS SQL Server
    Réponses: 6
    Dernier message: 30/11/2004, 12h19

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo