Importar nombres de archivos de una carpeta a Excel

Hola.
Desearía importar los campos que describen cada archivo cuando visualizo una carpeta a Excel. ¿Sabrías cómo hacerlo mediante comandos windows? ¿Es necesario un programa?
Gracias por tu interés.

1 Respuesta

Respuesta
1
¿No entendí bien la pregunta te refieres a los nombres de los archivos como por ejemplo que archivos están guardados en una carpeta?
Sí, me refiero a poder disponer en Excel de los nombres de archivo y campos anexos de por ejemplo una carpeta que tiene archivos mp3.
Necesitaría tener el nombre de archivo, el intérprete, el titulo de la canción, etc.
Gracias anticipadas.
Si creas una macro con referencia a las api de windows especificamentes estas
'Esta función busca el primer archivo de un Dir
 Private Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" ( _
     ByVal lpFileName As String, _
     lpFindFileData As WIN32_FIND_DATA) As Long
 'Esta el siguiente archivo o directorio
 Private Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" ( _
     ByVal hFindFile As Long, _
     lpFindFileData As WIN32_FIND_DATA) As Long
 Private Declare Function GetFileAttributes Lib "kernel32" Alias "GetFileAttributesA" ( _
     ByVal lpFileName As String) As Long
 'Esta cierra el Handle de búsqueda
 Private Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long
y con estas constantes
'Constantes de atributos de archivos
Const FILE_ATTRIBUTE_ARCHIVE = &H20
Const FILE_ATTRIBUTE_DIRECTORY = &H10
Const FILE_ATTRIBUTE_HIDDEN = &H2
Const FILE_ATTRIBUTE_NORMAL = &H80
Const FILE_ATTRIBUTE_READONLY = &H1
Const FILE_ATTRIBUTE_SYSTEM = &H4
Const FILE_ATTRIBUTE_TEMPORARY = &H100
'Otras constantes
Const MAX_PATH = 260
Const MAXDWORD = &HFFFF
Const INVALID_HANDLE_VALUE = -1
Ya después nada más creas las funciones que utilizan dichas constantes y la referencia a donde las quieres escribir
Muchísimas gracias.
No tengo ni idea de macros, intentaré ver si puedo aprender algo de esto en algún sitio.
De cualquier manera, me ha servido para ver que no es fácil lo que pido.
Agradezco enormemente tu esfuerzo y sobre todo por ser altruista.
Me gustaría poder corresponderte de alguna manera, pero por la REd está complicado.
Un afectuoso saludo.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas