你不能只是复制一个目录和它的所有内容与一个线的代码。但是,您可以“剪切和粘贴”目录有:
Directory.Move("C:\Users\Max\Desktop\test\" & sender.name, "C:\Users\Max\Desktop\test2\" & sender.name)
要复制你需要在目标目录下创建同名的新文件夹,然后将内容复制到其中:
Dim SourcePath As String = "C:\Users\Max\Desktop\test\" & sender.name
Dim DestinationPath As String = "C:\Users\Max\Desktop\test2"
Dim newDirectory As String = System.IO.Path.Combine(DestinationPath, Path.GetFileName(Path.GetDirectoryName(SourcePath)))
If Not (Directory.Exists(newDirectory)) Then
Directory.CreateDirectory(newDirectory)
End If
Microsoft.VisualBasic.FileIO.FileSystem.CopyDirectory(SourcePath, newDirectory)
https://msdn.microsoft.com/en-us/library/bb762914(v=vs.110).aspx?cs-save-lang=1&cs-lang=vb#code-snippet-1 – Neal
仍然只能复制文件夹的内容,而不是文件夹本身+内容。除非我以某种方式错误地使用这个函数。 – Max