asp 文件、文件夹操作函数

原创 2007年09月24日 22:29:00
'建立文件夹的函数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  

相关文章推荐

MFC文件、文件夹操作函数大全

  • 2010年10月31日 10:24
  • 503KB
  • 下载

Asp.Net文件和文件夹操作

  • 2013年09月26日 21:39
  • 78KB
  • 下载

总结ASP操作文件夹和文件(转)

首先需要调用组件:Set FSO = Server.CreateObject("Scripting.FileSystemObject")   生成绝对路径:Path = Server.MapPath(...

asp.net中关于文件夹和文件的一些基本操作

/// 创建文件夹 /// /// public static void FolderCreate(string Path) { ...

asp.net文件操作小例子(创建文件夹,读,写,删)

asp.net文件操作小例子(创建文件夹,读,写,删)   静态生成要在虚拟目录下创建文件夹 来保存生成的页面 那么就要对文件进行操作 一、创建文件夹         usi...

asp.net文件操作小例子(创建文件夹,读,写,删)【转】

静态生成要在虚拟目录下创建文件夹 来保存生成的页面 那么就要对文件进行操作 一、创建文件夹         using System.IO;         string name ...

Asp.Net文件和文件夹操作方法总结

///         /// 创建文件夹         ///         ///         public static void FolderCreate(string ...
  • qycer
  • qycer
  • 2012年03月16日 18:24
  • 185

Asp.Net对文件和文件夹的操作大全

/// /// 创建文件夹 /// /// public static void FolderCreate(string ...

Asp.Net_文件操作基类(读取,删除,批量拷贝,删除,写入,获取文件夹大小,文件属性,遍历目录)

using System; using System.Data; using System.Configuration; using System.Web; using System.Web....

asp中文件与文件夹常用处理函数(文件后缀、创建

asp中尤其是需要生产静态的cms系统中,经常需要对一些文件进行判断与创建,删除的操作,这里整理了一些,基本上满足了基本需要。       复制代码代码如下: ...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:asp 文件、文件夹操作函数
举报原因:
原因补充:

(最多只允许输入30个字)