Total Commander Forum Index Total Commander
Форум поддержки пользователей Total Commander
Сайты: Все о Total Commander | Totalcmd.net | Ghisler.com | RU.TCKB
 
 RulesRules   SearchSearch   FAQFAQ   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Создание подкаталогов
Goto page 1, 2, 3  Next
 
Post new topic   Reply to topic    Total Commander Forum Index -> Автоматизация Total Commander printer-friendly view
View previous topic :: View next topic  
Author Message
Zombie



Joined: 01 Jul 2011
Posts: 16
Post (Separately) Posted: Fri Jul 01, 2011 20:28    Post subject: Создание подкаталогов Reply with quote
Доброго времени суток.....

Задача такая: имеем кучу папок с файлами, внутри каждой папки нужно создать подкаталог например "111" и переместить в этот каталог все файлы из корневого каталога.

З.Ы.

"куча" каталогов создается вот этим скриптом от Batya
Back to top
View user's profile Send private message
Avada



Joined: 01 Aug 2008
Posts: 10415
Location: Россия, Саратов
Post (Separately) Posted: Sat Jul 02, 2011 09:14    Post subject: Reply with quote
Zombie
1. По поводу принятого на форуме оформления скриптов и их фрагментов см. здесь
2. По поводу самого цитирования полного скрипта вместо ссылки на источник см. здесь. Пост-источник в таком случае приводится в режиме отдельного сообщения (см. ссылку "Отдельно" над постом).
Соблюдаем правила.
Пост исправлен.
_________________
Даже самая богатая фантазия
Не представит себе наши безобразия.
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва
Post (Separately) Posted: Sat Jul 02, 2011 10:40    Post subject: Reply with quote
Avada
Спасибо, теперь можно спрашивать.

Zombie
Корневой каталог - это родительский, т.е. один из тех, который будет выделен? Можно конечно и не выделять, тогда будут обрабатываться все подкаталоги активной папки.
Back to top
View user's profile Send private message
Zombie



Joined: 01 Jul 2011
Posts: 16
Post (Separately) Posted: Sat Jul 02, 2011 11:00    Post subject: Reply with quote
Flasher
в общем да, немного уточню есть несколько тысяч файлов типа "ааа.xml" "ббб.xml" и тд
их нужно поместить в папки. т.е. скрипт создает папку используя имя файла(ааа.xml) НО копирует файл ааа.xml не просто в каталог aaa, а в каталог ааа\1\ааа.xml

так вроде понятней написал.
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва
Post (Separately) Posted: Sat Jul 02, 2011 11:15    Post subject: Reply with quote
Т.е. файлы aaa.xml, 666.xml изначально лежат в в папках "aaa" и "666" соответственно? Правильно? Кроме них ещё что-то в каждом из этих каталогов есть?
Back to top
View user's profile Send private message
Zombie



Joined: 01 Jul 2011
Posts: 16
Post (Separately) Posted: Sat Jul 02, 2011 11:22    Post subject: Reply with quote
да,файлы aaa.xml, 666.xml изначально лежат в в папках "aaa" и "666". все файлы с одним расширением но кол-во файлов в папках разное.
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва
Post (Separately) Posted: Sat Jul 02, 2011 12:15    Post subject: Reply with quote
Code:
' Cоздание подкаталога в папках активной панели
' и перемещение в него одноимённого файла
' Параметры: "%P" <расширение файлов> <имя создаваемой папки>
' Пример: "%P" xml 1
'================================================
With CreateObject("Scripting.FileSystemObject")
On Error Resume Next
  Set FF = .GetFolder(WScript.Arguments(0))
  For Each F In FF.SubFolders
    For Each P In F.Files
      If F.Name = .GetBaseName(P) And _
        .GetExtensionName(P)=WScript.Arguments(1) Then
        .CreateFolder F & "\" & WScript.Arguments(2)
        .MoveFile P, F & "\" & WScript.Arguments(2) & "\"
      End If
    Next
  Next
End With
Wscript.Quit


Last edited by Flasher on Sat Jul 02, 2011 12:32; edited 1 time in total
Back to top
View user's profile Send private message
Zombie



Joined: 01 Jul 2011
Posts: 16
Post (Separately) Posted: Sat Jul 02, 2011 12:30    Post subject: Reply with quote
не работает Sad
запускал через тотал с параметрами "%P" xml 1
пробовал запускать на 1 папке и на нескольких выделенных ничего не произошло.
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва
Post (Separately) Posted: Sat Jul 02, 2011 12:33    Post subject: Reply with quote
Zombie
В каком смысле на "1 папке и на нескольких"?
Back to top
View user's profile Send private message
Zombie



Joined: 01 Jul 2011
Posts: 16
Post (Separately) Posted: Sat Jul 02, 2011 12:34    Post subject: Reply with quote
на одной выделенной и на нескольких выделенных папках в тотале.
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва
Post (Separately) Posted: Sat Jul 02, 2011 12:35    Post subject: Reply with quote
А где в названии скрипта написано про выделение? Выделение тут роли не играет.

Last edited by Flasher on Sat Jul 02, 2011 12:58; edited 2 times in total
Back to top
View user's profile Send private message
Zombie



Joined: 01 Jul 2011
Posts: 16
Post (Separately) Posted: Sat Jul 02, 2011 12:43    Post subject: Reply with quote
Flasher
я в этом мало разбираюсь думал это принципиально Embarassed

для примера

есть папка PFR-700-Y-2010-ORG-000-000-023971 в ней 2 файла: PFR-700-Y-2010-ORG-000-000-023971-DCK-00001-DPT-000000-DCK-00000.XML и PFR-700-Y-2010-ORG-000-000-023971-DCK-01002-DPT-000000-DCK-00000.XML

после работы скрипта должно получиться:
PFR-700-Y-2010-ORG-000-000-023971\1\PFR-700-Y-2010-ORG-000-000-023971-DCK-00001-DPT-000000-DCK-00000.XML
PFR-700-Y-2010-ORG-000-000-023971-DCK-01002-DPT-000000-DCK-00000.XML
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва
Post (Separately) Posted: Sat Jul 02, 2011 12:59    Post subject: Reply with quote
Zombie
Предлагаю по-своему:

Имеем структуру:

- Активная папка\
    - aaa\
      - aaa.txt
      - aaa.xml
      - хрюхрюхрю.bmp
    - 666\
      - 666.flv
      - 666.xml
      - блаблабла.xxx
Находимся в активной папке, жмём кнопку и получается:

- Активная папка\
    - aaa\
      - 1\
        - aaa.xml
      - aaa.txt
      - хрюхрюхрю.bmp
    - 666\
      -1\
        - 666.xml
      - 666.flv
      - блаблабла.xxx


Так? Если да, то всё должно работать.
Back to top
View user's profile Send private message
Zombie



Joined: 01 Jul 2011
Posts: 16
Post (Separately) Posted: Sat Jul 02, 2011 13:05    Post subject: Reply with quote
почти

Имеем структуру:
- aaa\
- aaa.xml
- aaa01.xml
- aaa02.xml
жмём кнопку и должно получиться:
- aaa\
- 1\
- aaa.xml
- aaa01.xml
- aaa02.xml

,но не получается Sad
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва
Post (Separately) Posted: Sat Jul 02, 2011 13:10    Post subject: Reply with quote
Zombie wrote:
- aaa01.xml
- aaa02.xml
Не понял. Это тоже должно переместиться в папку "1"?
Если да, то где было об этом написано? Я не телепат...
Хотя aaa.xml всё равно должен был переместиться. Папки "1" также не создаются?
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    Total Commander Forum Index -> Автоматизация Total Commander All times are GMT + 4 Hours
Goto page 1, 2, 3  Next
Page 1 of 3

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Powered by phpBB © 2001, 2005 phpBB Group