Option Explicit
'===============================================================================
'Contexte : slc66.net - memo - Windows Script
'===============================================================================
'Nom du fichier : create_file.vbs
'
'Auteur   : stephane.lecaer@slc66.net
'
'Version :	1.0	08/04/2006	Version initiale
'
'-------------------------------------------------------------------------------
'Description :
' Exemple d'écriture d'un fichier texte.
'
'Utilisation :
'	Sous la ligne de commande :
'		> cscript -nologo create_file.vbs
'
'===============================================================================

'===============================================================================
'Déclaration des constantes
'===============================================================================
Const K_FSO_FOR_WRITING 	= 2
Const K_FSO_FORMAT_DEFAULT	= -2

'===============================================================================
'Déclaration des variables
'===============================================================================
Dim objShell
Dim objFSO
Dim objOutStream
Dim strFilename

'===============================================================================
'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
strFilename = Left(strFilename, Len(strFilename) - 3) & ".txt"

'Créer le fichier
'----------------
Set objOutStream = objFSO.CreateTextFile(strFilename, True)

'Ecrire la date dans le fichier
'------------------------------
objOutStream.WriteLine Date()

'Fermer le fichier
'-----------------
objOutStream.Close

'===============================================================================
'FIN DU PROGRAMME
'===============================================================================