100分求文件夹拷贝代码

[itmask]

想拷贝一文件夹(包括所有子目录)文件到另一文件夹中,应该是遍历,求详细代码

[hlzqzz800927]

======================================================
// 实现一个静态方法将指定文件夹下面的所有内容copy到目标文件夹下面
// 如果目标文件夹为只读属性就会报错。
// April 18April2005 In STU
// ======================================================
public static void CopyDir(string srcPath,string aimPath)
{
try
{
// 检查目标目录是否以目录分割字符结束如果不是则添加之
if(aimPath[aimPath.Length-1] != Path.DirectorySeparatorChar)
aimPath += Path.DirectorySeparatorChar;
// 判断目标目录是否存在如果不存在则新建之
if(!Directory.Exists(aimPath)) Directory.CreateDirectory(aimPath);
// 得到源目录的文件列表，该里面是包含文件以及目录路径的一个数组
// 如果你指向copy目标文件下面的文件而不包含目录请使用下面的方法
// string[] fileList = Directory.GetFiles(srcPath);
string[] fileList = Directory.GetFileSystemEntries(srcPath);
// 遍历所有的文件和目录
foreach(string file in fileList)
{
// 先当作目录处理如果存在这个目录就递归Copy该目录下面的文件
if(Directory.Exists(file))
CopyDir(file,aimPath+Path.GetFileName(file));
// 否则直接Copy文件
else
File.Copy(file,aimPath+Path.GetFileName(file),true);
}
}
catch (Exception e)
{
MessageBox.Show (e.ToString());
}
}

[itmask]

这段代码的好多变量都没有声明,请注意是asp的应用

[mh_rock]

<%
'********************************************************************************************************
'函数名称：CreateFiles(filename,path1)
'作者:Rock E_Mail:[e-mail]
'函数功能：建立一个新文件夹，把指定文件夹的全部文件考入新文件夹
'函数参数：filename（要创建的文件夹的名称，如："NewFiles" 或 "../NewFile"）；path1（要考入新文件夹的文件夹相对路径）
'函数实例：CreateFiles("NewFiles","admin")
'********************************************************************************************************
function CreateFiles(filename,path1)
dim filename1,path,fso
set fso=server.CreateObject("scripting.filesystemobject")
filename1=server.mappath(filename)
path=server.mappath(path1)
If Not fso.folderexists(path) then
set fso=nothing
response.write("<script language='javascript'>alert('要拷贝内容的文件夹不存在，请换一个试试'); window.history.go(-1);</script>")
End If
If NOT fso.folderexists(filename1) then
fso.createfolder(filename1)
else
set fso=nothing
response.write("<script language='javascript'>alert('该文件夹已经存在，请换一个试试'); window.history.go(-1);</script>")
End If
set objFolder=fso.GetFolder(path)
set objSubFolders=objFolder.Subfolders
for each objFile in objSubFolders
fso.copyfolder path&"\"&objFile.name,filename1&"\"
next
for each objFile in objFolder.files
fso.copyfile path&"\"&objFile.name,filename1&"\"&objFile.name
next
set objFolder=nothing
set objSubFolders=nothing
set fso=nothing
end function
%>

[huo789]

'xVar：源路径
'yVar：目标路径
'zVar：是否覆盖
Public Function cpdir( xVar, yVar, zVar )
Set Sys = Server.CreateObject("Scripting.FileSystemObject")
If Sys.FolderExists( xVar ) Then
Sys.CopyFolder xVar, root&yVar, zVar
msg ="恭喜,目录复制成功!"
Else
msg ="抱歉,没有找到您想要的目录!"
End If
Set Sys = Nothing
cpdir = msg
End Function