FSO_Name = "Scrip"+"ting"+"."+"File"+"System"+"Object" '************************************************** '函数名:CreateListFolder '作 用:不限分级创建目录 形如 1/2/3/ 则在网站根目录下创建分级目录 '参 数:Folder要创建的目录 '返回值:成功返回true 否则返回Flase '************************************************** Public Function CreateListFolder(ByVal Folder) Dim FSO, WaitCreateFolder, SplitFolder, CF, k On Error Resume Next If Folder = "" Then CreateListFolder = False:Exit Function End If Folder = Replace(Folder, "/", "/") If Right(Folder, 1) <> "/" Then Folder = Folder & "/" If Left(Folder, 1) <> "/" Then Folder = "/" & Folder Set FSO = CreateObject(FSO_Name) If Not FSO.FolderExists(Server.MapPath(Folder)) Then SplitFolder = Split(Folder, "/") For k = 0 To UBound(SplitFolder) - 1 If k = 0 Then CF = SplitFolder(k) & "/" Else CF = CF & SplitFolder(k) & "/" End If If (Not FSO.FolderExists(Server.MapPath(CF))) Then FSO.CreateFolder (Server.MapPath(CF)) CreateListFolder = True End If Next End If Set FSO = Nothing If Err.Number <> 0 Then Err.Clear CreateListFolder = False Else CreateListFolder = True End If End Function '************************************************** '函数名:DeleteFolder '作 用:删除指定目录 '参 数:FolderStr要删除的目录 '返回值:成功返回true 否则返回Flase '************************************************** Public Function DeleteFolder(FolderStr) Dim FSO On Error Resume Next FolderStr = Replace(FolderStr, "/", "/") Set FSO = CreateObject(FSO_Name) If FSO.FolderExists(Server.MapPath(FolderStr)) Then FSO.DeleteFolder (Server.MapPath(FolderStr)) Else DeleteFolder = True End If Set FSO = Nothing If Err.Number <> 0 Then Err.Clear:DeleteFolder = False Else DeleteFolder = True End If End Function '************************************************** '函数名:DeleteFile '作 用:删除指定文件 '参 数:FileStr要删除的文件 '返回值:成功返回true 否则返回Flase '************************************************** Public Function DeleteFile(FileStr) Dim FSO On Error Resume Next Set FSO = CreateObject(FSO_Name) If FSO.FileExists(Server.MapPath(FileStr)) Then FSO.DeleteFile Server.MapPath(FileStr), True Else DeleteFile = True End If Set FSO = Nothing If Err.Number <> 0 Then Err.Clear:DeleteFile = False Else DeleteFile = True End If End Function '********************************************************************** '函数名:CheckFileShowOrNot '参数:AllowShowExtNameStr允许的文件扩展名,ExtName实际文件扩展名 '********************************************************************** Public Function CheckFileShowOrNot(AllowShowExtNameStr, ExtName) If ExtName = "" Then CheckFileShowOrNot = False Else If InStr(1, AllowShowExtNameStr, ExtName) = 0 Then CheckFileShowOrNot = False Else CheckFileShowOrNot = True End If End If End Function '********************************************************************** '函数名:GetFieSize '作用:取得指定文件的大小 '参数:FilePath--文件位置 '********************************************************************** Public Function GetFieSize(FilePath) GetFieSize = 0 Dim FSO, F On Error Resume Next Set FSO = Server.CreateObject(FSO_Name) Set F = FSO.GetFile(FilePath) GetFieSize = F.size Set F = Nothing:Set FSO = Nothing End Function '取得目录大小 Public Function GetFolderSize(FolderPath) dim fso:Set FSO = Server.CreateObject(FSO_Name) if fso.FolderExists(Server.MapPath(FolderPath)) then dim userfilespace:set UserFileSpace=FSO.GetFolder(Server.MapPath(FolderPath)) GetFolderSize=UserFileSpace.size else GetFolderSize=0:exit function end if set userfilespace=nothing:set fso=nothing End Function '************************************************************************************* '文件备份过程 '过程名:backupdata '参数:CurrPath原文件完整物理地址,BackPath目标备份文件完整物理地址 '************************************************************************************* Public Function BackUpData(CurrPath, BackPath) On Error Resume Next Dim FSO:Set FSO = Server.CreateObject(FSO_Name) FSO.copyfile CurrPath, BackPath If Err Then BackUpData = False Else BackUpData = True End If FSO.Close:Set FSO = Nothing End Function '------------------检查某一目录是否存在------------------- Public Function CheckDir(FolderPath) Dim fso1 FolderPath = Server.MapPath(".") & "/" & FolderPath Set fso1 = CreateObject(FSO_Name) If fso1.FolderExists(FolderPath) Then CheckDir = True Else CheckDir = False End If Set fso1 = Nothing End Function '------------------检查某一文件是否存在------------------- Public Function CheckFile(FileName) On Error Resume Next Dim FsoObj Set FsoObj = Server.CreateObject(FSO_Name) If Not FsoObj.FileExists(Server.MapPath(FileName)) Then CheckFile = False Exit Function End If CheckFile = True:Set FsoObj = Nothing End Function