kvitalka
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Из контекстного меню файла mp3 запускаю бантик
echo off
rem echo Создание каталога для mp3 %0
cscript C:\scripts\folder-mp3.vbs %1
он в свою очередь запускает скрипт, который из тегов mp3 файла делает коталог вида
ИСПОЛНИТЕЛЬ - АЛЬБОМ (ГОД)
если перетащить файл на бантик скрипт срабатывает как надо
если перетащить файл на скрипт - то-же
а с под контекстного меню ничего не происходит
как исправить?
сам скрипт
Set FSO = CreateObject("Scripting.FileSystemObject")
if Wscript.Arguments.Count > 0 then
sFile = Wscript.Arguments(0)
if FSO.FileExists(sFile) then
Set File = FSO.GetFile(sFile)
Folder = File.ParentFolder
if (FSO.GetExtensionName(File.Path)="mp3") then
rem Fso.MoveFile File.Path, Folder & "\" & "folder.jpg"
Set wmp = WScript.CreateObject("WMPlayer.OCX")
Set media = wmp.newMedia(sFile)
Dim s
Dim Author
Dim AlbumTitle
Dim AlbumYear
For i=0 to media.attributeCount-1
if (media.getAttributeName(i) = "Author") then
Author = media.getItemInfo(media.getAttributeName(i))
end if
if (media.getAttributeName(i) = "WM/AlbumTitle") then
AlbumTitle = media.getItemInfo(media.getAttributeName(i))
end if
if (media.getAttributeName(i) = "WM/Year") then
AlbumYear = media.getItemInfo(media.getAttributeName(i))
end if
s = Author & " - " & AlbumTitle & " (" & AlbumYear & ")"
Next
path = ""&Folder&"\"+s
fso.CreateFolder(path)
else
Wscript.echo ("Это не mp3!!!")
end if
end if
end if
Добавлено:
с командной строки тоже нормально работает
C:\scripts\folder-mp3.bat "C:\Users\admin\Desktop\mp3\Seal - Luck Be A Lady.mp3" |
