隨筆-3 
評論-26 
文章-41 
trackbacks-0

          
	

          

          
	
					


          
	
	
          '////////////////////////////////////////////////FSO操作/////////////////////////////////////
          '          判斷文件夾是否存在
          Function FolderExits(Folder)
          Folder          =Server.Mappath(Folder)
          Set FSO= Server.CreateObject("Scripting.FileSystemObject")
          IF FSO.FolderExists(Folder) Then
             FolderExits          =true
          Else
             FolderExits          =false
          End IF 
          End Function

          '判斷文件是否存在
          Function FileExits(FileName)
          FileName          =Server.Mappath(FileName)
          Set FSO= Server.CreateObject("Scripting.FileSystemObject")
          IF FSO.FileExists(FileName) Then
             FileExits          =true
          Else
             FileExits          =false
          End IF 
          End Function

          '創(chuàng)建文件夾
          Function CreateFolder(Folder)
          on error resume next
          Folder          =Server.Mappath(Folder)
          Set FSO = Server.CreateObject("Scripting.FileSystemObject")
          FSO.CreateFolder(Folder)
          if err>0 then 
            err.clear
            CreateFolder          =False
          else 
            CreateFolder          =True
          end if 
          End function

          '創(chuàng)建文件
          Function CreateFile(FileName,Content)
          on error resume next
          FileName          =Server.Mappath(FileName)
          Set FSO = Server.CreateObject("Scripting.FileSystemObject")
          set fd=FSO.createtextfile(FileName,true)
          fd.writeline Content
          if err>0 then 
            err.clear
            CreateFile          =False
          else 
            CreateFile          =True
          end if 
          End function

          '刪除文件
          function DeleteFile(FileName)
          on error resume next 
          Set FSO = Server.CreateObject("Scripting.FileSystemObject")
          if FSO.FileExists(FileName) then 
            FSO.DeleteFile FileName,          true
          end if
          if err>0 then 
            err.clear
            DeleteFile          =False
          else 
            DeleteFile          =True
          end if 
          end function 

          '刪除文件夾
          function DeleteFolder(Folder)
          on error resume next 
          Folder          =server.MapPath(Folder)
          Set FSO = Server.CreateObject("Scripting.FileSystemObject")
          if FSO.FolderExists(Folder) then 
            FSO.Deletefolder Folder,          true
          end if
          if err>0 then 
            err.clear
            Deletefolder          =False
          else 
            Deletefolder          =True
          end if 
          end function 
          

	
          posted on 2007-08-03 14:52 百年 閱讀(946) 評論(0)  編輯  收藏  所屬分類: Asp Article 
          

          







          
	    
    




          








          

				

          







    







          
        
	




主站蜘蛛池模板：
房产|
资中县|
方城县|
岐山县|
综艺|
饶河县|
昆山市|
宿松县|
尉氏县|
三门峡市|
邵阳市|
谷城县|
徐州市|
昌平区|
武功县|
于都县|
勃利县|
宁晋县|
天柱县|
宁化县|
张掖市|
雷波县|
武乡县|
佛冈县|
康马县|
萝北县|
滨州市|
阜新|
临城县|
荣成市|
梓潼县|
宜宾市|
定西市|
沾益县|
崇信县|
平果县|
博兴县|
沙河市|
阿合奇县|
涞水县|
苗栗县|