Here's a couple of functions you can use.

I'm curious - why couldn't you get the Directory.Move to work?  Did it
give you an error?  Docs say 'The destination cannot be another disk
volume or a directory with the identical name. It can be an existing
directory to which you want to add this directory as a subdirectory.'

Private Function GetDirectory(ByVal FileName As String) As String

       Dim fi As IO.FileInfo

       fi = New IO.FileInfo(FileName)

       Return fi.Directory.FullName

   End Function

   Private Sub CopyDirs(ByVal sourceDir As String, ByVal targetDir As
String, ByVal OverwriteFiles As Boolean)

       Dim sourceDirInfo As IO.DirectoryInfo
       Dim filesToCopy() As IO.FileInfo

       ' check that the source dir exists
       If Not IO.Directory.Exists(sourceDir) Then
           Throw New IO.DirectoryNotFoundException("Invalid sourceDir:
" & sourceDir)
       Else
           sourceDirInfo = New IO.DirectoryInfo(sourceDir)
           filesToCopy = sourceDirInfo.GetFiles
       End If

       ' Create the target directory if it doesn't exist
       If Not IO.Directory.Exists(targetDir) Then
           IO.Directory.CreateDirectory(targetDir)
       End If

       ' loop through the files and copy them
       For Each f As IO.FileInfo In filesToCopy
           f.CopyTo(targetDir & "\" & f.Name, OverwriteFiles)
       Next

       Return

   End Sub

"Paulers" <SuperGh0d@gmail.com> schrieb:

Check out the shared methods of 'System.IO.Path'.