Скрипт по раскладыванию файлов по папкам

07.12.2012, 12:17. Показов 2203. Ответов 0

Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам

Всех с пятницой.

Подскажите пожалуйста с задачкой:

Есть сервер антиспама (win2003), он складывает более полезный спам в папки, от куда полезные письма можно вытянуть.

Далее .vbs отрабатывает раз в сутки и раскладывает по датам этот спам (для удобства поиска)

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Dim FSO, FldN, Fls, Fl, DtN, FlN
Set FSO = WScript.CreateObject("Scripting.FileSystemObject")
 
If WScript.Arguments.Count = 0 Then
  MsgBox "Не задано имя папки для распределения файлов по датам. ", vbExclamation, "Ошибка"
  WScript.Quit
End If
 
FldN = WScript.Arguments(0)
If Not FSO.FolderExists(FldN) Then
  MsgBox "Папка """ & FldN & """ не существует. ", vbExclamation, "Ошибка"
  WScript.Quit
End If
 
Set Fls = FSO.GetFolder(FldN).Files
For Each Fl In Fls
  DtN = FSO.BuildPath(FldN, GetDateName(Fl.DateLastModified))
  If Not FSO.FolderExists(DtN) Then FSO.CreateFolder DtN
 
  FlN = FSO.BuildPath(DtN, Fl.Name)
  If FSO.FileExists(FlN) Then FSO.DeleteFile FlN, True
  Fl.Move FlN
Next
 
WScript.Quit
 
Private Function GetDateName(Dt)
  Dim M, D
 
  M = Month(Dt)
  D = Day(Dt)
  If M < 10 Then M = "0" & M
  If D < 10 Then D = "0" & D
 
  GetDateName = Year(Dt) & "-" & M & "-" & D
End Function

Следом отрабатывает скрипт по удалению старого спама.

Суть задачи переписывание скрипта:
брать из письма user@e-mail.com сопоставлять первую часть с %username% , создавать каталог, если не создан согласно %username% и внутри него раскладывать по датам спам.

*после обработки скрипта (раз в сутки), я буду мапить диском к юзеру, чтобы он беспрепятственно просматривал свой спам.

К сожалению я в скриптах слабоват, поэтому и прошу помощи.

Второй вариант, который я нашел:
Через .bat вызывать windows search (не знаю как) и поиском искать *%username%*, к сожалению:

Windows Batch file
1
2
Dir \\server\spam /b/s
for /f "tokens=* delims=$_" %i in (temp.txt) do @find “*%username%*” %i

это лишь поиск в cmd ... как и говорил, мне нужно вызвать explorer.exe с поиском по *%username%*

Programming

Эксперт

39485 / 9562 / 3019

Регистрация: 12.04.2006

Сообщений: 41,671

Блог

07.12.2012, 12:17

Ответы с готовыми решениями:

Сортировка большого количества файлов по папкам, созданным по части названия файлов
Здравствуйте, уважаемые! Сразу к делу. Имеется папка, в ней уже более 500.000 файлов, и с каждым днем все больше на 3-4 тысячи....

Распределение файлов по папкам, создаваемым в соответствии с частями имён этих файлов
Всем привет, я работаю в сфере 3d визуализации и так получилось что огромные секвенции файлов сохраняются в одну папку. Это очень неудобно...

Консольное приложение: отображение структуры файлов и папок, перемещение по папкам, открытие файлов
Приложение написанное на языке СИ позволяющее в консольном режиме отображать структуру файлов и папок,перемещаться по папкам и открывать на...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

inter-admin

Эксперт

29715 / 6470 / 2152

Регистрация: 06.03.2009

Сообщений: 28,500

Блог

07.12.2012, 12:17

Помогаю со студенческими работами здесь

Распределение файлов по папкам, соответствующим расширениям файлов
Здравствуйте. Есть папка Downloads и в ней множество файлов с разным расширением (mp3, jpeg, rar и т.д.). Хотелось бы чтобы bat-файл...

Скрипт, который распределяет файлы по папкам
У меня есть много файлов, которые нужно расспределить по папкам. Критерий начало имени. Можна как-то автоматизировать процес?

Сортировка файлов по папкам
Решил навести порядок в папке, отсортировав файлы по датам. using System; using System.Collections.Generic; using System.IO; using...

Сортировка файлов по папкам
Доброе время суток. Интересует такой вопрос я через одну программу декомпилировал файлы они у меня сохранились в с неправильным...

Сортировка файлов по папкам
Не могу понять, где набыдлокодил: if (TypeFile.Checked) { string path =...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .

Наверх