Try following code sample for copying all files from one folder or directory from another using vb.net.
you can use this function like as:
CopyDirectory(string sourcePath,string DestinationPath)
Public Function CopyDirectory(ByVal SrcPath As String, ByVal DestPath As String, Optional _ ByVal bQuiet As Boolean = False) As Boolean If Not System.IO.Directory.Exists(SrcPath) Then Throw New System.IO.DirectoryNotFoundException("The directory " & SrcPath & " does not exists") End If If System.IO.Directory.Exists(DestPath) AndAlso Not bQuiet Then If MessageBox.Show("directory " & DestPath & " already exists." & vbCrLf & _ "If you continue, any files with the same name will be overwritten", _ "Continue?", MessageBoxButtons.OKCancel, MessageBoxIcon.Question, _ MessageBoxDefaultButton.Button2) = Windows.Forms.DialogResult.Cancel Then Exit Function End If 'add Directory Seperator Character (\) for the string concatenation shown later If DestPath.Substring(DestPath.Length - 1, 1) <> System.IO.Path.DirectorySeparatorChar Then DestPath += System.IO.Path.DirectorySeparatorChar End If If Not System.IO.Directory.Exists(DestPath) Then System.IO.Directory.CreateDirectory(DestPath) Dim Files As String() Files = System.IO.Directory.GetFileSystemEntries(SrcPath) Dim element As String For Each element In Files If System.IO.Directory.Exists(element) Then 'if the current FileSystemEntry is a directory, 'call this function recursively CopyDirectory(element, DestPath & System.IO.Path.GetFileName(element), True) Else 'the current FileSystemEntry is a file so just copy it System.IO.File.Copy(element, DestPath & System.IO.Path.GetFileName(element), True) End If Next Return True End Function
thanks, one line code..