Kelas Operasi File/Folder Asp FSO

Direkomendasikan: Fungsi Pemrosesan Waktu ASP
Fungsi waktu konversi. Pemrosesan waktu di KingCMS juga sangat kuat, sehingga Anda dapat memeriksanya jika Anda punya waktu. Fungsi tanggal () dalam PHP sangat kuat sehingga saya tidak bisa tidak menggunakan ASP untuk meniru ... tapi saya baru saja menulisnya sampai hari itu, tetapi saya belum menulisnya. Jadi fungsi ini belum diformat dengan jam, menit, dan detik, dan saya akan menambahkannya setelah saya punya waktu. % '******

Seperti yang disebutkan sebelumnya, ini hanya mendorong beberapa fungsi bersama. Bahkan, lebih baik menempatkan beberapa metode set fungsi dalam program.

Fungsi utama:

1. Buat folder hapus

2. Dapatkan nama dan jumlah folder di folder

3. Dapatkan nama file dan jumlah file di folder

4. Periksa apakah ada folder

5. Periksa apakah ada file

6. Hapus file

7. Baca konten file

7. Buat file dan tulis konten ke dalam file ini

Secara umum, ada dua fungsi: satu adalah operasi file dan yang lainnya adalah operasi folder. Saya baru saja menulisnya berdasarkan kebutuhan saya tentang "sistem manajemen pekerjaan online" dan itu tidak cocok untuk semua orang ...

<%

'******************************

'Nama: Kelas Operasi FSO

'Penulis: Leng Yue, Xilou

'Tanggal: 2006-3-1

'Situs web: www.xilou.net/ | www.chinacms.org

Deskripsi: Kelas Operasi FSO

'******************************

Kelas FSOCLS

Objek Private FSO '//

PUBLIK FSOOBJ '// Objek Antarmuka Publik

'// Inisialisasi, konstruktor

Private Sub Class_initialize

Atur fso = createObject ("Scripting.filesystemObject")

Atur fsoobj = fso

Akhir sub

'// Akhiri, lepaskan konstruktor

Sub Class_Terminate pribadi

Atur fso = tidak ada

Atur fsoobj = tidak ada

Akhir sub

'==================================================================

Fungsi Isfileexists (ByVal Filedir)

'Menilai apakah ada file. Kembalikan true jika ada, jika tidak kembali salah

'Parameter FileDir adalah jalur absolut ke file

Jika FSO.FileExists (FileDir) maka

Isfileexists = true

Kalau tidak

IsFileExists = false

Akhiri jika

Fungsi akhir

Function getFileText (byval filedir)

'Baca konten file, jika ada, ia mengembalikan konten file, jika tidak ia mengembalikan false

'Parameter FileDir adalah jalur absolut ke file

Jika IsfileExists (FileDir) maka

Redup f

Set f = fso.opentextFile (FileDir)

GetFileText = f.readall

Atur f = tidak ada

Kalau tidak

GetFileText = false

Akhiri jika

Fungsi akhir

Fungsi CreateFile (ByVal FileDir, Byval Filecontent)

'Buat file dan tulis konten

'Operasi mengembalikan benar untuk sukses, jika tidak ia mengembalikan false

Jika IsfileExists (FileDir) maka

CreateFile = false

Fungsi keluar

Kalau tidak

Redup f

Set f = fso.createTextFile (FileDir)

F.Write filecontent

CreateFile = true

F.close

Akhiri jika

Fungsi akhir

Fungsi Delfile (Byval Filedir)

'Hapus file dan kembalikan benar, jika tidak kembalikan false

'Parameter FileDir adalah jalur absolut ke file

Jika IsfileExists (FileDir) maka

Fso.deleteFile (FileDir)

Delfile = true

Kalau tidak

Delfile = false

Akhiri jika

Fungsi akhir

Bagikan: Kelas Acara ASP Asplib-eventProvider.class.asp digunakan untuk mendapatkan IP, dll.
Penulis sangat teliti sehingga ia merangkum semua hal ini ke dalam kelas. Ini agak berakhir. Hal -hal ini dapat dienkapsulasi sebagai proses atau fungsi. Sub dan fungsi juga dienkapsulasi, dan tidak harus menjadi kelas. Perpustakaan file Anda belum tentu semua kelas, beberapa sub dan fungsi diperlukan. Fungsi yang diimplementasikan termasuk 1, showInfo (e_title, c_url, e_n