隨筆-3 
評(píng)論-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 百年 閱讀(949) 評(píng)論(0)  編輯  收藏  所屬分類: Asp Article 
          

          







          
	    
    




          








          

				

          







    







          
        
	




主站蜘蛛池模板：
巫溪县|
曲周县|
通州区|
安康市|
清新县|
杭州市|
银川市|
沾化县|
酒泉市|
枣庄市|
治县。|
右玉县|
靖宇县|
淅川县|
大理市|
吉木乃县|
乾安县|
九江市|
富裕县|
修水县|
文水县|
盱眙县|
深泽县|
米脂县|
博兴县|
亳州市|
安溪县|
双江|
竹山县|
乐亭县|
钟山县|
讷河市|
阆中市|
二手房|
焦作市|
夹江县|
佳木斯市|
托克逊县|
上蔡县|
阳春市|
木里|