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

          







          
	    
    




          








          

				

          







    







          
        
	




主站蜘蛛池模板：
靖远县|
武乡县|
三江|
奇台县|
确山县|
沾益县|
桃园市|
甘谷县|
托克逊县|
白沙|
平顶山市|
隆林|
潢川县|
山西省|
台江县|
永吉县|
峡江县|
若羌县|
临汾市|
芦溪县|
陆河县|
伊吾县|
白城市|
沈丘县|
夹江县|
德钦县|
泸水县|
六盘水市|
景洪市|
石棉县|
永福县|
金溪县|
新龙县|
上蔡县|
新安县|
兰溪市|
马公市|
湟中县|
宜城市|
宿松县|
哈巴河县|