一聚教程网:一个值得你收藏的教程网站

热门教程

asp 创建文件与文件夹

时间:2022-06-30 11:41:40 编辑:袖梨 来源:一聚教程网


'==============================
 '函 数 名: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

热门栏目