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

          







          
	    
    




          








          

				

          







    







          
        
	




主站蜘蛛池模板：
四会市|
迁西县|
阜平县|
墨脱县|
台中市|
宾阳县|
尤溪县|
汶川县|
历史|
济宁市|
正安县|
辽源市|
安远县|
荥经县|
吴旗县|
新竹市|
图木舒克市|
聂拉木县|
南皮县|
松江区|
磐石市|
恭城|
平罗县|
佛冈县|
集贤县|
迁安市|
盈江县|
海阳市|
科技|
高要市|
平遥县|
平乐县|
张家口市|
白城市|
商洛市|
乌兰察布市|
红河县|
安达市|
成武县|
沅江市|
璧山县|