关闭

asp 文件、文件夹操作函数

346人阅读 评论(0) 收藏 举报
'建立文件夹的函数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  
0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:1114541次
    • 积分:15648
    • 等级:
    • 排名:第714名
    • 原创:866篇
    • 转载:4篇
    • 译文:0篇
    • 评论:13条
    最新评论