Option Explicit '=============================================================================== 'Contexte : slc66.net - memo - Windows Script '=============================================================================== 'Nom du fichier : open_file.vbs ' 'Auteur : stephane.lecaer@slc66.net ' 'Version : 1.0 05/04/2006 Version initiale ' '------------------------------------------------------------------------------- 'Description : ' Exemple de lecture d'un fichier texte. ' 'Utilisation : ' Sous la ligne de commande : ' > cscript -nologo open_file.vbs ' '=============================================================================== '=============================================================================== 'Déclaration des constantes '=============================================================================== Const K_FSO_FOR_READING = 1 Const K_FSO_FORMAT_DEFAULT = -2 '=============================================================================== 'Déclaration des variables '=============================================================================== Dim objShell Dim objFSO Dim objInStream Dim strFilename Dim strLine '=============================================================================== 'DEBUT DU PROGRAMME '=============================================================================== 'Créer les objets WshShell et FileSystemObject '------------------------------------------------ Set objShell = WScript.CreateObject("WScript.Shell") Set objFSO = Wscript.CreateObject("Scripting.FileSystemObject") 'Définir le nom du fichier à ouvrir '---------------------------------- strFilename = WScript.ScriptFullName 'Ouvrir le fichier '---------------- Set objInStream = objFSO.OpenTextFile(strFilename, _ K_FSO_FOR_READING, _ False, _ K_FSO_FORMAT_DEFAULT) 'Lire les lignes et les afficher '------------------------------- Do While Not objInStream.AtEndOfStream strLine = objInStream.Readline WScript.Echo strLine Loop 'Fermer le fichier '----------------- objInStream.Close '=============================================================================== 'FIN DU PROGRAMME '===============================================================================