Szukam programu, który pozwoliłby na dopasowanie utworu dla danej tancerki.
Czyli: Załóżmy, że tancerek jest 10, każda z nich przynosi folder po 5 utworów lub więcej.
I teraz… Tancerki tańczą wg ustalonej kolejności czyli jeśli jest ich 10 to co dziesiąty utwór będzie z folderu tancerki A. Przy każdej kolejnej rundzie chciałabym, żeby z folderu był grany kolejny utwór.
Powiecie, żeby poukładać w Winampie ale… W momencie kiedy tancerka B idzie na taniec prywatny wypada z kolejki i cała lista idzie się… no wiecie Więc fajnie by było gdyby cały folder z jej utworami dało się wyłączyć z kolejki i wówczas przy 9 tancerkach utwory tancerki A lecą co 9 utwór. Oczywiście miałoby to też zastosowanie na początku pracy przy ustalaniu, które z dziewczyn są w danym dniu obecne.
Wiem, że trochę skomplikowane ale mam nadzieję, że pomożenie
Ok Różowa, napisałem Ci mały skrypt - generator playlisty do winampa
On Error Resume Next
Const WINDOW_HANDLE = 0
Const BIF_EDITBOX = &H10
Const BIF_NONEWFOLDER = &H0200
Const BIF_RETURNONLYFSDIRS = &H1
Set objShell = CreateObject("Shell.Application")
Set wshShell = CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
'**Browse For Folder To Be Processed
strPrompt = "Please select the folder to process."
intOptions = BIF_RETURNONLYFSDIRS + BIF_NONEWFOLDER + BIF_EDITBOX
strTargetPath = wshShell.SpecialFolders("MyComputer")
strFolderPath = Browse4Folder(strPrompt, intOptions, strTargetPath)
Set objNewFile = objFSO.CreateTextFile(strFolderPath & "\playlista.m3u", True)
Set objFolder = objFSO.GetFolder(strFolderPath)
Set objSubfolders = objFolder.Subfolders
nFolders = 0
tmpFiles = 0
maxFiles = 0
Dim tmpTab(100,100)
For Each folder In objSubfolders
Set subFolderFiles = folder.Files
nFolders = nFolders + 1
For Each file In subFolderFiles
tmpFiles = tmpFiles + 1
tmpTab(nFolders, tmpFiles) = file.Path
Next
If tmpFiles > maxFiles Then
maxFiles = tmpFiles
End If
tmpFiles = 0
Next
For j = 1 to maxFiles
For i = 1 to nFolders
objNewFile.WriteLine(tmpTab(i, j))
Next
Next
objNewFile.Close
'**Browse4Folder Function
Function Browse4Folder(strPrompt, intOptions, strRoot)
Dim objFolder, objFolderItem
On Error Resume Next
Set objFolder = objShell.BrowseForFolder(0, strPrompt, intOptions, strRoot)
If (objFolder Is Nothing) Then
Wscript.Quit
End If
Set objFolderItem = objFolder.Self
Browse4Folder = objFolderItem.Path
Set objFolderItem = Nothing
Set objFolder = Nothing
End Function
Skopiuj całość do notatnika i zapisz jako “Twoja_ulubiona_nazwa_pliku.vbs”
Instrukcja użycia (gdy chcesz stworzyć nową playlistę lub uaktualnić starą) :
Więc fajnie by było gdyby cały folder z jej utworami dało się wyłączyć z kolejki i wówczas przy 9 tancerkach utwory tancerki A lecą co 9 utwór. Oczywiście miałoby to też zastosowanie na początku pracy przy ustalaniu, które z dziewczyn są w danym dniu obecne.
Chciałabym, żeby to było w jak największym stopniu zautomatyzowane i niewymagające całonocnej obsługi 
