[решено] Автоматическая сортировка файлов по папкам [Версия для КПК]

Показать полную графическую версию : [решено] Автоматическая сортировка файлов по папкам

kako12

07-01-2013, 00:41

Возникла простая потребность. К примеру есть папка Downloads. В ней куча разных файлов. Нужна программа, которая к примеру все файлы .torrent положит в папку Torrents, все файлы .apk в папку Android, и так далее. Существует ли готовое решение? Почти час гугления не принес результатов...

Iska

07-01-2013, 04:25

Готового решения нет и быть не может, поскольку никто, кроме Вас не знает, что «файлы .torrent» это папка «Torrents», а «файлы .apk» это папка «Android». И тем паче никто не может знать, что скрывается под «и так далее».

Я подобные вещи предпочитаю делать полуавтоматически, посредством Far Manager'а. Вы можете попробовать такой скрипт WSH:
Option Explicit

Dim objDictionary

Dim strSourceFolder
Dim strDestFolder
Dim strKey

strSourceFolder = "c:\Downloads"

Set objDictionary = WScript.CreateObject("Scripting.Dictionary")

With objDictionary
.Add "torrent", "Torrents"
.Add "apk", "Android"
End With

With WScript.CreateObject("Scripting.FileSystemObject")
For Each strKey In objDictionary.Keys
strDestFolder = .BuildPath(strSourceFolder, objDictionary.Item(strKey))

If Not .FolderExists(strDestFolder) Then
.CreateFolder strDestFolder
End If

.MoveFile strSourceFolder & "\*." & strKey, strDestFolder & "\"
Next
End With

objDictionary.RemoveAll

Set objDictionary = Nothing

WScript.Quit 0

Vadikan

07-01-2013, 17:57

kako12, создайте библиотеку, добавьте папку, упорядочьте по типу. Пример http://www.outsidethebox.ms/12356/#_Toc300526594

И главное, не надо ничего сортировать никуда :)

kako12

09-01-2013, 15:52

Iska, спасибо, буду пробовать.

Vadikan, Ваш способ дает хорошую возможность для обозревания файлов, но у меня была немного иная цель. Просто при накоплении ~200-300 файлов в папке Downloads (2 недели - месяц) она начинает неприлично долго грузится, а каждый раз сидеть, и разбирать, какие файлы, в какие папки-архивы нужно переместить уже надоело...

Iska

09-01-2013, 15:58

1. 200-300 — это «копейки». Нет никаких причин для их долгой обработки Проводником. Полагаю, дело либо в антивирусе, либо в установленных расширениях Проводника (расширители контекстного меню, всплывающие подсказки и т.п.).

2. Все известные мне менеджеры загрузок умеют, ориентируясь на расширение загружаемого файла, сохранять последний в указанную папку.

Morpheus

09-01-2013, 16:02

дело либо в антивирусе »
:yes:

Iska

09-01-2013, 16:03

Morpheus, что не так?!

Morpheus

09-01-2013, 16:08

Iska, всё так. Подтверждаю, что чаще всего из-за антивируса. У себя обошел отключением защиты в реальном времени. Иначе никак.

als999

08-06-2013, 21:07

Я по старинке делаю cmd файл:

move .\*.doc .\Documents
move .\*.Xls .\Documents
move .\*.jpg .\Pictures
move .\*.bmp .\Pictures
move .\*.gif .\Pictures
move .\*.png .\Pictures
move .\*.zip .\Archives
move .\*.rar .\Archives