Ir ao conteúdo
  • Comunicados

    • Gabriel Torres

      Seja um moderador do Clube do Hardware!   12-02-2016

      Prezados membros do Clube do Hardware, Está aberto o processo de seleção de novos moderadores para diversos setores ou áreas do Clube do Hardware. Os requisitos são:   Pelo menos 500 posts e um ano de cadastro; Boa frequência de participação; Ser respeitoso, cordial e educado com os demais membros; Ter bom nível de português; Ter razoável conhecimento da área em que pretende atuar; Saber trabalhar em equipe (com os moderadores, coordenadores e administradores).   Os interessados deverão enviar uma mensagem privada para o usuário @Equipe Clube do Hardware com o título "Candidato a moderador". A mensagem deverá conter respostas às perguntas abaixo:   Qual o seu nome completo? Qual sua data de nascimento? Qual sua formação/profissão? Já atuou como moderador em algo outro fórum, se sim, qual? De forma sucinta, explique o porquê de querer ser moderador do fórum e conte-nos um pouco sobre você.   OBS: Não se trata de função remunerada. Todos que fazem parte do staff são voluntários.
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

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

×