"Fazedor De Playlist Automatico"

[aristofeles]

A situação é a seguinte:

Tenho uma pasta: Audio

Nela, subpastas: Audio Slave, Caetano, Offspring, etc....

Em cada subpasta, musicas organizadas com numeros - 01-musica_1.mp3, 02-musica_2.mp3...

Algumas dessas pastas (offsping) possuem pastas de CDs dentro, e dentro dessas as musicas.

Ou seja: uma configuração normal para audio.

+++

O que eu to tentando achar:

Algum programa que pegue as musicas de cada pasta na ordem numerica, e crie, disso, uma playlist. Essa playlist deve conter o mesmo nome da pasta, e é preferivel que seja salva na propria, mas em qualquer outro lugar também serve.

Esse programa tem de ser para Windows, claro. Pode ser free, trial ou pago - e ter inumeras funções que não irei usar. Não me importo.

Alguém sabe indicar?

[sidnei1974]

A situação é a seguinte:

Tenho uma pasta: Audio

Nela, subpastas: Audio Slave, Caetano, Offspring, etc....

Em cada subpasta, musicas organizadas com numeros - 01-musica_1.mp3, 02-musica_2.mp3...

Algumas dessas pastas (offsping) possuem pastas de CDs dentro, e dentro dessas as musicas.

Ou seja: uma configuração normal para audio.

+++

O que eu to tentando achar:

Algum programa que pegue as musicas de cada pasta na ordem numerica, e crie, disso, uma playlist. Essa playlist deve conter o mesmo nome da pasta, e é preferivel que seja salva na propria, mas em qualquer outro lugar também serve.

Esse programa tem de ser para Windows, claro. Pode ser free, trial ou pago - e ter inumeras funções que não irei usar. Não me importo.

Alguém sabe indicar?

Oi,

Precisei criar playlist automático para minhas músicas, e na busca rápida não encontrei nenhum programa. Então fiz um script (um Frankstein, aproveitei alguns na net e alterei para fazer o que eu queria). Ele pede para escolher um diretorio e sai procurando arquivos mp3 e em cada subdiretorio ele salva um arquivo "nome da pasta".m3u. Copie o texto abaixo e cole em um arquivo, salvando como playlist.vbs e execute.

'*******************

Const WINDOW_HANDLE = 0

Const NO_OPTIONS = 0

Set objShell = CreateObject("Shell.Application")

Set objFolder = objShell.BrowseForFolder _

(WINDOW_HANDLE, "Selecione uma pasta:", NO_OPTIONS, "C:\")

Set objFolderItem = objFolder.Self

origem = objFolderItem.Path

filtro = "*.mp3"

CriarPlaylist origem, filtro

Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")

Set colSubfolders = objWMIService.ExecQuery _

("Associators of {Win32_Directory.Name='" & origem & "'} " _

& "Where AssocClass = Win32_Subdirectory ResultRole = PartComponent")

For Each objFolder in colSubfolders

strSubDir = objFolder.Name

CriarPlaylist strSubDir, filtro

Next

MsgBox "Finalizado a criação de playlist em " & origem & "."

Sub CriarPlaylist (origem, filtro)

Dim a: a = ListDir(origem, filtro)

If UBound(a) = -1 then

'WScript.Echo "Diretório Vazio"

Else

Dim FileName

Dim objFSO

Set objFSO = CreateObject("Scripting.FileSystemObject")

arquivo = Right(origem, Len(origem) - (InStrRev(origem,"\"))) & ".m3u"

if not objFSO.FileExists(origem & "\" & arquivo) Then

For Each FileName In a

arq = Right(FileName, Len(FileName) - (InStrRev(FileName,"\")))

Escrever origem & "\" & arquivo, arq

Next

End If

'MsgBox "Playlist criado com sucesso!"

End If

End Sub

Sub Escrever(strFile, texto)

Dim objFSOLog, objFile

Set objFSOLog = CreateObject("Scripting.FileSystemObject")

Set objFile = objFSOLog.OpenTextFile(strFile, 8, True)

objFile.WriteLine texto

objFile.Close

Set objFile = Nothing

Set objFSOLog = Nothing

End Sub

Public Function ListDir (pasta, ByVal Path)

Dim fso: Set fso = CreateObject("Scripting.FileSystemObject")

'Dim Filter: Filter = "*"

ReDim a(10)

Dim n: n = 0

Dim Folder: Set Folder = fso.GetFolder(pasta)

Dim Files: Set Files = Folder.Files

Dim File

For Each File In Files

if (Strcomp("mp3", Right(File,3)) = 0) Then

If n > UBound(a) Then ReDim Preserve a(n*2)

a(n) = File.Path

n = n + 1

End If

Next

ReDim Preserve a(n-1)

ListDir = a

End Function