Tout sur filesystemobject (partie ii : les fichiers)

0/5 (8 avis)

Snippet vu 22 395 fois - Téléchargée 39 fois

Contenu du snippet

Encore une fois tout est dans le titre...

Source / Exemple :


<%
'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

%>

Conclusion :


Voila,voila...Normalement j'ai rien oublié

@++
vbtom.

PS: Ouais t'as raison... :( LA FLEMME!

A voir également

Ajouter un commentaire Commentaires
cs_lermite222 Messages postés 492 Date d'inscription jeudi 5 avril 2007 Statut Membre Dernière intervention 2 juillet 2012 4
7 juil. 2007 à 10:22
Pour ceux que cela interesse, le complément des mots clés
pour les disques, les répertoirs, les descriptions de fichier, dates d'accés, création etc..

http://www.henri-ruch.ch/ASP/objets/fso/FileSystemObject.asp
guidal Messages postés 85 Date d'inscription lundi 8 avril 2002 Statut Membre Dernière intervention 9 octobre 2003
8 avril 2002 à 13:44
Pour le retour chariot :
F.writeline("chaine") effectue un retour chariot à la fin de la chaine ...
sinon, il y a les caractères pour :
¤ Chr(13) : retour chariot
¤ Chr(10) : saut de ligne
Masterfight Messages postés 20 Date d'inscription jeudi 28 mars 2002 Statut Membre Dernière intervention 20 mars 2006
28 mars 2002 à 11:36
Salut, je viens d'arriver, je trouves les tutoriaux d'enfer.
J'ai malgré tout 2 questions:
1> Qu'est-ce qu'Unicode ?
2> Comment faire un retour chariot dans le fichier en création ?

Merci
vbtom Messages postés 229 Date d'inscription dimanche 3 juin 2001 Statut Membre Dernière intervention 5 octobre 2003
10 févr. 2002 à 02:57
Thx
beeline Messages postés 83 Date d'inscription jeudi 20 décembre 2001 Statut Membre Dernière intervention 9 juin 2009
9 févr. 2002 à 14:02
perfect ;-)

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.