Серый форум — CMD/BAT: перенос файлов из каталога и его подкаталогов с сортировкой

Re: CMD/BAT: перенос файлов из каталога и его подкаталогов с сортировкой

null@example.com (Flasher) — Mon, 29 Feb 2016 09:33:58 +0000

Abashin
Ага, точно. Добавил важную строку.

Re: CMD/BAT: перенос файлов из каталога и его подкаталогов с сортировкой

null@example.com (Abashin) — Mon, 29 Feb 2016 06:21:44 +0000

Flasher
Где-то в логике скрипта (первого и второго варианта) серьёзная ошибка.
Скрипт завершает работу перенеся не все файлы соответствующие заданным шаблонам. Если повторно запустить скрипт пропущенные файлы переносятся. Все или требуется третий и четвертый запуск не установлено пока. В модельной ситуации (https://drive.google.com/file/d/0B_3VWn … sp=sharing, первый вариант пропускает 6 файлов, второй 1 файл. Всегда одни и те же файлы.

Re: CMD/BAT: перенос файлов из каталога и его подкаталогов с сортировкой

null@example.com (Flasher) — Sun, 28 Feb 2016 09:09:01 +0000

Abashin
Не нужно цитировать посты с кодами, достаточно написать про первый и второй вариант.
Первый поправил. Второй проверил на Win7 x86, никаких проблем. Возможно, фильтрация указана неверно.
Внёс мелкую коррекцию, чтобы файлы с односимвольным базовым именем тоже переносились.

Что касаемо флагов Filter, то список тут. В vbs вместо 0x пишется &H либо числами, как у меня (как правило этих флагов достаточно).

Re: CMD/BAT: перенос файлов из каталога и его подкаталогов с сортировкой

null@example.com (Abashin) — Sun, 28 Feb 2016 06:17:22 +0000

Flasher пишет:

На русском у нас. Хотя с полным перечнем лучше на msdn.

Спасибо!
Разобрался. Не смог только на msdn найти полный перечень параметров для Filter. А на вашем сайте перечислены только три варианта.

Flasher пишет:

+ Если подпапки первого уровня = расширения файлов, то лучше так:

IPath = "T:\FOLDER-1"
TPath = "T:\FOLDER-2"
Filt  = "*.fil;*.txt;*.lst"

Set Shell = CreateObject("Shell.Application")
Set FSO   = CreateObject("Scripting.FilesystemObject")
Set OutDisk = Shell.NameSpace(FSO.GetDriveName(TPath))
FFolder IPath

Sub FFolder(Folder)
  Set Items = Shell.NameSpace(Folder).Items
  Items.Filter 73920, Filt
  For Each F In Items
	Ext = FSO.GetExtensionName(F.Path)
    Set Elems = ShA.NameSpace(Folder).Items
    Elems.Filter 73920, Left(F.Name, 2) & "*." & Ext
    Trg = FSO.BuildPath(TPath, UCase(Ext)) & "\" & UCase(Left(F.Name, 2))
    If Not FSO.FolderExists(Trg) Then OutDisk.NewFolder(Mid(Trg, 4))
    ShA.NameSpace(Trg).MoveHere Elems, 280
    Items.Filter 73920, Filt
  Next : Items.Filter 73888, "*"
  For Each F In Items : FFolder F.Path : Next
End Sub

Этот вариант оказывается не работает.
https://drive.google.com/file/d/0B_3VWn … sp=sharing

+ Если эти подпапки произвольно названные, то так:

IPath = "T:\FOLDER-1"
TPath = "T:\FOLDER-2"

Set ShA = CreateObject("Shell.Application")
Set Dic = CreateObject("Scripting.Dictionary")
Set FSO = CreateObject("Scripting.FilesystemObject")
Set OutDisk = ShA.NameSpace(FSO.GetDriveName(TPath))

'** Тут прописываем соотв. пути и маски: ***
Dic.Add FSO.BuildPath(TPath, "FIL"), "*.fil"
Dic.Add FSO.BuildPath(TPath, "TXT"), "*.txt"
Dic.Add FSO.BuildPath(TPath, "LST"), "*.lst"
'*******************************************
FFolder IPath

Function FFolder(Folder)
  Set Items = ShA.NameSpace(Folder).Items
  For Each TPath In Dic.Keys
    Filt = Dic.Item(TPath)
    Items.Filter 73920, Filt
    For Each F In Items
      Set Elems = ShA.NameSpace(Folder).Items
      Elems.Filter 73920, Left(F.Name, 2) & Filt
      Trg = FSO.BuildPath(TPath, UCase(Left(F.Name, 2)))
      If Not FSO.FolderExists(Trg) Then OutDisk.NewFolder(Mid(Trg, 4))
      ShA.NameSpace(Trg).MoveHere Elems, 280
      Items.Filter 73920, Filt
    Next
  Next : Items.Filter 73888, "*"
  For Each F In Items : FFolder F.Path : Next
End Function

Этот вариант работает в WinXP нормально, а в Win7 только создаёт структуру папок в FOLDER-2 без переноса файлов (ограничения безопасности?).

Re: CMD/BAT: перенос файлов из каталога и его подкаталогов с сортировкой

null@example.com (Flasher) — Sat, 27 Feb 2016 10:02:08 +0000

Abashin
На русском у нас. Хотя с полным перечнем лучше на msdn.

Re: CMD/BAT: перенос файлов из каталога и его подкаталогов с сортировкой

null@example.com (Abashin) — Sat, 27 Feb 2016 09:14:06 +0000

Flasher пишет:

272 вместо 280.

А какие бывают ещё варианты? Подскажите где прочитать об значениях этого параметра?

Re: CMD/BAT: перенос файлов из каталога и его подкаталогов с сортировкой

null@example.com (Flasher) — Sat, 27 Feb 2016 08:36:46 +0000

Abashin
272 вместо 280. Но смысл? Ведь в разных каталогах могут оказаться одноимённые файлы, которые в итоге перезапишут друг друга, и файлов будет перенесено меньше положенного.
И, кстати, копия должна быть после базового имени, а не перед.

Re: CMD/BAT: перенос файлов из каталога и его подкаталогов с сортировкой

null@example.com (Abashin) — Sat, 27 Feb 2016 08:20:29 +0000

Flasher
Еще вопрос. Что нужно изменить в скрипте, чтобы происходила перезапись существующих в конечной папке файлов, а не запись с новым именем: Копия filename.ext?

Re: CMD/BAT: перенос файлов из каталога и его подкаталогов с сортировкой

null@example.com (Flasher) — Fri, 26 Feb 2016 11:59:10 +0000

Abashin
Пож-та. Во втором скрипте пару имён исправил.

Re: CMD/BAT: перенос файлов из каталога и его подкаталогов с сортировкой

null@example.com (Abashin) — Fri, 26 Feb 2016 11:43:33 +0000

Flasher
Спасибо

Re: CMD/BAT: перенос файлов из каталога и его подкаталогов с сортировкой

null@example.com (Flasher) — Fri, 26 Feb 2016 11:15:16 +0000

Abashin

+ Если подпапки первого уровня = расширения файлов, то лучше так:

IPath = "T:\FOLDER-1"
TPath = "T:\FOLDER-2"
Filt  = "*.fil;*.txt;*.lst"

Set Shell = CreateObject("Shell.Application")
Set FSO   = CreateObject("Scripting.FilesystemObject")
Set OutDisk = Shell.NameSpace(FSO.GetDriveName(TPath))
FFolder IPath

Sub FFolder(Folder)
  Set Items = Shell.NameSpace(Folder).Items
  Items.Filter 73920, Filt
  For Each F In Items
	Ext = FSO.GetExtensionName(F.Path)
    Set Elems = Shell.NameSpace(Folder).Items
    Elems.Filter 73920, Left(F.Name, 2) & "*." & Ext
    Trg = FSO.BuildPath(TPath, UCase(Ext)) & "\" & UCase(Left(F.Name, 2))
    If Not FSO.FolderExists(Trg) Then OutDisk.NewFolder(Mid(Trg, 4))
    Shell.NameSpace(Trg).MoveHere Elems, 280
	Set Items = Shell.NameSpace(Folder).Items
    Items.Filter 73920, Filt
  Next : Items.Filter 73888, "*"
  For Each F In Items : FFolder F.Path : Next
End Sub

+ Если эти подпапки произвольно названные, то так:

IPath = "T:\FOLDER-1"
TPath = "T:\FOLDER-2"

Set ShA = CreateObject("Shell.Application")
Set Dic = CreateObject("Scripting.Dictionary")
Set FSO = CreateObject("Scripting.FilesystemObject")
Set OutDisk = ShA.NameSpace(FSO.GetDriveName(TPath))

'** Тут прописываем соотв. пути и маски: ***
Dic.Add FSO.BuildPath(TPath, "FIL"), "*.fil"
Dic.Add FSO.BuildPath(TPath, "TXT"), "*.txt"
Dic.Add FSO.BuildPath(TPath, "LST"), "*.lst"
'*******************************************
FFolder IPath

Function FFolder(Folder)
  Set Items = ShA.NameSpace(Folder).Items
  For Each TPath In Dic.Keys
    Filt = Dic.Item(TPath)
    Items.Filter 73920, Filt
    For Each F In Items
      F = FSO.GetBaseName(F)
      Set Elems = ShA.NameSpace(Folder).Items
      Elems.Filter 73920, Left(F, 2) & Filt
      Trg = FSO.BuildPath(TPath, UCase(Left(F, 2)))
      If Not FSO.FolderExists(Trg) Then OutDisk.NewFolder(Mid(Trg, 4))
      ShA.NameSpace(Trg).MoveHere Elems, 280
	  Set Items = ShA.NameSpace(Folder).Items
      Items.Filter 73920, Filt
    Next
  Next : Items.Filter 73888, "*"
  For Each F In Items : FFolder F.Path : Next
End Function

Re: CMD/BAT: перенос файлов из каталога и его подкаталогов с сортировкой

null@example.com (Abashin) — Fri, 26 Feb 2016 09:32:41 +0000

Flasher
Спасибо

Если нужно чтобы файлы с разными (заранее известными) расширениями попадали в разные папки так изменить ваш код будет корректно?

+ открыть спойлер

IPath = "T:\FOLDER-1"
TPath = "T:\FOLDER-2\FIL"
Filt = "*.fil"

Set FSO = CreateObject("Scripting.FilesystemObject")
Set Shell = CreateObject("Shell.Application")
If Not FSO.FolderExists(TPath) Then FSO.CreateFolder TPath
FFolder IPath

Sub FFolder(Folder)
Set Items = Shell.NameSpace(Folder).Items
Items.Filter 73920, Filt
For Each F In Items
Trg = FSO.BuildPath(TPath, UCase(Left(F.Name, 2)))
If Not FSO.FolderExists(Trg) Then FSO.CreateFolder Trg
Shell.NameSpace(Trg).MoveHere F, 280
Next : Items.Filter 73888, "*"
For Each F In Items : FFolder F.Path : Next
End Sub

TPath = "T:\FOLDER-2\TXT"
Filt = "*.txt"

Set FSO = CreateObject("Scripting.FilesystemObject")
Set Shell = CreateObject("Shell.Application")
If Not FSO.FolderExists(TPath) Then FSO.CreateFolder TPath
FFolder IPath

TPath = "T:\FOLDER-2\LST"
Filt = "*.lst"

Set FSO = CreateObject("Scripting.FilesystemObject")
Set Shell = CreateObject("Shell.Application")
If Not FSO.FolderExists(TPath) Then FSO.CreateFolder TPath
FFolder IPath

Re: CMD/BAT: перенос файлов из каталога и его подкаталогов с сортировкой

null@example.com (Flasher) — Fri, 26 Feb 2016 09:15:07 +0000

Abashin
Добавил указание фильтра в 3 строке.

Re: CMD/BAT: перенос файлов из каталога и его подкаталогов с сортировкой

null@example.com (Abashin) — Fri, 26 Feb 2016 08:43:55 +0000

Flasher, спасибо - работает!
В варианте дла bat-файла я добавлял расширение обрабатываемых файлов из FOLDER-1. Поскольку для файлов с разными расширениями разные папки назначения.
А в вашем коде я ничего не понимаю и не знаю куда там можно вставить шаблон, например *.fil

Re: CMD/BAT: перенос файлов из каталога и его подкаталогов с сортировкой

null@example.com (Flasher) — Fri, 26 Feb 2016 08:26:16 +0000

Abashin
Пардон, поправил.