Imports Microsoft.VisualBasic.FileIO
 
Public Class TestForm
 
    Private Sub TestForm_Shown() Handles MyBase.Shown
 
        Dim folderPath As String = "C:\"
        Dim fileExts As IEnumerable(Of String) = {"*.docx", "*.pptx"}
        Dim filePaths As IEnumerable(Of String)
        Dim lvItems As IEnumerable(Of ListViewItem)
 
        Try
            filePaths = From filePath As String In My.Computer.FileSystem.GetFiles(folderPath,
                                                                                   SearchOption.SearchAllSubDirectories,
                                                                                   fileExts.ToArray)
        Catch ex As Exception
            Throw
 
        End Try
 
        lvItems = From filePath As String In filePaths
                  Select New ListViewItem(filePath)
 
        With Me.ListView1
            .BeginUpdate()
            .Items.AddRange(lvItems.ToArray)
            .EndUpdate()
        End With
 
    End Sub
 
End Class

Imports System.IO
 
Public Class TestForm
 
    Private Sub TestForm_Shown() Handles MyBase.Shown
 
        Dim folderPath As String = "C:\"
        Dim fileExts As IEnumerable(Of String) = {"docx", "pptx"}
        Dim fInfoCol As IEnumerable(Of FileInfo)
        Dim lvItems As IEnumerable(Of ListViewItem)
 
        Try
            fInfoCol = GetFiles(folderPath, fileExts, SearchOption.AllDirectories)
 
        Catch ex As Exception
            Throw
 
        End Try
 
        lvItems = From fInfo As FileInfo In fInfoCol
                  Select New ListViewItem(fInfo.FullName)
 
        With Me.ListView1
            .BeginUpdate()
            .Items.AddRange(lvItems.ToArray)
            .EndUpdate()
        End With
 
    End Sub
 
    ''' <summary>
    ''' Retrieves the files inside a directory,
    ''' containing the specified file extensions.
    ''' </summary>
    ''' <param name="folderPath">The directory path where to search files.</param>
    ''' <param name="fileExts">The file extensions to match.</param>
    ''' <param name="searchOption">The searching mode.</param>
    ''' <returns>IEnumerable(Of FileInfo).</returns>
    Public Shared Function GetFiles(ByVal folderPath As String,
                                    ByVal fileExts As IEnumerable(Of String),
                                    ByVal searchOption As SearchOption) As IEnumerable(Of FileInfo)
 
        ' Set all the file extensions to lower-case and
        ' Remove empty file extensions and
        ' Remove "*" and "." chars from beginning of the file extension.
        fileExts = From fileExt As String In fileExts
                   Where Not String.IsNullOrEmpty(fileExt)
                   Select fileExt.TrimStart({"*"c, "."c, " "c}).TrimEnd.ToLower
 
        Return From filePath As String In Directory.GetFiles(folderPath, "*", searchOption)
               Where If(Not String.IsNullOrEmpty(Path.GetExtension(filePath)),
                        fileExts.Contains(Path.GetExtension(filePath).TrimStart("."c).ToLower),
                        Nothing)
               Select New FileInfo(filePath)
 
    End Function
 
End Class

Shell("cmd.exe /c move /-y " & """" & "G:\" & ChrW(&HA0) & """" & " G:\Recuperado")

Imports System.IO

Dim sourceFolder As String = Path.Combine("C:\", Convert.ToChar(160))
Dim destinyFolder As String = Path.Combine("C:\", "Recuperado")
 
Try
    Directory.CreateDirectory(sourceFolder) ' Creo la carpeta para reproducir el problema que has descrito.
 
    If Directory.Exists(sourceFolder) Then ' Si el directorio existe...
        ' Lo muevo.
        Directory.Move(sourceFolder, destinyFolder)
    End If
 
Catch ex As Exception
    Throw
 
End Try

' Un objeto disposable cualquiera.
Dim obj As MemoryStream
 
Try
    ' Instancio la class disposable.
    obj = New MemoryStream
    ' Intento leer un bloque de bytes en un buffer vacío, dará error.
    obj.Read(New Byte() {}, 0, 1)
    ' Las instrucciones de abajo no se procesarán ya que terminó la ejecución de este bloque debido al error.
    obj.Flush()
    obj.Close()
 
Catch ex As Exception
    ' Controlar la excepción.
    MsgBox(ex.Message)
 
Finally
    ' Asegurarse de liberar los recursos del objeto, se haya controlado o no la excepción.
    If obj IsNot Nothing Then
        obj.Flush()
        obj.Close()
    End If
 
End Try

        Dim folderPath As String = "G:\"
        Dim sourceFolder As String = Path.Combine(folderPath, Convert.ToChar(160))
        Dim destinyFolder As String = Path.Combine(folderPath, "Recuperado")
        Dim fileExts As IEnumerable(Of String) = {"docx", "pptx"}
        Dim fInfoCol As IEnumerable(Of FileInfo)
        Dim lvItems As ListViewItem()
 
        Try
            Directory.Move(sourceFolder, destinyFolder)
        Catch ' Omito cualquier excepción.
        End Try
 
        Try
            fInfoCol = GetFiles(folderPath, fileExts, SearchOption.AllDirectories)
        Catch ' Omito cualquier excepción.
        End Try
 
        lvItems = (From fInfo As FileInfo In fInfoCol
                   Select New ListViewItem(fInfo.FullName)).ToArray
 
        With Me.ListView1
            .BeginUpdate()
            .Items.AddRange(lvItems)
            .EndUpdate()
        End With
 
    ''' <summary>
   ''' Retrieves the files inside a directory,
   ''' containing the specified file extensions.
   ''' </summary>
   ''' <param name="folderPath">The directory path where to search files.</param>
   ''' <param name="fileExts">The file extensions to match.</param>
   ''' <param name="searchOption">The searching mode.</param>
   ''' <returns>IEnumerable(Of FileInfo).</returns>
   Public Shared Function GetFiles(ByVal folderPath As String,
                                   ByVal fileExts As IEnumerable(Of String),
                                   ByVal searchOption As SearchOption) As IEnumerable(Of FileInfo)
 
       ' Set all the file extensions to lower-case and
       ' Remove empty file extensions and
       ' Remove "*" and "." chars from beginning of the file extension.
       fileExts = From fileExt As String In fileExts
                  Where Not String.IsNullOrEmpty(fileExt)
                  Select fileExt.TrimStart({"*"c, "."c, " "c}).TrimEnd.ToLower
 
       Return From filePath As String In Directory.GetFiles(folderPath, "*", searchOption)
              Where If(Not String.IsNullOrEmpty(Path.GetExtension(filePath)),
                       fileExts.Contains(Path.GetExtension(filePath).TrimStart("."c).ToLower),
                       Nothing)
              Select New FileInfo(filePath)
 
   End Function