今日、プログラムを書くときは、テキストファイルを繰り返し作成する必要があるため、プロセス関数を作成し、すべての人に役立つことを願っています。
コード:
sub write2file(strfile、strcontent、blnappend)
'ファイルに書き込みます
'strfileファイル名(パス)、strcontentによって書かれたコンテンツ、blnappendを追加するかどうか
エラーの再開時に次に再開します
objfso = server.createObject( "Scripting.filesystemObject")を設定します
blnappendの場合
objwriteText = objfso.opentextfile(strfile、8、true)を設定
それ以外
objwriteText = objfso.opentextfile(strfile、2、true)を設定
ifを終了します
objwriteText.writeLine(strcontent)
objwriteText = Nothingを設定します
objfso =何も設定しません
'フォールトトレラント処理
ケースERRを選択します
ケース424応答。「パスが見つからないか、ディレクトリに書き込み許可がありません。」
'ケース他の応答
ケースELSE Response.Write err
[選択]を終了します
End Sub
呼び出し方法:
write2file "c:/dd.ini"、 "dd"、true
または
write2file( "c:/dd.ini"、 "dd"、true)を呼び出す
説明:
1.ファイルを自動的に作成します。
2.Catalogは自動的に作成できません