Impossible d'enregistrer dans un fichier texte à l'aide de Vbscript

Question

J'essaie d'enregistrer du texte dans un fichier texte dans vbscript mais cela ne fonctionne pas, ni aucune erreur. Voici le code:

sub SaveToFile() 
    dim fso, fl 
    Set fso = CreateObject("Scripting.FileSystemObject") 
    Set fl = fso.OpenTextFile "C:\myFile.txt", 2, True 
    fl.Write("blahblah") 
    fl.Close : Set fl = Nothing 
    Set fso = Nothing 
    end sub 

j'avais du mal à afficher le code html, alors voici le lien vers le code: here

Answer 1

A mes yeux, vous voulez ajouter un peu de contenu à un fichier texte existant. Selon here vous devez dire à l'environnement d'exécution que vous voulez ajouter quelque chose. Si c'est le cas, vous devez utiliser la valeur constante 8 au lieu de 2.

Answer 2

En supposant que vous ayez affiché le code entier dans votre script: vous y définissez une procédure, mais vous ne l'appelez nulle part. Ajoutez une ligne SaveToFile à votre script pour appeler la procédure. En outre, la liste de paramètres pour OpenTextFile doit être entre parenthèses lorsque l'objet renvoyé est affecté à une variable. Le texte écrit OTOH ne devrait pas être entre parenthèses (bien que cela ne fasse pas de mal dans cette situation particulière).

Sub SaveToFile() 
    Dim fso, fl 
    Set fso = CreateObject("Scripting.FileSystemObject") 
    Set fl = fso.OpenTextFile("C:\myFile.txt", 2, True) 
    fl.Write "blahblah" 
    fl.Close 
    Set fl = Nothing 
    Set fso = Nothing 
end sub 

SaveToFile