文件操作的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 
% >