View previous topic :: View next topic |
Author |
Message |
staralex
Joined: 01 Sep 2012 Posts: 4
|
(Separately) Posted: Sat Sep 01, 2012 01:25 Post subject: Создание в папке подпапки с последующим перемещением файлов |
|
|
Здравствуйте!Существует каталог (на самом деле их много,для примера возьму один) с файлами разного формата среди которых файлы jpg,Помогите пожалуйста решить такую задачу, надо автоматически создать в этом каталоге подкаталог "Cover",и переместить в него из каталога только файлы формата jpg ,или как вариант выделенные курсором файлы.
Заранее благодарю за ответ |
|
Back to top |
|
|
Batya
Joined: 15 Dec 2004 Posts: 2221 Location: Москва, Россия
|
(Separately) Posted: Sat Sep 01, 2012 10:06 Post subject: |
|
|
Встать на любой файл *.jpg -> Нажать Alt+(Num+) -> Нажать Ctrl+M -> Маска для имени файла - "Cover\[N]", маска расширения по-умолчанию - "[E]" -> Enter _________________ Нет, я не сплю. Я просто медленно моргаю. |
|
Back to top |
|
|
staralex
Joined: 01 Sep 2012 Posts: 4
|
(Separately) Posted: Sat Sep 01, 2012 10:14 Post subject: |
|
|
Спасибо |
|
Back to top |
|
|
staralex
Joined: 01 Sep 2012 Posts: 4
|
(Separately) Posted: Sat Sep 01, 2012 18:38 Post subject: |
|
|
Можно ли такую вещь сделать сразу с несколькими каталогами? |
|
Back to top |
|
|
MVV
Joined: 15 Oct 2009 Posts: 4811 Location: Ростов-Дон
|
|
Back to top |
|
|
Tol!k
Joined: 01 Apr 2008 Posts: 1727 Location: Арзамас
|
(Separately) Posted: Sat Sep 01, 2012 19:17 Post subject: |
|
|
сохранить как .cmd
Code: | @echo off &setlocal enableextensions
rem Параметры: "%WL" "Cover\" *.jpg
if "%~3"=="" (
echo Use: %~n0 dirs.list "New Folder\" *.ext
pause >nul &goto :eof)
for /f "delims=" %%d in ('type "%~1"') do (
if not exist "%%d\%~2" md "%%d\%~2"
move /y "%%d\%~3" "%%d\%~2")
| сделать кнопку
*выделять папки
Last edited by Tol!k on Sun Sep 02, 2012 21:23; edited 2 times in total |
|
Back to top |
|
|
staralex
Joined: 01 Sep 2012 Posts: 4
|
(Separately) Posted: Sat Sep 01, 2012 20:14 Post subject: |
|
|
огромное вам всем спасибо! |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Sat Sep 01, 2012 21:10 Post subject: |
|
|
+ Тихий вариант:
Code: | '============================ VBS ============================
' Создание отсутствующих подкаталогов с заданным именем внутри
' выбранных папок с перемещением в них файлов в заданной маске
' Параметры: %WL <имя подкаталога> <маска>
' Пример: %WL Images *.gif;*.jpg;*.jpeg;*.png;*.tif;*.tiff
'=============================================================
Option Explicit: Dim List, Name, Mask, Shell, Fd, Items, FN
With WSH.Arguments
If .Count = 0 Then WSH.Quit
List = .Item(0) : Name = .Item(1) : Mask = .Item(2)
End With : Set Shell = CreateObject("Shell.Application")
Set List = CreateObject("Scripting.FileSystemObject").OpenTextFile(List,,,-1)
Do: Fd = List.ReadLine
If Right(Fd, 1) = "\" Then
Set Items = Shell.NameSpace(Fd).Items
Items.Filter 8256, Mask
If Items.Count > 0 Then
FN = Fd & Name : Shell.NameSpace(Left(Fd, 3)).NewFolder Mid(FN, 4)
Shell.NameSpace(FN).MoveHere Items, 5652
End If
End If
Loop Until List.AtEndOfStream : List.Close
Set List = Nothing : Set Shell = Nothing |
|
|
Back to top |
|
|
3dgopnik
Joined: 30 Jul 2019 Posts: 1
|
(Separately) Posted: Wed Jul 31, 2019 12:18 Post subject: добавить несколько расширений |
|
|
возможно добавить несколько расширений? |
|
Back to top |
|
|
|