Tout sur filesystemobject (partie ii : les fichiers)

Soyez le premier à donner votre avis sur cette source.

Snippet vu 22 118 fois - Téléchargée 37 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
1
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

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

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

Thx
beeline
Messages postés
83
Date d'inscription
jeudi 20 décembre 2001
Statut
Membre
Dernière intervention
9 juin 2009

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.