ASP 在线拷贝文件夹

于 2011-09-14 17:07:01 发布 · 184 阅读

ASP知识专栏收录该内容

3 篇文章

订阅专栏

本文展示了一个使用ASP内置的文件系统对象(File System Object, FSO)进行文件夹复制的例子。通过定义函数来检查文件夹是否存在，并根据情况创建新的文件夹副本。此脚本适用于需要在服务器端进行文件管理的任务。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

<%
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")  '文件件操作

Function ReportFolderStatus(fldr)
    Dim msg
    msg = -1
    If (objFSO.FolderExists(fldr)) Then
        msg = 1
    Else
        msg = -1
    End If
    ReportFolderStatus = msg
End Function
Function CopyAFolder(SourceFolder, DestinationFolder)
    Dim MyFolder
    If ReportFolderStatus(SourceFolder) = 1 And ReportFolderStatus(DestinationFolder) = -1 Then
        Set MyFolder = objFSO.GetFolder(SourceFolder)
        objFSO.CopyFolder SourceFolder, DestinationFolder
        CopyAFolder = 1
    Else
        CopyAFolder = -1
    End If
End Function


Call CopyAFolder(Server.MapPath("源文件夹"),Server.MapPath("新拷贝的文件夹"))
Set objFSO = Nothing    '关闭文件操作
%>