Listar archivos en excel
Publicado por Pera (3 intervenciones) el 18/04/2008 17:03:06
Hola:
tengo esta rutina para listar los archivos de un directorio (son de música):
Const Carpeta = "C:"
Sub Macro1()
Dim FSO As Object
Dim FSOFolder As Object
Dim FSOfile As Object
Dim archivo As Long
Set FSO = CreateObject("Scripting.FileSystemObject")
Set FSOFolder = FSO.GetFolder(Carpeta)
archivo = 1
With ActiveSheet
For Each FSOfile In FSOFolder.Files
.Range("a" & archivo) = FSOfile.Name
archivo = archivo + 1
Next
End With
End Sub
La cuestion es que quiero que ademas de que me liste los archivos, me liste en otra columna (al lado), los subtitulos ya que en cada canción le tengo puesto en el apartado de subtítulos varios detalles de las canciones.
Gracias
tengo esta rutina para listar los archivos de un directorio (son de música):
Const Carpeta = "C:"
Sub Macro1()
Dim FSO As Object
Dim FSOFolder As Object
Dim FSOfile As Object
Dim archivo As Long
Set FSO = CreateObject("Scripting.FileSystemObject")
Set FSOFolder = FSO.GetFolder(Carpeta)
archivo = 1
With ActiveSheet
For Each FSOfile In FSOFolder.Files
.Range("a" & archivo) = FSOfile.Name
archivo = archivo + 1
Next
End With
End Sub
La cuestion es que quiero que ademas de que me liste los archivos, me liste en otra columna (al lado), los subtitulos ya que en cada canción le tengo puesto en el apartado de subtítulos varios detalles de las canciones.
Gracias
Valora esta pregunta
0