Escribir un listado de todos los archivos de un directorio en un archivo de texto

Cuantas veces nos encontramos con la necesidad de poder leer los archivos contenidos en un directorio y mandarlos a un archivo de texto.

Lo siguiente lo realize utilizando una instancia de la clase computer del espacio de nombres Microsoft.VisualBasic.Devices para escribir el archivo a disco.

Por supuesto primero deberan de hacer una referencia al assembly de Microsoft.VisualBasic

Microsoft.VisualBasic.Devices.Computer c = 
   new Microsoft.VisualBasic.Devices.Computer();
if (System.IO.Directory.Exists(@"d:\xCarpeta\"))
{
   foreach (
      string archivo in System.IO.Directory.GetFiles(
           @"d:\xCarpeta\", 
           "*", 
           System.IO.SearchOption.AllDirectories))
   {
      c.FileSystem.WriteAllText(
          @"d:\archivos.txt", archivo + "\r\n", true);
   }

}
else
{
   c.FileSystem.WriteAllText(
       @"d:\archivos.txt", 
       "No existe el dir\r\n", 
       true);
}
c.FileSystem.WriteAllText(
    @"d:\archivos.txt", "*******\r\n", true);

Espero este código les resulte interesante.

Saludos.