这里是将c:\test文件夹复制到D:\test里面去,在实际使用中,请通过server.mappath来将相对路径转为绝对路径。 <% Set objFSO = Server.CreateObject("Scripting.FileSystemObjectwsd") sPh = "C:\test" tPh = "D:\test" If objFSO.FolderExists(sPh) Then objFSO.CopyFolder sPh, tPh Else Response.Write "源文件夹不存在,无法复制!" End If Set objFSO = Nothing %>