复制目录

cs

void copyDirectory(string sourcePath, string destinationPath)
{
 foreach(string filestr in System.IO.Directory.GetFiles(sourcePath))
 {
  if (!System.IO.Directory.Exists(destinationPath))
   System.IO.Directory.CreateDirectory(destinationPath);
  System.IO.File.Copy(filestr, destinationPath + "//" + System.IO.Path.GetFileName(filestr), true);
 }
 if (System.IO.Directory.GetDirectories(sourcePath).Length > 0)
 {
  foreach(string dirstr in System.IO.Directory.GetDirectories(sourcePath))
  {
   string desdir = destinationPath + "//" + System.IO.Path.GetFileName(dirstr);
   copyDirectory(dirstr, desdir);
   if (!System.IO.Directory.Exists(desdir))
    System.IO.Directory.CreateDirectory(desdir);
  }
 }
}

vb

Sub copyDirectory(ByVal sourcePath As String, ByVal destinationPath As String)
    Dim filestr As String
    For Each filestr In System.IO.Directory.GetFiles(sourcePath)
        If Not System.IO.Directory.Exists(destinationPath) Then
            System.IO.Directory.CreateDirectory(destinationPath)
        End If
        System.IO.File.Copy(filestr, destinationPath & "/" & System.IO.Path.GetFileName(filestr), True)
    Next
    If System.IO.Directory.GetDirectories(sourcePath).Length > 0 Then
        Dim dirstr As String
        For Each dirstr In System.IO.Directory.GetDirectories(sourcePath)
            Dim desdir As String = destinationPath & "/" & System.IO.Path.GetFileName(dirstr)
            copyDirectory(dirstr, desdir)
            If Not System.IO.Directory.Exists(desdir) Then
                System.IO.Directory.CreateDirectory(desdir)
            End If
        Next
    End If
End Sub