TOUT SUR FILESYSTEMOBJECT (PARTIE II : LES FICHIERS)

<%
'Faut d'abord déclarer l'objet(comme ds la partie I)
Dim FS,F
Set FS = CreateObject("Scripting.FileSystemObject")

'II] Les fichiers

'Faut d'abord déclarer sur quel fichier vous voulez travailler(comme ds la partie I...)
Set F = FS.GetFile(Server.MapPath("/essai.asp"))

'Maitenant on peut commencer à bosser!

'Pour les opération vous faites comme pour les dossiers (partie I)

'Les infos sur des fichiers
'C pareil que pour les dossiers sauf:

'Obtenir l'extension du fichier
F.Type


'-----------------------
'LIRE,ECRIRE ET TOUT CA
'-----------------------

'On declare tout(pour reprendre a zero)
Dim FS,F
Set FS = CreateObject("Scripting.FileSystemObject")

'On crée le fichier
Set F = FS.CreateTextFile(Nom,Remplace,Unicode)
  - Remplace : Si true le fichier est remplacé s'il existe deja
  - Unicode : Si True le fichier est crée en Unicode

'Ouvrir un fichier deja existant
Set F = FS.OpenTextFile(Nom,Mode,Create,Format)
Mode :
  - Reading ou 1 : Lecture Seule
  - Writing ou 2 : Ecriture
  - Appending ou 8 : Ouvre le fichier lecture ecriture

'On ecrit dedans
F.writeLine("Vive AspFr!") 'Ecrit a la postion courante du fichier
'ou
F.Write("Vive AspFr!") 'Pareil

'Ecrire des lignes vides
F.writeBlankLines

'Sauter un nombre de caratères
F.Skip(Nombre)

'Sauter une ligne
F.SkipLine

'La position courante du pointeur dans ce fichier
F.Column

'Le n° de ligne courante
F.line

'True si le pointeur est à la fin d'une ligne
F.AtEndOfLine

'True si le pointeur est à la fin du texte
'F.AtEndOfStream

'Lire un nombre de caratère
F.Read(Nombre)

'Lire tout un fichier
F.ReadAll

'Fermer le fichier
F.Close

%>