Volniy
|
 Posted: Thu Sep 18, 2008 17:21 Post subject: |
 |
|
Вот, например, скрипт, быстрая переделка другого моего скрипта для создания плейлистов (кстати их можно и объединить).
| Code: | ' File: MakeMP3report.vbs (2-nd edition)
' Description: Создает инфо-файл в текущей и в каждой
' в нее вложенной папке, если найдет в них файлы MP3
' Installation: Создайте кнопку на панели TC
' Команда: "диск:\путь\к\файлу\MakeMP3report.vbs"
' Параметры: "%P"
'(c)2008, Volniy
Option Explicit
Dim Fso, Cnt
Set Fso = CreateObject("Scripting.FileSystemObject")
If Fso.FolderExists(WScript.Arguments(0)) = False Then
MsgBox "Указана неверная директория!", vbCritical, "Ошибка"
Else
Call ScanFolderForMP3(Fso.GetFolder(WScript.Arguments(0)))
MsgBox "Информационных файлов создано: " & Cnt, vbInformation, "Завершено"
End If
Set Fso = Nothing
WScript.Quit
Sub ScanFolderForMP3(curFolder)
Dim SF
For Each SF In curFolder.SubFolders
ScanFolderForMP3 SF
Next
Call MakeInfoFile(curFolder)
End Sub
Sub MakeInfoFile(curFolder)
Dim F, fExt, Sz, CntMP3
'On Error Resume Next
For Each F In curFolder.Files
fExt = UCase(Fso.GetExtensionName(F.Name))
If fExt = "MP3" Then
CntMP3 = CntMP3 +1
Sz = Sz + F.Size
End If
Next
If cntmp3 Then
'[размер мп3 файлов_количество мп3 файлов]
Sz = FormatNumber(Sz/(1024*1024),2,-1, ,0)
Set F = curFolder.CreateTextFile("[" & sz & "mb_" & CntMP3 & "fl]", True)
F.Close: Cnt = Cnt + 1
End If
End Sub |
Last edited by Volniy on Thu Sep 18, 2008 22:55; edited 1 time in total |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
