<rt id="bn8ez"></rt>
<label id="bn8ez"></label>
  • 

    • <span id="bn8ez"></span>
    

    <label id="bn8ez"><meter id="bn8ez"></meter></label>
    

    
    

    




    







												


        




    
	
		
		
    

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

    







    
	    
    




    








    

				

    







    







    
        
	



主站蜘蛛池模板：
真人无码作爱免费视频|
日韩免费视频一区|
国产精品成人免费视频网站京东|
亚洲精品黄色视频在线观看免费资源|
亚洲国产精品自在自线观看|
成人免费视频软件网站|
亚洲中文无码mv|
国产精品久久久久影院免费|
亚洲AV成人片无码网站|
免费夜色污私人影院在线观看|
美女一级毛片免费观看|
国产成人精品曰本亚洲79ren|
eeuss影院免费92242部|
亚洲国产成人一区二区精品区|
久草免费福利资源站|
亚洲精品自拍视频|
69成人免费视频无码专区|
亚洲熟妇无码一区二区三区|
国产成人免费片在线视频观看|
黄色a级免费网站|
亚洲国产精品VA在线看黑人|
1000部啪啪未满十八勿入免费|
亚洲最大的视频网站|
免费无码黄动漫在线观看|
深夜a级毛片免费无码|
国产亚洲综合久久系列|
99视频全部免费精品全部四虎|
亚洲精品无码成人|
久久亚洲高清综合|
久久福利资源网站免费看|
久久亚洲中文字幕无码|
日韩亚洲一区二区三区|
久久久久免费看黄A片APP|
四虎一区二区成人免费影院网址|
亚洲av永久无码精品古装片|
亚洲一区在线免费观看|
特级毛片A级毛片100免费播放|
亚洲av鲁丝一区二区三区|
免费看的黄色大片|
日本人成在线视频免费播放|
亚洲国产精品成人午夜在线观看
|