Перемещение и файлов и папок одной кнопкой

        If ListBox2.SelectedItem Is Nothing Then Exit Sub
        Dim name As String = ListBox2.SelectedItem.ToString
        Dim foldb As String = Dircustom
        foldb &= name
        Dim nwfld As String = Dirmods
        nwfld &= name
        If Not (Directory.Exists(nwfld)) Then
            Directory.CreateDirectory(nwfld)
        End If
        Microsoft.VisualBasic.FileIO.FileSystem.MoveDirectory(foldb, nwfld)

Public Class StorageInfo
    Property Storage As Object
    Public IsDirectory As Boolean
 
    Public Sub New()
        MyBase.New()
    End Sub
 
    Public Sub New(source As Object)
        MyBase.New()
        Storage = source
    End Sub
 
    Public Overrides Function ToString () As String
         If Me.IsDirectory Then
              Return Storage.Name
         Else
              Return Storage
         End If
    End Function
End Class

For Each diSourceSubDir As DirectoryInfo In source.GetDirectories()
    ListBox2.Add(diSourceSubDir.Name)
Next
 
For Each fi As FileInfo In source.GetFiles()
    ListBox2.Add(fi)
Next

Dim newSource As StorageInfo
For Each diSourceSubDir As DirectoryInfo In source.GetDirectories()
    newSource = New StorageInfo(diSourceSubDir)
    newSource.IsDirectory = True
    ListBox2.Add(newSource)
Next
 
For Each fi As String In source.GetFiles()
    newSource = New StorageInfo(fi)
    newSource.IsDirectory = False
    ListBox2.Add(newSource)
Next

If ListBox2.SelectedItem Is Nothing Then Exit Sub
Dim CurrentStorageInfo As StorageInfo = ListBox2.SelectedItem
Dim foldb As String = Dircustom 'текущий отображаемый каталог в ListBox
Dim nwfld As String = Dirmods 'путь каталога назначения
If CurrentStorageInfo.IsDirectory Then
    CurrentStorageInfo.Storage.MoveTo(nwfld) 'перемещаем каталог
Else
    'Перемещаем файл
    Microsoft.VisualBasic.FileIO.MoveFile(Path.Combine(foldb, CurrentStorageInfo.Storage), _
                                          Path.Combine(nwfld, CurrentStorageInfo.Storage))
End If