how to copy folder along with content to another new folder??

[wilang]

hi all,i have a problem here,
i want to copy folder along with content to another new folder,
i use this code

Dim source As String = ""
Dim destination As String = ""

source = "C:\Documents and Settings\user\Desktop\weapon"
destination = "C:\weapon\"

Try
If Not Directory.Exists(source) Then
MsgBox("file yg mo dipindahkan tidak ada")
Return
End If
If Directory.Exists(destination) Then
MsgBox("file destination sudah ada")
Return
End If

Dim a As DirectoryInfo = New DirectoryInfo(source)
a.MoveTo(destination)

Catch ex As Exception
MsgBox(ex.Message)
Return
End Try

this code make me copy source to destination but also delete source,
this code delete folder source and move to destination.
All i want is not delete folder source.

anyone can help me??

[jmcilhinney]

My.Computer.FileSystem.CopyDirectory

[wilang]

hi jmcilhinney

thx a lot,i have test using little size folder and it works well.
but with folder with contain 16.363 files and size 35,5 mb it take 1 minute.

it's ok,although it take a lot time.
thank you very much!

[jmcilhinney]

Try copying that same folder in Windows Explorer. In theory it should take the exact same time as I believe they use the same functionality.

[danasegarane]

If you want you can provide a progress UI using that functionality

My.Computer.FileSystem.CopyDirectory(sourceDirectoryName ,destinationDirectoryName ,showUI)