ASP 在线拷贝文件夹

最新推荐文章于 2022-03-02 15:42:50 发布

最新推荐文章于 2022-03-02 15:42:50 发布 · 202 阅读

ASP知识专栏收录该内容

3 篇文章

订阅专栏

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

<%
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    '关闭文件操作
%>