复制文件夹里的内容这么难吗

hdf336 2007-03-31 07:36:01
想把aaa文件夹中的所有内容复制到D:\File 文件夹里
可是D:\File文件夹里面是空的

Dim p As String = Server.MapPath("aaa")
Dim di As New DirectoryInfo(p)

Dim allSub As DirectoryInfo() = di.GetDirectories()
Dim tmpD As DirectoryInfo

Dim tmpFiles As FileInfo()

Dim tmpF As FileInfo
Dim DPan As DirectoryInfo = Directory.CreateDirectory("D:\File")

For Each tmpD In allSub
tmpFiles = tmpD.GetFiles()
If Not Directory.Exists(DPan.FullName + "\" + tmpD.Name) Then
DPan.CreateSubdirectory(tmpD.Name)
End If
For Each tmpF In tmpFiles
tmpF.CopyTo(DPan.FullName + "\" + tmpD.Name + "\" + tmpF.Name, True)
Next
Next
...全文
193 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
hdf336 2007-03-31
  • 打赏
  • 举报
回复
问题还是无法解决
hdf336 2007-03-31
  • 打赏
  • 举报
回复
谢谢啊
可是我看不懂啊
  • 打赏
  • 举报
回复
上边不小心贴了两次代码,其实代码很短的,除去方法声明,只有不到10条语句。
  • 打赏
  • 举报
回复
static void CopyDir(string f, string t)
{
CopyDir(new DirectoryInfo(f), new DirectoryInfo(t));
}

static void CopyDir(DirectoryInfo f, DirectoryInfo t)
{
if (!t.Exists)
t.Create();
Array.ForEach(f.GetFiles(), delegate(FileInfo x)
{
string target = Path.Combine(t.FullName, x.Name);
if (File.Exists(target))
File.Delete(target);
x.CopyTo(target);
});
Array.ForEach(f.GetDirectories(), delegate(DirectoryInfo d)
{
string target = Path.Combine(t.FullName, d.Name);
CopyDir(d, new DirectoryInfo(target));
});
}

static void CopyDir(string f, string t)
{
CopyDir(new DirectoryInfo(f), new DirectoryInfo(t));
}

static void CopyDir(DirectoryInfo f, DirectoryInfo t)
{
if (!t.Exists)
t.Create();
Array.ForEach(f.GetFiles(), delegate(FileInfo x)
{
string target = Path.Combine(t.FullName, x.Name);
if (File.Exists(target))
File.Delete(target);
x.CopyTo(target);
});
Array.ForEach(f.GetDirectories(), delegate(DirectoryInfo d)
{
string target = Path.Combine(t.FullName, d.Name);
CopyDir(d, new DirectoryInfo(target));
});
}

写完才发现你是 vb.net 的。

你可以创建一个c#类库工程,把这个class代码写在里边。然后让你的vb.net工程引用。
ReViSion 2007-03-31
  • 打赏
  • 举报
回复
直接用xcopy不就行了呀

62,025

社区成员

发帖
与我相关
我的任务
社区描述
.NET技术交流专区
javascript云原生 企业社区
社区管理员
  • ASP.NET
  • .Net开发者社区
  • R小R
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告

.NET 社区是一个围绕开源 .NET 的开放、热情、创新、包容的技术社区。社区致力于为广大 .NET 爱好者提供一个良好的知识共享、协同互助的 .NET 技术交流环境。我们尊重不同意见,支持健康理性的辩论和互动,反对歧视和攻击。

希望和大家一起共同营造一个活跃、友好的社区氛围。

试试用AI创作助手写篇文章吧