隨筆-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

          '創建文件夾
          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

          '創建文件
          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 百年 閱讀(949) 評論(0)  編輯  收藏  所屬分類: Asp Article 
          

          







          
	    
    




          








          

				

          







    







          
        
	




主站蜘蛛池模板：
阜城县|
小金县|
武安市|
九龙城区|
治县。|
岳西县|
重庆市|
兰考县|
九龙县|
碌曲县|
任丘市|
杭锦后旗|
莒南县|
河南省|
江油市|
田林县|
广东省|
泉州市|
武夷山市|
盘锦市|
哈巴河县|
都安|
自治县|
内乡县|
阜宁县|
共和县|
蓬溪县|
平陆县|
青铜峡市|
大姚县|
昆山市|
贡嘎县|
衡水市|
崇义县|
禄丰县|
扎囊县|
高尔夫|
德安县|
咸丰县|
红安县|
名山县|