|
VBScript est un langage de programmation léger développé par Microsoft. Il est très utile de savoir comment programmer en VBScript, depuis ses interprètes pour la langue seront intégrés dans tous les systèmes d'exploitation Microsoft. Aucun outil de programmation spéciaux sont requis pour exécuter ou écrire du code en VBScript. Ce langage peut être utilisé côté client ou ajouté aux pages Web . Instructions
1 Faites un clic droit dans l'Explorateur Windows, sélectionnez "Nouveau " dans le menu pop-up , puis cliquez sur le "Document texte " dans le menu pour créer un fichier texte .
< Br > 2 Ouvrez le fichier nouvellement créé pour l'édition. Ce sera le conteneur pour l'ensemble du code VBScript que vous écrivez. À chaque étape, ci-dessous, vous verrez plusieurs lignes de code avec une description en anglais plaine de ce qu'ils font. Lorsque vous mettez toutes ces lignes de code en même temps , vous vous retrouvez avec un script pour créer un fichier texte .
3 Créer une variable pour l'objet du système de fichiers et l'instanciation (position à une nouvelle instance de l'objet) . En VBScript vous créez des variables par " dimensionnement " avec la commande "Dim " . 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 FileSystemObjectSet 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 texte fichier : strDirectory Dim ' Comme StringstrDirectory = " C: \\ newdirectory "
5 Assurez-vous que le dossier du répertoire existe. Si le répertoire n'existe pas, puis créer à l'aide de l'objet du système de fichiers
Copiez le code suivant dans votre fichier texte: . Objest Dim ' Comme objFSO.FolderExists Objectif ( strDirectory ) ensuite SET objest = objFSO.GetFolder ( strDirectory ) ElseSet objest = objFSO.CreateFolder ( strDirectory ) End If
6 Faire une variable de chaîne pour le nom de fichier et mettez-le sur une valeur appropriée .
Copiez le code suivant dans votre fichier texte: Dim strFile « Comme StringstrFile =" 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: DIM. ObjTextFile « Comme ObjectDim blnOverwrite « Comme BooleanblnOverwrite = TrueSet 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 inclut automatiquement un caractère de nouvelle ligne pour vous, alors que les anciens ajoute des données seulement à ce qui est déjà présent
Copiez le code suivant dans votre fichier texte: . ObjTextFile.Write ("Ceci est " ) objTextFile . WriteLine ( " un nouveau fichier texte ") ' Cela se traduit par la chaîne " c'est un nouveau fichier texte "
9 fermez le fichier avec le code et libérer correctement tous les objets.
copiez le code suivant dans votre fichier texte: objTextFile.CloseSet objTextFile = NothingSet objest = NothingSet 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 " . Txt" par un clic droit sur le fichier et en sélectionnant " Renommer" dans le menu pop-up . Double- cliquez sur le fichier pour exécuter le code .
|
