Компьютерный форум OSzone.net  

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)
-   Microsoft Windows 8 и 8.1 (http://forum.oszone.net/forumdisplay.php?f=116)
-   -   [решено] Автоматическая сортировка файлов по папкам (http://forum.oszone.net/showthread.php?t=250788)

kako12 07-01-2013 00:41 2060626

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

Iska 07-01-2013 04:25 2060784

Готового решения нет и быть не может, поскольку никто, кроме Вас не знает, что «файлы .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 2061207

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

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

kako12 09-01-2013 15:52 2062534

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

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

Iska 09-01-2013 15:58 2062541

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

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

Morpheus 09-01-2013 16:02 2062544

Цитата:

Цитата Iska
дело либо в антивирусе »

:yes:

Iska 09-01-2013 16:03 2062546

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

Morpheus 09-01-2013 16:08 2062554

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

als999 08-06-2013 21:07 2164540

Я по старинке делаю 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



Время: 06:27.

Время: 06:27.
© OSzone.net 2001-