Hari ini, ketika menulis program, saya harus berulang kali menggunakan file teks menulis, jadi saya menulis fungsi proses, berharap ini akan berguna bagi semua orang.
Kode:
Sub Write2File (Strfile, Strcontent, Blnappend)
'Menulis ke file
'Strfile File Name (path), konten yang ditulis oleh Strcontent, apakah akan menambahkan blnappend
Pada kesalahan resume berikutnya
Set ObjFSO = Server.CreateObject ("Scripting.FilesystemObject")
Jika BlnAppend maka
Set Objwritetext = objfso.opentextFile (Strfile, 8, true)
Kalau tidak
Set Objwritetext = objfso.opentextFile (Strfile, 2, true)
Akhiri jika
Objwritetext.WriteLine (Strcontent)
Atur objwritetext = tidak ada
Atur objfso = tidak ada
'Pemrosesan toleran terhadap kesalahan
Pilih case err
Case 424 Response.write "Path tidak ditemukan atau direktori tidak memiliki izin menulis."
'Case lain response.write err.description
Case lain response.write err
Akhiri Pilih
Akhir sub
Metode Panggilan:
Write2file "c: /dd.ini", "dd", true
atau
Hubungi write2file ("c: /dd.ini", "dd", true)
menjelaskan:
1. Secara otomatis membuat file;
2.Catalog tidak dapat dibuat secara otomatis