文件操作的CLASS(VB)

 

<%
class cls_fso 
    public objfso 
    private sub class_initialize() 
        set objfso = server.createobject("scripting.filesystemobject") 
    end sub 
    private sub class_terminate() 
        set objfso = nothing 
    end sub 
    
    '文件是否存在
    public function reportfilestatus(filename) 
        dim msg 
        msg = -1 
        if (objfso.fileexists(filename)) then 
            msg = 1 
        else 
            msg = -1 
        end if 
        reportfilestatus = msg 
    end function 

    '=======文件操作======== 
    '取文件大小
    public function getfilesize(filename) 
        dim f 
        if reportfilestatus(filename) = 1 then 
            set f = objfso.getfile(filename) 
            getfilesize = f.size 
        else 
            getfilesize = -1 
        end if 
    end function 

    '刪除文件
    public function deleteafile(filespec) 
        if reportfilestatus(filespec) = 1 then 
            objfso.deletefile(filespec) 
            deleteafile = 1 
        else 
            deleteafile = -1 
        end if 
    end function 

    '顯示文件列表
    public function showfilelist(folderspec) 
        dim f, f1, fc, s 
        if reportfolderstatus(folderspec) = 1 then 
            set f = objfso.getfolder(folderspec) 
            set fc = f.files 
            for each f1 in fc 
                s = s & f1.name 
                s = s & "|" 
            next 
            showfilelist = s 
        else 
            showfilelist = -1 
        end if 
    end function 

    '復制文件
    public function copyafile(sourcefile, destinationfile) 
        dim myfile 
        if reportfilestatus(sourcefile) = 1 then 
            set myfile = objfso.getfile(sourcefile) 
            myfile.copy (destinationfile) 
            copyafile = 1 
        else 
            copyafile = -1 
        end if 
    end function 

    '移動文件
    public function moveafile(sourcefile,destinationfile) 
        if reportfilestatus(sourcefile) = 1 and reportfilestatus(destinationfileorpath) = -1 then 
            objfso.movefile sourcefile,destinationfileorpath 
            moveafile = 1 
        else 
            moveafile = -1 
        end if 
    end function 


    '文件創建日期
    public function showdatecreated(filespec) 
        dim f 
        if reportfilestatus(filespec) = 1 then 
            set f = objfso.getfile(filespec) 
            showdatecreated = f.datecreated 
        else 
            showdatecreated = -1 
        end if 
    end function 

    '文件屬性
    public function getattributes(filename) 
        dim f 
        dim strfileattributes 
        if reportfilestatus(filename) = 1 then 
            set f = objfso.getfile(filename) 
            select case f.attributes 
                case 0 strfileattributes = "普通文件,沒有設置任何屬性." 
                case 1 strfileattributes = "只讀文件,可讀寫. " 
                case 2 strfileattributes = "隱藏文件,可讀寫." 
                case 4 strfileattributes = "系統文件,可讀寫." 
                case 16 strfileattributes = "文件夾或目錄,只讀." 
                case 32 strfileattributes = "上次備份後已更改的文件,可讀寫." 
                case 1024 strfileattributes = "鏈接或是快捷方式,只讀." 
                case 2048 strfileattributes = "壓縮文件,只讀." 
            end select 
            getattributes = strfileattributes 
        else 
            getattributes = -1 
        end if 
    end function 

    '最後一次訪問,最後一次修改時間
    public function showfileaccessinfo(filename,infotype) 
        '//功能:顯示文件創建信息 
        '//形參:文件名,信息類別.
        '// 1 -----創建時間
        '// 2 -----上次訪問時間
        '// 3 -----上次修改時間 
        '// 4 -----文件路徑
        '// 5 -----文件名稱 
        '// 6 -----文件類型 
        '// 7 -----文件大小 
        '// 8 -----父目錄 
        '// 9 -----根目錄 
        dim f, s 
        if reportfilestatus(filename) = 1 then 
            set f = objfso.getfile(filename) 
            select case infotype 
                case 1 s = f.datecreated 
                case 2 s = f.datelastaccessed 
                case 3 s = f.datelastmodified 
                case 4 s = f.path 
                case 5 s = f.name 
                case 6 s = f.type 
                case 7 s = f.size 
                case 8 s = f.parentfolder 
                case 9 s = f.rootfolder 
            end select 
            showfileaccessinfo = s 
        else 
            showfileaccessinfo = -1 
        end if 
    end function 

    '寫文件
    public function writetxtfile(filename,textstr,writeorappendtype) 
        const forreading = 1, forwriting = 2 , forappending = 8 
        dim f, m 
        select case writeorappendtype 
            case 1: '文件進行寫操作
                set f = objfso.opentextfile(filename, forwriting, true) 
                f.write textstr 
                f.close 
                if reportfilestatus(filename) = 1 then 
                    writetxtfile = 1 
                else 
                    writetxtfile = -1 
                end if 
            case 2: '文件尾進行寫操作 
                if reportfilestatus(filename) = 1 then 
                    set f = objfso.opentextfile(filename, forappending) 
                    f.write textstr 
                    f.close 
                    writetxtfile = 1 
                else 
                    writetxtfile = -1 
                end if 
            end select 
    end function 

    '讀文本文件
    public function readtxtfile(filename) 
        const forreading = 1, forwriting = 2 
        dim f, m 
        if reportfilestatus(filename) = 1 then 
            set f = objfso.opentextfile(filename, forreading) 
            m = f.readline 
            readtxtfile = m 
            f.close 
        else 
            readtxtfile = -1 
        end if 
    end function 

    
    '=======目錄操作======== 
    '目錄是否存在
    public function reportfolderstatus(fldr) 
        dim msg 
        msg = -1 
        if (objfso.folderexists(fldr)) then 
            msg = 1 
        else 
            msg = -1 
        end if 
        reportfolderstatus = msg 
    end function 
    '取目錄大小
    public function getfoldersize(foldername) 
        dim f 
        if reportfolderstatus(foldername) = 1 then 
            set f = objfso.getfolder(foldername) 
            getfoldersize = f.size 
        else 
            getfoldersize = -1 
        end if 
    end function 

    '創建新的目錄
    public function createfolderdemo(foldername) 
        dim f 
        if reportfolderstatus(folderspec) = 1 then 
            createfolderdemo = -1 
        else 
            set f = objfso.createfolder(foldername) 
            createfolderdemo = 1 
        end if 
    end function 

    '刪除目錄
    public function deleteafolder(folderspec) 
        response.write folderspec 
        if reportfolderstatus(folderspec) = 1 then 
            objfso.deletefolder (folderspec) 
            deleteafolder = 1 
        else 
            deleteafolder = -1 
        end if 
    end function 

    '顯示目錄列表
    public function showfolderlist(folderspec) 
        dim f, f1, fc, s 
        if reportfolderstatus(folderspec) = 1 then 
            set f = objfso.getfolder(folderspec) 
            set fc = f.subfolders 
            for each f1 in fc 
                s = s & f1.name 
                s = s & "|" 
            next 
            showfolderlist = s 
        else 
            showfolderlist = -1 
        end if 
    end function 

    '目錄復制
    public function copyafolder(sourcefolder,destinationfolder) 
        objfso.copyfolder sourcefolder,destinationfolder 
        copyafolder = 1 
        copyafolder = -1 
    end function 


    '目錄進行移動
    public function moveafolder(sourcepath,destinationpath) 
        if reportfolderstatus(sourcepath)=1 and reportfolderstatus(destinationpath)=0 then 
            objfso.movefolder sourcepath, destinationpath 
            moveafolder = 1 
        else 
            moveafolder = -1 
        end if 
    end function 


    '目錄創建信息
    public function showfolderaccessinfo(foldername,infotype) 
        '//功能:顯示目妹創建時信息 
        '//形參:目錄名,信息類別 
        '// 1 -----創建時間 
        '// 2 -----上次訪問時間 
        '// 3 -----上次修改時間 
        '// 4 -----目錄路徑
        '// 5 -----目錄名稱 
        '// 6 -----目錄類型 
        '// 7 -----目錄大小 
        '// 8 -----父目錄
        '// 9 -----根目錄 
        dim f, s 
        if reportfolderstatus(foldername) = 1 then 
            set f = objfso.getfolder(foldername) 
            select case infotype 
                case 1 s = f.datecreated 
                case 2 s = f.datelastaccessed 
                case 3 s = f.datelastmodified 
                case 4 s = f.path 
                case 5 s = f.name 
                case 6 s = f.type 
                case 7 s = f.size 
                case 8 s = f.parentfolder 
                case 9 s = f.rootfolder 
            end select 
            showfolderaccessinfo = s 
        else 
            showfolderaccessinfo = -1 
        end if 
    end function 

    '遍歷目錄
    public function displayleveldepth(pathspec) 
        dim f, n ,path 
        set f = objfso.getfolder(pathspec) 
        if f.isrootfolder then 
            displayleveldepth ="指寫的文件夾是根文件夾."&rootfolder 
        else 
            do until f.isrootfolder 
                path = path & f.name &"<br>" 
                set f = f.parentfolder 
                n = n + 1 
            loop 
            displayleveldepth ="指寫的文件夾是嵌套級為:" & n & " 的文件夾.<br>" & path 
        end if 
    end function 

    '========磁盤操作======== 
    '驅動器是否存在
    public function reportdrivestatus(drv) 
        dim msg 
        msg = -1 
        if objfso.driveexists(drv) then 
            msg = 1 
        else 
            msg = -1 
        end if 
        reportdrivestatus = msg 
    end function 

    '可用的返回類型包括fat,ntfs,cdfs.
    public function showfilesystemtype(drvspec) 
        dim d 
        if reportdrivestatus(drvspec) = 1 then 
            set d = objfso.getdrive(drvspec) 
            showfilesystemtype = d.filesystem 
        else 
            showfilesystemtype = -1 
        end if 
    end function 
end class 
%>