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

    







    
	    
    




    








    

				

    







    







    
        
	



主站蜘蛛池模板：
久久伊人亚洲AV无码网站|
国产精品成人免费一区二区|
亚洲国产精品狼友中文久久久|
国产精品亚洲综合久久|
日本片免费观看一区二区|
亚洲视频2020|
最近2019免费中文字幕6|
亚洲AV成人精品网站在线播放|
中文无码日韩欧免费视频|
国产亚洲精品无码拍拍拍色欲|
精品97国产免费人成视频|
久久夜色精品国产亚洲av|
a级黄色毛片免费播放视频|
亚洲精品成人片在线播放|
久久青草精品38国产免费|
亚洲精品永久www忘忧草|
1000部夫妻午夜免费
|
国产免费无码AV片在线观看不卡|
亚洲线精品一区二区三区|
国产成人免费视频|
中文字幕 亚洲 有码 在线|
成年女人免费v片|
日本永久免费a∨在线视频|
国产精品亚洲产品一区二区三区|
在线观看免费黄网站|
亚洲伊人久久大香线蕉苏妲己|
免费AA片少妇人AA片直播|
亚洲成a人片在线不卡一二三区
|
久久亚洲高清综合|
97在线视频免费播放|
亚洲性无码AV中文字幕|
亚洲国产精品尤物YW在线观看|
国内少妇偷人精品视频免费|
亚洲中文无码a∨在线观看|
色吊丝最新永久免费观看网站
|
亚洲成AV人在线播放无码|
亚洲人成黄网在线观看|
日韩免费高清一级毛片在线|
一区二区三区免费视频网站|
激情内射亚洲一区二区三区|
免费黄色大片网站|