Public Sub CopyFolder(ByVal Path As String, ByVal NewPath As String, _
      Optional ByVal OverWrite As Boolean = True)
        If NewPath.StartsWith(Path) Then Throw New ArgumentException("Invalid" & _
        "NewPath")
        If Not Directory.Exists(NewPath) Then Directory.CreateDirectory(NewPath)
 
        For Each file As String In Directory.GetFiles(Path)
            IO.File.Copy(file.ToString, IO.Path.Combine(NewPath, _
              IO.Path.GetFileName(file)), OverWrite)
            Application.DoEvents()
        Next
 
        For Each dir As String In Directory.GetDirectories(Path)
                CopyFolder(dir, IO.Path.Combine(NewPath, IO.Path.GetFileName( _
                  dir)))
        Next
    End Sub

Those people who think they know everything are a great annoyance to those of us who do - Isaac Asimov