Comment créer un fichier dans VBScript

Instructions

1. droit; cliquer dans l'Explorateur Windows, sélectionnez "Nouveau" dans le menu pop-up, puis cliquez sur le "Document texte" élément de menu pour créer un fichier texte.

2. Ouvrez le fichier nouvellement créé pour l'édition. Ce sera le conteneur pour tout le code VBScript vous écrivez. Dans chaque étape ci-dessous, vous verrez plusieurs lignes de code avec une description anglaise plaine de ce qu'ils font. Lorsque vous mettez toutes ces lignes de code ensemble, vous vous retrouvez avec un script pour créer un fichier texte.

3. Créez une variable pour l'objet du système de fichiers et l'instancier (mettre à une nouvelle instance de l'objet). Dans VBScript vous créez des variables par "dimensionnement" les avec le "Obscurcir" commande. Variables complexes (ceux qui ne sont pas des chaînes, des entiers ou des booléens) doivent être instancié avant que vous puissiez les utiliser.

   Copiez le code suivant dans votre fichier texte:
   Dim objFSO 'Comme FileSystemObject
   Réglez objFSO = CreateObject ("Scripting.FileSystemObject")

4. Ajouter une variable de chaîne pour le chemin du répertoire dans lequel vous voulez placer le fichier et mettez-le à l'endroit désiré.

   Copiez le code suivant dans votre fichier texte:
   StrDirectory Dim 'As String
   strDirectory = "C: newdirectory"

5. 
   
   
   

   Assurez-vous que le dossier de répertoire existe. Si le répertoire est pas là, puis créer à l'aide de l'objet du système de fichiers.

   Copiez le code suivant dans votre fichier texte:
   Objest Dim 'As Object
   Si objFSO.FolderExists (strDirectory), puis

   Réglez objest = objFSO.GetFolder (strDirectory)

   Autre

   Réglez objest = objFSO.CreateFolder (strDirectory)

   End If

6. Faire une variable de chaîne pour le nom de fichier et le mettre à une valeur appropriée.

   Copiez le code suivant dans votre fichier texte:
   StrFile Dim 'As String
   strFile = "Newfile.txt"

7. 
   
   
   

   Créer une variable pour le fichier texte et l'instancier. La méthode CreateTextFile a un paramètre optionnel pour écraser le fichier, il existe déjà.

   Copiez le code suivant dans votre fichier texte:
   ObjTextFile Dim 'As Object
   BlnOverwrite Dim 'As Boolean
   blnOverwrite = True
   Réglez objTextFile = objFSO.CreateTextFile (strDirectory & "" & strFile, blnOverwrite)

8. Écrire des données dans le fichier nouvellement créé avec le code ci-dessous. Il existe deux méthodes pour l'écriture de fichiers, "Écrire" et "WriteLine." Cette dernière méthode comprend automatiquement un caractère de nouvelle ligne pour vous, alors que le premier ajoute simplement les données à ce qui est déjà présent.

   Copiez le code suivant dans votre fichier texte:
   objTextFile.Write ("C'est ")
   objTextFile.WriteLine ("un nouveau fichier texte")
   'Il en résulte la chaîne "Ceci est un nouveau fichier texte"

9. Fermez le fichier avec le code et correctement libérer tous les objets.

   Copiez le code suivant dans votre fichier texte:
   objTextFile.Close
   Réglez objTextFile = Nothing
   Réglez objest = Nothing
   Réglez objFSO = Nothing

10. Enregistrer tout le code que vous avez créé dans les étapes précédentes dans le fichier texte au début et puis fermez le fichier. Renommez le fichier avec ".vbs" au lieu de ".SMS" de plein droit; cliquant sur le fichier et en sélectionnant "Rebaptiser" dans le menu pop-up. Double-cliquez sur le fichier pour exécuter le code.