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

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

'====================文件操作结束=========================

'====================文件夹操作开始========================
Function IsFolderExists(ByVal FolderDir)
'判断文件夹是否存在，存在则返回True,否则返回False
'参数FolderDir为文件的绝对路径
If Fso.FolderExists(FolderDir) Then
IsFolderExists=True
Else
IsFolderExists=False
End If
End Function
Sub CreateFolderA(ByVal ParentFolderDir,ByVal NewFoldeName)
'//在某个特定的文件夹里创建一个文件夹
'//ParentFolderDir为父文件夹的绝对路径，NewFolderName为要新建的文件夹名称
If IsFolderExists(ParentFolderDir&"\"&NewFoldeName) Then Exit Sub
Dim F,F1
Set F=Fso.GetFolder(ParentFolderDir)
Set F1=F.SubFolders
F1.Add(NewFoldeName)
Set F=Nothing
Set F1=Nothing
End Sub
Sub CreateFolderB(ByVal NewFolderDir)
'//创建一个新文件夹
'//参数NewFolderDir为要创建的文件夹绝对路径
If IsFolderExists(NewFolderDir) Then Exit Sub
Fso.CreateFolder(NewFolderDir)
End Sub
Sub DeleteAFolder(ByVal NewFolderDir)
'//删除一个新文件夹
'//参数NewFolderDir为要创建的文件夹绝对路径
If IsFolderExists(NewFolderDir)=False Then
Exit Sub
Else
Fso.DeleteFolder (NewFolderDir)
End If
End Sub
Function FolderItem(ByVal FolderDir)
'//文件夹里的文件夹集合
'//FolderDir 为文件夹绝对路径
If IsFolderExists(FolderDir) =False Then
FolderItem=False
Exit Function
End If
Dim FolderObj,FolderList,F
Set FolderObj=Fso.GetFolder(FolderDir)
Set FolderList=FolderObj.SubFolders
FolderItem=FolderObj.SubFolders.Count'//文件夹总数
For Each F In FolderList
FolderItem=FolderItem&"|"&F.Name
Next
Set FolderList=Nothing
Set FolderObj=Nothing
End Function

Function FileItem(ByVal FolderDir)
'//文件夹里的文件集合
'//FolderDir 为文件夹绝对路径
If IsFolderExists(FolderDir) =False Then
FileItem=False
Exit Function
End If
Dim FileObj,FileerList,F
Set FileObj=Fso.GetFolder(FolderDir)
Set FileList=FileObj.Files
FileItem=FileObj.Files.Count'//文件总数
For Each F In FileList
FileItem=FileItem&"|"&F.Name
Next
Set FileList=Nothing
Set FileObj=Nothing
End Function
'====================文件夹操作结束========================
End Class
%>

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