Asp Fso文件/文件夹操作类_ASP教程

推荐：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