Manuel Ruvalcaba

Bueno hace dos navidades mi novia me regalo un Samsung YP-Z5F que no es otra cosa que un reproductor MP3/WMA/FLAC/AAC con ciertas funciones tactitles (touch buttons) y una buena pantalla, en fin es un buen reproductor con casi 75 horas de reproducción continua, el único pero que tiene es que para generar listas de reproducción es todo un show.

Una de las formas hacerlo es instalar el manejador de archivos que trae en su CD, pero es realmente malo y lento para solamente generar listas, la otra forma es utilizar el Windows Media Player 10 u 11, pero de igual forma hace mas tonterías de lo que debería de hacer… un simple drag & drop en la carpeta Music es mas rápido y efectivo, pero como siempre tiene un inconveniente a menos que seas un freaky que tiene todos sus MP3 con sus ID3 tags perfectas tendrás toda la musica sin acomodar y te sera imposible leer por disco… la solución:

SPLGen.VBS

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32

Set objFso = CreateObject("Scripting.FileSystemObject")
 
Set MusicFolder = objFso.GetFolder(".\\Music")
Set PlaylistFolder = objFso.GetFolder(".\\Playlist")
 
Set colFolders = MusicFolder.Subfolders
 
For Each folder In colFolders
	Wscript.Echo "Generating " & folder.Name & ".spl"
	Set objOutputFile = PlaylistFolder.CreateTextFile(folder.Name & ".spl", True)
 
	objOutputFile.WriteLine "SPL PLAYLIST"
	objOutputFile.WriteLine "VERSION 1.00"
	objOutputFile.WriteLine ""
 
	Set enumFiles = objFso.GetFolder(".\\Music\\" & folder.Name).Files
 
	For Each file in enumFiles
		If InStr(UCase(file.Name), ".MP3") <> 0 Or InStr(UCase(file.Name), ".WMA") <> 0 Or InStr(UCase(file.Name), ".OGG") <> 0 Then
			Wscript.Echo "+ " & file.Name
			objOutputFile.WriteLine "\Music\" & folder.Name & "\" & file.Name
		Else
			Wscript.Echo "- " & file.Name
		End If
	Next
 
	objOutputFile.WriteLine ""
	objOutputFile.WriteLine "END PLAYLIST"
	objOutputFile.Close
 
	Wscript.Echo "Finished!" & VBCrLf
Next

SPLGen.CMD

1
2
3

@ECHO OFF
CScript SPLGen.vbs
PAUSE

Los pones los dos en la raíz del disco del reproductor y corres el archivo SPLGen.CMD cuando acabes de subir tus archivos de musica a la carpeta Music, básicamente lo que hace es listar todas las carpetas dentro de la carpeta Music, y genera un archivo SPL dentro de la carpeta Playlist con el contenido de las carpeta. Muy practico si tienes un reproductor de estos.

Por desgracia este programa esta hecho para satisfacer mis necesidades, y como tal tiene ciertas limitaciones, la principal es que no hace una exploración recursiva en los directorios únicamente va a mostrar los archivos que estén a primer nivel, por eso te dejo el source para que lo modifiques si necesitas esta opción.