你不能只是複製一個目錄和它的所有內容與一個線的代碼。但是,您可以「剪切和粘貼」目錄有:
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