Aujourd'hui, lors de la rédaction de programmes, je dois utiliser à plusieurs reprises des fichiers texte d'écriture, j'ai donc écrit une fonction de processus, en espérant que cela sera utile à tout le monde.
Code:
Sub Write2File (strfile, strContent, Blnappend)
'Écrivez dans le fichier
«Nom de fichier StrFile (chemin), contenu écrit par StrContent, que ce soit pour ajouter Blnappend
Sur l'erreur reprendre ensuite
Set objfso = server.createObject ("scripting.fileSystemObject")
Si Blnappend alors
Set objWriteText = objfso.OpenTExtFile (strfile, 8, true)
Autre
Set objWriteText = objfso.OpenTExtFile (strfile, 2, true)
Terminer si
objWriteText.WriteLine (StrContent)
Définir objWriteText = rien
Définir objfso = rien
'Traitement tolérant aux pannes
Sélectionnez le cas ERR
Cas 424 Response.Write "Le chemin n'est pas trouvé ou le répertoire n'a pas d'autorisation d'écriture."
'Case else Response.Write err.deScription
Cas de réponse.
Fin de sélection
Sub-Sub
Méthode d'appel:
Write2file "c: /dd.ini", "dd", true
ou
Appeler Write Write2File ("c: /dd.ini", "dd", true)
illustrer:
1. Créer automatiquement des fichiers;
2.Catalog ne peut pas être créé automatiquement