使用asp我们可以轻松地实现文件复制功能

发布时间：2023-09-07 14:26:32 所属栏目：教程来源：

导读：复制代码代码如下:

<%

Function CopyMyFolder(FolderName,FolderPath)

sFolder=server.mappath(FolderName)

oFolder=server.mappath(FolderPath)

set fso=server.createobject("scripting.file

复制代码代码如下:

<%

Function CopyMyFolder(FolderName,FolderPath)

sFolder=server.mappath(FolderName)

oFolder=server.mappath(FolderPath)

set fso=server.createobject("scripting.filesystemobject")

if fso.folderexists(server.mappath(FolderName)) Then'检查原文件夹是否存在

   if fso.folderexists(server.mappath(FolderPath)) Then'检查目标文件夹是否存在

   fso.copyfolder sFolder,oFolder

    Else '目标文件夹如果不存在就创建

            CreateNewFolder = Server.Mappath(FolderPath)

            fso.CreateFolder(CreateNewFolder)

            fso.copyfolder sFolder,oFolder

   End if

CopyMyFolder="复制文件夹["&server.mappath(FolderName)&"]到["&server.mappath(FolderPath)&"]成功!"

Else

CopyMyFolder="错误,原文件夹["&sFolde&"]不存在!"

End If

set fso=nothing

End Function

FolderName="2006" '原文件夹

FolderPath="2008" '目标文件夹

response.write""&CopyMyFolder(FolderName,FolderPath)&"" '复制文件夹2006下的所有内容到2008文件夹下并返回结果

%>

（编辑：聊城站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!