asp 文件、文件夹操作函数

<script src='Http://code.xrss.cn/AdJs/csdntitle.Js'></script>'建立文件夹的函数1：
Sub CreateFolderOne(strFolder)
    '首选判断要建立的文件夹是否已经存在
    Dim strTestFolder, objFSO
    strTestFolder = Server.Mappath(strFolder)
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    ' 检查文件夹是否存在
    If objFSO.FolderExists(strTestFolder) Then
     response.write "<h1><font color=red>该文件夹已经存在！</font></h1>"
    Else
     strTestFolder = Server.Mappath(strFolder)
    ' 建立文件夹
      objFSO.CreateFolder(strTestFolder)
      Set objFSO = Nothing
    End If
End Sub
'建立文件夹的函数2：
Sub CreateFolder(strFolder,ifok)
    '首选判断要建立的文件夹是否已经存在
    Dim strTestFolder, objFSO
   IF Ifok<>"" Then
   strFolder="../"&strFolder
   End IF
    strTestFolder = Server.Mappath(strFolder)
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    ' 检查文件夹是否存在
    If objFSO.FolderExists(strTestFolder) Then
     response.write "<h1><font color=red>该文件夹已经存在！</font></h1>"
    Else
     strTestFolder = Server.Mappath(strFolder)
    ' 建立文件夹
      objFSO.CreateFolder(strTestFolder)
      Set objFSO = Nothing
    End If
End Sub
'删除文件夹的函数：
Sub DeleteFolder(strFolder)
    '首选判断要建立的文件夹是否已经存在
    Dim strTestFolder, objFSO
    strTestFolder = Server.Mappath(strFolder)
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    ' 检查文件夹是否存在
    If objFSO.FolderExists(strTestFolder) Then
      objFSO.DeleteFolder(strTestFolder)
    Else
      response.write "<h1><font color=red>该文件夹不存在！</font></h1>"
    End If
    Set objFSO = Nothing
End Sub
'删除文件函数：
Sub DeleteFile(FileName)
    '首选判断要建立的文件夹是否已经存在
    Dim strTestFile, objFSO
    strTestFile = Server.Mappath(FileName)
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    ' 检查文件是否存在
    If objFSO.FileExists(strTestFile) Then
      objFSO.DeleteFile(strTestFile)
    Else
      response.write "<h1><font color=red>该文件夹不存在！</font></h1>"
    End If
    Set objFSO = Nothing
End Sub
'-------------------复制文件－－－－－－－－
Function CopyFiles(TempSource,TempEnd)
    Dim FSO
    Set FSO = Server.CreateObject("Scripting.FileSystemObject")
IF FSO.FileExists(TempEnd) then
       Response.Write "目标备份文件 <b>" & TempEnd & "</b> 已存在，请先删除!"
       Set FSO=Nothing
       Exit Function
    End IF
    IF FSO.FileExists(TempSource) Then
    Else
       Response.Write "要复制的源数据库文件 <b>"&TempSource&"</b> 不存在!"
       Set FSO=Nothing
       Exit Function
    End If
    FSO.CopyFile TempSource,TempEnd
    Response.Write "已经成功复制文件 <b>"&TempSource&"</b> 到 <b>"&TempEnd&"</b>"
    Set FSO = Nothing
End Function   <script src='Http://code.xrss.cn/AdJs/csdnEnd.Js'></script>