枫叶随风ASP文件操作类(FSO)(转)

'=============================================================
'作者：枫叶随风
'QQ：455948725
'E-mail：liukun615@126.com
'WebSite：http://www.fengyekun.com
'=============================================================
class FsoClass
    private Fso,SourcePath,DestinationPath,FsoFile,FileType

    private sub Class_Initialize()
        set Fso=server.CreateObject("Scripting.FileSystemObject")
        FileType="inc|txt|text|htm|html|shtm|shtml|xhtml|xml|css|js|asp|asa|php|jsp|dwt"
    end sub

    private sub Class_Terminate()
        set Fso=nothing
    end sub

    private sub ErrorInfo(ErrorNum)
        select case ErrorNum
        case 1:Str="FsoClass类错误：没有指定Source参数！"
        case 2:Str="FsoClass类错误：没有指定Destination参数！"
        case 3:Str="FsoClass类错误：执行文件操作时不支持此文件扩展名！"
        case 4:Str="FsoClass类错误：执行文件操作时找不到指定文件！"
        case 5:Str="FsoClass类错误：执行文件操作时找不到指定文件夹！"
        end select

        response.write "<script language=""JavaScript"">alert("""&Str&""")</script>"
        response.End()
    end sub

    public property get Source
        Source=SourcePath
    end property
    public property let Source(FilePath)
        SourcePath=FilePath
    end property

    public property get Destination
        Destination=DestinationPath
    end property
    public property let Destination(FilePath)
        DestinationPath=FilePath
    end property

    '获取文件路径
    public property get Path
        if Destination<>"" then
            Path=left(Destination,instrRev(Destination,"/"))
        end if
    end property

    '获取文件名称
    public property get Name
        if Destination<>"" then
            Name=mid(Destination,instrRev(Destination,"/")+1)
        end if
    end property

    '获取文件扩展名
    public property get ExtensionName
        if Destination<>"" then
            ExtensionName=mid(Destination,instrRev(Destination,".")+1)
        end if
    end property

    '获取文件或文件夹的父文件夹包含文件夹名称的路径
    public property get ParentFolderPath
        if Destination<>"" then
            ParentFolderPath=Fso.GetParentFolderName(server.MapPath(Destination))
        end if
    end property

    '获取文件或文件夹的父文件夹名称
    public property get ParentFolderName
        if Destination<>"" then
            dim TempName
            TempName=Fso.GetParentFolderName(server.MapPath(Destination))
            ParentFolderName=mid(TempName,instrRev(TempName,"\")+1)
        end if
    end property

    '获取文件大小
    public property get Size
        if Destination<>"" then
            if FileExist(Destination) then
            set FsoFile=Fso.GetFile(server.MapPath(Destination))
            Size=round(FsoFile.size/1024)
            end if
        end if
    end property

    '创建时间
    public property get DateCreated
        if Destination<>"" then
            if FileExist(Destination) then
            set FsoFile=Fso.GetFile(server.MapPath(Destination))
            DateCreated=FsoFile.DateCreated
            end if
        end if
    end property

    '上次修改时间
    public property get DateLastModified
        if Destination<>"" then
            if FileExist(Destination) then
            set FsoFile=Fso.GetFile(server.MapPath(Destination))
            DateLastModified=FsoFile.DateLastModified
            end if
        end if
    end property

    '上次访问时间
    public property get DateLastAccessed
        if Destination<>"" then
            if FileExist(Destination) then
            set FsoFile=Fso.GetFile(server.MapPath(Destination))
            DateLastAccessed=FsoFile.DateLastAccessed
            end if
        end if
    end property

    '检测文件是否存在(仅在类内部使用)
    private function FileExist(FilePath)
        FileExist=Fso.FileExists(server.MapPath(FilePath))
    end function

    '检测文件夹是否存在(仅在类内部使用)
    private function FolderExist(FilePath)
        FolderExist=Fso.FolderExists(server.MapPath(FilePath))
    end function



    '检测文件是否存在
    public function FileExists()
        if Destination="" then Call ErrorInfo(2)

        FileExists=Fso.FileExists(server.MapPath(Destination))
    end function

    '检测文件夹是否存在
    public function FolderExists()
        if Destination="" then Call ErrorInfo(2)

        FolderExists=Fso.FolderExists(server.MapPath(Destination))
    end function

    '复制文件
    public function CopyFile()
        if Source="" then Call ErrorInfo(1)
        if Destination="" then Call ErrorInfo(2)
        if FileExist(Source)=false then Call ErrorInfo(4)
        if FolderExist(Path)=false then Call ErrorInfo(5)

        Fso.CopyFile server.MapPath(Source),server.MapPath(Destination)
    end function

    '复制文件夹  //当原文件夹为空文件夹时，此操作无效
    public function CopyFolder()
        if Source="" then Call ErrorInfo(1)
        if Destination="" then Call ErrorInfo(2)
        if FolderExist(Source)=false then Call ErrorInfo(4)
        if FolderExist(Path)=false then Call ErrorInfo(5)

        Fso.CopyFolder server.MapPath(Source),server.MapPath(Destination)
    end function

    '删除文件
    public function DeleteFile()
        if Destination="" then Call ErrorInfo(2)

        if FileExist(Destination) then
            Fso.DeleteFile server.MapPath(Destination)
        end if
    end function

    '删除文件夹
    public function DeleteFolder()
        if Destination="" then Call ErrorInfo(2)

        if FolderExist(Destination) then
            Fso.DeleteFolder server.MapPath(Destination)
        end if
    end function

    '移动文件
    public function MoveFile()
        if Source="" then Call ErrorInfo(1)
        if Destination="" then Call ErrorInfo(2)
        if FileExist(Source)=false then Call ErrorInfo(4)
        if FolderExist(Path)=false then Call ErrorInfo(5)

        if FileExist(Destination) then Call DeleteFile()
        Fso.MoveFile server.MapPath(Source),server.MapPath(Destination)
    end function

    '移动文件夹
    public function MoveFolder()
        if Source="" then Call ErrorInfo(1)
        if Destination="" then Call ErrorInfo(2)
        if FolderExist(Source)=false then Call ErrorInfo(4)
        if FolderExist(Path)=false then Call ErrorInfo(5)

        if FolderExist(Destination) then Call DeleteFolder()
        Fso.MoveFolder server.MapPath(Source),server.MapPath(Destination)
    end function

    '创建文件夹
    public function CreateFolder()
        if Destination="" then Call ErrorInfo(2)

        Fso.CreateFolder(server.MapPath(Destination))
    end function

    '读取文件内容
    public function ReadFile()
        if Destination="" then Call ErrorInfo(2)
        if FileExist(Destination)=false then Call ErrorInfo(4)

        set FsoFile=Fso.OpenTextFile(server.MapPath(Destination))
        ReadFile=FsoFile.readall
        FsoFile.close
    end function

    '创建文件
    public function CreateFile(Content)
        if Destination="" then Call ErrorInfo(2)
        if instr(FileType,ExtensionName)=0 then Call ErrorInfo(3)
        if FileExist(Path)=false then Call ErrorInfo(5)

        set FsoFile=Fso.CreateTextFile(server.MapPath(Destination),true)
        FsoFile.write(Content)
        FsoFile.close
    end function

    '修改文件内容
    public function ModifyFile(Content)
        if Destination="" then Call ErrorInfo(2)
        if instr(FileType,ExtensionName)=0 then Call ErrorInfo(3)
        if FileExist(Destination)=false then Call ErrorInfo(4)

        set FsoFile=Fso.OpenTextFile(server.MapPath(Destination),2,true)
        FsoFile.write(Content)
        FsoFile.close
    end function

    '在文件内容末尾追加内容
    public function WriteFile(Content)
        if Destination="" then Call ErrorInfo(2)
        if instr(FileType,ExtensionName)=0 then Call ErrorInfo(3)
        if FileExist(Destination)=false then Call ErrorInfo(4)

        set FsoFile=Fso.OpenTextFile(server.MapPath(Destination),8,true)
        FsoFile.write(Content)
        FsoFile.close
    end function

    '更改文件名称和扩展名
    public function ChangeFileName(FileName)
        if Destination="" then Call ErrorInfo(2)
        if FileExist(Destination)=false then Call ErrorInfo(4)

        dim t_Path
        t_Path=Destination
        Destination=Path&FileName
        Source=t_Path
        Call MoveFile()
    end function

    '更改文件夹名称
    public function ChangeFolderName(FolderName)
        if Destination="" then Call ErrorInfo(2)
        if FolderExist(Destination)=false then Call ErrorInfo(4)

        dim t_Path
        t_Path=Destination
        Destination=Path&FolderName
        Source=t_Path
        Call MoveFolder()
    end function
end class

属性：
文件原路径　Source
文件目标路径　Destination
文件路径　Path
文件名称　Name
文件大小(以KB为单位)　Size
文件扩展名　ExtensionName
父文件名称　ParentFolderName
父文件路径　ParentFolderPath
文件创建时间　DateCreated
上次访问时间　DateLastAccessed
上次修改时间　DateLastModified

方法：
检测文件是否存在　FileExists()
检测文件夹是否存在　FolderExists()
复制文件　CopyFile()
复制文件夹　CopyFolder()
删除文件　DeleteFile()
删除文件夹　DeleteFolder()
移动文件　MoveFile()
移动文件夹　MoveFolder()
创建文件　CreateFile(Content)
创建文件夹　CreateFolder()
修改文件　ModifyFile(Content)
读取文件　ReadFile()
写入内容(以追加方式)　WriteFile(Content)
更改文件名称　ChangeFileName(FileName)
更改文件夹名称　ChangeFolderName(FolderName)

实例：检测文件是否存在
dim Fso
set Fso=new FsoClass
Fso.Destination="/Temp/Temp.txt"
if Fso.FileExists() then
    response.write "文件存在！"
else
    response.write "文件不存在！"
end if
set Fso=nothing

实例：检测文件夹是否存在
dim Fso
set Fso=new FsoClass
Fso.Destination="/Temp/Temp"
if Fso.FolderExists() then
    response.write "文件夹存在！"
else
    response.write "文件夹不存在！"
end if
set Fso=nothing

实例：复制文件
dim Fso
set Fso=new FsoClass
Fso.Source="1.txt"
Fso.Destination="2.txt"
Fso.CopyFile()
set Fso=nothing

实例：复制文件夹(如果原文件夹为空，则此操作无效)
dim Fso
set Fso=new FsoClass
Fso.Source="/Temp"
Fso.Destination="/1/"
Fso.CopyFolder()
set Fso=nothing

实例：删除文件
dim Fso
set Fso=new FsoClass
Fso.Destination="/Temp/Temp.txt"
Fso.DeleteFile()
set Fso=nothing

实例：删除文件夹
dim Fso
set Fso=new FsoClass
Fso.Destination="/Temp"
Fso.DeleteFolder()
set Fso=nothing

实例：移动文件
dim Fso
set Fso=new FsoClass
Fso.Source="/Temp1/a.txt"
Fso.Destination="/Temp2/b.txt"
Fso.MoveFile()
set Fso=nothing

实例：移动文件夹
dim Fso
set Fso=new FsoClass
Fso.Source="/Temp1/a"
Fso.Destination="/Temp2/b"
Fso.MoveFolder()
set Fso=nothing

实例：创建文件夹
dim Fso
set Fso=new FsoClass
Fso.Destination="/Temp/1"
Fso.CreateFolder()
set Fso=nothing

实例：创建文件
dim Fso,Content
Content="aaa"
set Fso=new FsoClass
Fso.Destination="/Temp/1.txt"
Fso.CreateFile(Content)
set Fso=nothing

实例：读取文件内容
dim Fso,Content
set Fso=new FsoClass
Fso.Destination="/Temp/1.txt"
Content=Fso.ReadFile()
set Fso=nothing

response.write Content

实例：修改文件内容
dim Fso,Content
Content="aaa"
set Fso=new FsoClass
Fso.Destination="/Temp/1.txt"
Fso.ModifyFile(Content)
set Fso=nothing

实例：写入内容(以追加方式)
dim Fso,Content
Content="aaa"
set Fso=new FsoClass
Fso.Destination="/Temp/1.txt"
Fso.WriteFile(Content)
set Fso=nothing

实例：更改文件名称
dim Fso
set Fso=new FsoClass
Fso.Destination="/Temp/a.txt"
Fso.ChangeFileName("b.txt")
set Fso=nothing

实例：更改文件夹名称
dim Fso
set Fso=new FsoClass
Fso.Destination="/Temp/a"
Fso.ChangeFolderName("b")
set Fso=nothing