Obtener las carpetas especiales como "Mis documentos"

2113 vistas

Usaremos la función GetFolderPath de la clase Environment con la enumeración Environment.SpecialFolder



vbnet
  1. ' carpetas especiales
  2. Console.WriteLine("Carpetas especiales");
  3. Dim specfolderenum As Array = [Enum].GetValues(GetType(Environment.SpecialFolder))
  4. For i As Integer = 0 To specfolderenum.Length - 1
  5.   Console.WriteLine(Environment.GetFolderPath(CType(specfolderenum.GetValue(i), Environment.SpecialFolder)))
  6. Next