asp 建立檔案與檔案夾

'==============================
 '函 數 名：CreateFolder
 '作    用：建立檔案夾
 '參    數：檔案夾相對路徑FolderPath
 '==============================
 Function CreateFolder(FolderPath)
'  On Error Resume Next
  Set Fso=Server.CreateObject("Scri"&"pting.File"&"Sys"&"temObject")
  Set F=Fso.CreateFolder(Server.MapPath(FolderPath))
  CreateFolder=F.Path
  Set F=Nothing
  Set Fso=Nothing
'  Select Case Err
'   Case 424 Response.Write("方卡錯誤提示：建立"&FolderPath&"檔案夾時，路徑未找到或者該目錄沒有寫入許可權！")
'  End Select
 End Function
 
 '==============================
 '函 數 名：CreateFile
 '作    用：建立檔案
 '參    數：檔案相對路徑FilePath，檔案內容FileContent
 '==============================
 Function CreateFile(FilePath,FileContent)
'  On Error Resume Next
  Dim Temps
  Temps=""
  TempArr=Split(FilePath,"/")
  For i=0 to UBound(TempArr)-1
   If Temps="" Then
    Temps=TempArr(i)
   Else
    Temps=Temps&"/"&TempArr(i)
   End If
   If IsFolder(Temps)=False Then
    Call CreateFolder(Temps)
   End If
  Next
  Set objAdoStream = Server.CreateObject("A"&"dod"&"b.St"&"r"&"eam")
  objAdoStream.Type = 2
  objAdoStream.Charset = "UTF-8"
  objAdoStream.Open
  objAdoStream.WriteText = FileContent
  objAdoStream.SaveToFile Server.MapPath(FilePath),2
  objAdoStream.Close()
  Set objAdoStream = Nothing
'  Select Case Err      
'    Case 424 Response.Write("方卡錯誤提示：建立"&FilePath&"檔案時，路徑未找到或者該目錄沒有寫入許可權！")
'  End Select
 End Function