2Volniy
Да ты прикольнее написал, я про Сплит даже не знал, вот и извращался над строкой
<!--QuoteBegin--></div><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>
Цитата </td></tr><tr><td id='QUOTE'><!--QuoteEBegin-->А еще в Sort (ext) абсолютно не учтена ситуация (вполне реальная), когда расширения файлов будут иметь верхний регистр символов или даже смешанный<!--QuoteEnd--></td></tr></table><div class='postcolor'><!--QuoteEEnd-->
Так Виндосу же всё равно.
<!--QuoteBegin--></div><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>
Цитата </td></tr><tr><td id='QUOTE'><!--QuoteEBegin-->А вообще вышел очень удачный, по-моему, скрипт и который может быть приспособлен под разнообразные нужды.<!--QuoteEnd--></td></tr></table><div class='postcolor'><!--QuoteEEnd-->
Особенно если пользуешься закачками через Оперу. Просто "собака" кидает всё в одну папку, а DM иногда лень включать
<!--QuoteBegin--></div><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>
Цитата </td></tr><tr><td id='QUOTE'><!--QuoteEBegin-->
' File: DirMakeDate.vbs
' Version: 1.1 beta
' Description: Все файлы данного каталога (без поддиректорий) сортируются
' по папкам в зависимости от даты их создания
' Installation: Создайте запись в меню Start TC
' Команда: "диск:\путь к файлу\DirMakeDate.vbs"
' Установите нужную вам папку в переменную YourDir и типы
' файлов через запятую в переменную Ext. Чтобы сортировать
' все файлы оставьте пустое значение
' © 2004, Ti-Mac
' Особая благодарность Volniy
YourDir ="D:\Downloads\"
Ext = "zip,rar,htm,html,exe,rtf,txt,doc"
Dim Flag
Set fso = CreateObject("Scripting.FileSystemObject")
Set Dir=FSO.GetFolder(YourDir)
Flag = False
If ext <> "" Then
Allext = Split(ext, ",")
For Each e In Allext
Call Sort(Trim(e))
Next
Else
Call Sort(ext)
End If
If flag Then
MsgBox "Файлы в папке "&YourDir&" отсортированы по датам!", vbInformation
Else MsgBox "В папке "&YourDir&" нет новых файлов для сортировки!", vbInformation
End If
Set fso = Nothing
WScript.Quit
Sub Sort (ext)
For Each F In Dir.Files
If Fso.GetExtensionName(F.Name) = ext or Ext = "" then
DC = F.DateCreated
DC = Year(DC) & "_" & Month(DC) & "_" & Day(DC)
NewDir = Dir.path & "\" & DC & "\"
If Not FSO.FolderExists(NewDir) Then FSO.CreateFolder(NewDir)
If fso.fileexists(NewDir+f.name) then fso.DeleteFile(NewDir+f.name)
f.move (NewDir)
Flag = True
end if
Next
End Sub
<!--QuoteEnd--></td></tr></table><div class='postcolor'><!--QuoteEEnd-->