Ir ao conteúdo
  • Cadastre-se
Entre para seguir isso  
aristofeles

"Fazedor De Playlist Automatico"

Recommended Posts

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?

Compartilhar este post


Link para o post
Compartilhar em outros sites
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

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora
Entre para seguir isso  





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×