Asp Fso文件/文件夹操作类

推荐：Asp时间处理函数
一个转化时间的函数。kingcms中的时间处理也是很强大的，有时间可以看看。 PHP中的date()函数功能实在是太强大了，忍不住用ASP模仿写了个.... 但只是写到日，还没写小时，分，秒的.. 所以这个函数还没能格式化小时，分，秒的，有时间以后再加上。 % '*******

和前面提到的一样，这个也只是把一些函数压在一起。实际上用一些函数集的方法放程序中更好。

主要功能：

1,创建删除文件夹

2,获取某个文件夹里的文件夹名称和个数

3,获取某个文件夹里的文件名称和个数

4,检查某个文件夹是否存在

5,检查某个文件是否存在

6,删除文件

7,读取某个文件的内容

7,创建一个文件，并把内容写到这个文件里面

总的来说，功能就分两个，一个是文件操作，一个是文件夹操作。我只是根据我的那个"在线作业管理系统"的需求写的，并不适合所有人...

<%

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

'名称：FSO操作类

'作者：西楼冷月

'日期：2006-3-1

'网址：www.xilou.net/ | www.chinaCMS.org

'描述：FSO操作类

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

Class FsoCls

Private Fso'//对象

Public FsoObj'//公共接口对象

'//初始化,构造函数

Private Sub Class_Initialize

Set Fso=CreateObject("Scripting.FileSystemObject")

Set FsoObj=Fso

End Sub

'//结束，释构函数

Private Sub Class_Terminate

Set Fso=Nothing

Set FsoObj=Nothing

End Sub

'====================文件操作开始=========================

Function IsFileExists(ByVal FileDir)

'判断文件是否存在，存在则返回True,否则返回False

'参数FileDir为文件的绝对路径

If Fso.FileExists(FileDir) Then

IsFileExists=True

Else

IsFileExists=False

End If

End Function

Function GetFileText(ByVal FileDir)

'读取文件内容，存在则返回文件的内容，否则返回False

'参数FileDir为文件的绝对路径

If IsFileExists(FileDir) Then

Dim F

Set F=Fso.OpenTextFile(FileDir)

GetFileText=F.ReadAll

Set F=Nothing

Else

GetFileText=False

End If

End Function

Function CreateFile(ByVal FileDir,ByVal FileContent)

'创建一个文件并写入内容

'操作成功返回True,否则返回False

If IsFileExists(FileDir) Then

CreateFile=False

Exit Function

Else

Dim F

Set F=Fso.CreateTextFile(FileDir)

F.Write FileContent

CreateFile=True

F.Close

End If

End Function

Function DelFile(ByVal FileDir)

'删除一个文件，成功返回True，否则返回False

'参数FileDir为文件的绝对路径

If IsFileExists(FileDir) Then

Fso.DeleteFile(FileDir)

DelFile=True

Else

DelFile=False

End If

End Function

分享：asp事件类 asplib-eventProvider.class.asp 用于获取ip等
作者真是细致，把这些东西都封装成为class了。有点过了，这些东西可以作成过程或者函数来封装，sub和function也是封装，不一定非要class才可以。您的文件库不一定全部都是class，一些sub和funtion都是必要的。 实现的功能包括 1，showInfo(e_title,c_url,e_n