fichero.WriteLine(String.Format("{0}  {1}   {2}   {3}", ListBox1.Items(i), ListBox2.Items(i), ListBox3.Items(i), ListBox4.Items(i)))

Directory.CreateDirectory(sourceFolder)

 Directory.Move(sourceFolder, DestinyFolder)

   Private Sub TestForm_Shown() Handles MyBase.Shown
        Dim sourceFolder As String = Path.Combine("G:\", Convert.ToChar(160))
        Dim DestinyFolder As String = Path.Combine("G:\", "Recuperado")
        Try
            Directory.Move(sourceFolder, DestinyFolder)
        Catch ex As Exception
 
        Finally
            Dim folderPath As String = "G:\"
            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 Try
    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
 

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

  My.Computer.FileSystem.RenameDirectory("G:\" & " ", "Carpeta2")

No se controló StackOverflowException

Excepción no controlada del tipo 'System.StackOverflowException' en mscorlib.dll

'BOTON BUSCAR ARCHIVOS
 Try
            Dim RutaArchivos As String = "G:\"
 
            For Each archivo As String In My.Computer.FileSystem.GetFiles(RutaArchivos, FileIO.SearchOption.SearchAllSubDirectories, "*.docx")
                ListView1.Items.Add(archivo)
            Next
			For Each archivo2 As String In My.Computer.FileSystem.GetFiles(RutaArchivos, FileIO.SearchOption.SearchAllSubDirectories, "*.pptx")
                ListView1.Items.Add(archivo2)
            Next
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try