Копирование "пустой" структуры каталогов с файлами

Копирование "пустой" структуры каталогов с файлами
Q: Бывает нужно скопировать каталог вместе с вложенными в него каталогами и файлами, но так, чтобы вместо файлов копировались "пустышки", с соответствующими им именами.
A: Тебе поможет следующий скрипт:
'=====================================================================
' Создание структуры каталогов и файлов нулевого размера в них

' В параметрах вызова из TC должно быть прописано:
' %L "%T"
'=====================================================================

Option Explicit
Dim FSO, WSH, OTF, Target, NewTar
Dim Selected
Set FSO = CreateObject("Scripting.FileSystemObject")
Set WSH = CreateObject("WScript.Shell")
Set OTF = FSO.OpenTextFile(WScript.Arguments(0), 1)
Target = WScript.Arguments(1)

Do While Not OTF.AtEndOfStream
Selected = OTF.ReadLine
If FSO.FileExists(Selected) Then
WSH.Run "fsutil file createnew """ & Target & FSO.GetFile(Selected).Name & """ 0", 7, True
End If
If FSO.FolderExists(Selected) Then
NewTar = Target & FSO.GetFolder(Selected).Name
If Not FSO.FolderExists(NewTar) Then
FSO.CreateFolder(NewTar)
End If
FolderProcess FSO.GetFolder(Selected), NewTar & "\"
End If
Loop
'MsgBox("Выполнено!")
Set OTF = Nothing
Set FSO = Nothing
Set WSH = Nothing
WScript.Quit()

Function FolderProcess(Fold, Tar)
Dim sf, f, NewF
For Each sf in Fold.SubFolders
NewF = Tar & sf.Name
If Not FSO.FolderExists(NewF) Then
FSO.CreateFolder(NewF)
End If
FolderProcess sf, NewF & "\"
Next
For Each f in Fold.Files
WSH.Run "fsutil file createnew """ & Tar & FSO.GetFile(f).Name & """ 0", 7, True
Next
End Function


Сохрани код в файл с расширением vbs. Повесь файл на кнопку. В параметрах кнопки укажи: %L "%T".
Соответственно, выделяешь файлы и папки и нажимаешь кнопку. На противоположной панели будет создана структура каталогов с файлами нулевого размера. А затем ты можешь с ними делать что угодно. Например, запаковать в любой архив.


http://www.tckb.ru/index.php?title=%D0%9A%D0%BE%D0%BF%D0%B8%D1%80%D0%BE%D0%B2%D0%B0%D0%BD%D0%B8%D0%B5_%22%D0%BF%D1%83%D1%81%D1%82%D0%BE%D0%B9%22_%D1%81%D1%82%D1%80%D1%83%D0%BA%D1%82%D1%83%D1%80%D1%8B_%D0%BA%D0%B0%D1%82%D0%B0%D0%BB%D0%BE%D0%B3%D0%BE%D0%B2_%D1%81_%D1%84%D0%B0%D0%B9%D0%BB%D0%B0%D0%BC%D0%B8

моя Украина

хотин
http://www.photoclub.com.ua/photo/204360/
http://www.photoclub.com.ua/photo/204357/

почаївська лавра
http://www.photoclub.com.ua/photo/198317/

Теренс Хилл, Бад Спенсер

http://torrents.ru/forum/viewtopic.php?t=163079 Сплошные неприятности

http://torrents.ru/forum/viewtopic.php?t=342202 Найдёшь друга - найдёшь сокровище

http://torrents.ru/forum/viewtopic.php?t=226603 Всегда готовы

http://torrents.ru/forum/viewtopic.php?t=614627 Фильмография совместного творчества Теренса Хилла и Бада Спенсера

Их СОВМЕСТНЫЕ фильмы, доступные на Torrents.ru на русском:
1967 - Dio perdona... io no! - God Forgives... I Don't - Бог простит, я нет Вестерн
http://torrents.ru/forum/viewtopic.php?t=119490
1968 - I quattro dell'Ave Maria - Ace High - Козырной туз /Четыре туза Вестерн
http://torrents.ru/forum/viewtopic.php?t=261293
1969 - La collina degli stivali - Boot Hill - Гора сапог Вестерн
http://torrents.ru/forum/viewtopic.php?t=111417
1970 - Lo chiamavano Trinità... - They Call Me Trinity - Меня зовут Троица Вестерн
http://torrents.ru/forum/viewtopic.php?t=123258
1971 - ...Continuavano a chiamarlo Trinità - Trinity Is Still My Name - Меня по-прежнему зовут Троица Вестерн
http://torrents.ru/forum/viewtopic.php?t=76611
1974 - ...Altrimenti ci arrabbiamo! - Watch Out, We're Mad - Иначе мы рассердимся НОВЫЙ http://torrents.ru/forum/viewtopic.php?t=369579
1977 - I due superpiedi quasi piatti - Crime Busters - Борцы с преступностью (Перевод 1 канала!)!!!
http://torrents.ru/forum/viewtopic.php?t=538871
1978 - Pari e dispari - Odds and Evens - Орёл или Решка / Чёт или нечет
http://torrents.ru/forum/viewtopic.php?t=260141
1979 - Io sto con gli ippopotami - I'm For the Hippopotamus - Я - за гиппопотамов! НОВЫЙ!
http://torrents.ru/forum/viewtopic.php?t=499421
1981 - Chi trova un amico trova un tesoro - Who Finds a Friend Finds a Treasure - Найдёшь друга - найдёшь сокровище
http://torrents.ru/forum/viewtopic.php?t=342202
1983 - Nati con la camicia - Go for It - Всегда готовы
http://torrents.ru/forum/viewtopic.php?t=226603
1984 - Non c'è due senza quattro - Double Trouble - Сплошные неприятности
http://torrents.ru/forum/viewtopic.php?t=163079
1994 - Botte di Natale - Trouble Makers - Любители неприятностей / Рождественская заварушка
http://torrents.ru/forum/viewtopic.php?t=118937


1967 - Dio perdona... io no! - God Forgives... I Don't - Бог простит, я нет Вестерн
http://torrents.ru/forum/viewtopic.php?t=119490
1968 - I quattro dell'Ave Maria - Ace High - Козырной туз /Четыре туза Вестерн
http://torrents.ru/forum/viewtopic.php?t=261293
1969 - La collina degli stivali - Boot Hill - Гора сапог Вестерн
http://torrents.ru/forum/viewtopic.php?t=111417
1970 - Lo chiamavano Trinità... - They Call Me Trinity - Меня зовут Троица Вестерн
http://torrents.ru/forum/viewtopic.php?t=123258
1971 - ...Continuavano a chiamarlo Trinità - Trinity Is Still My Name - Меня по-прежнему зовут Троица Вестерн
http://torrents.ru/forum/viewtopic.php?t=76611
1977 - I due superpiedi quasi piatti - Crime Busters - Борцы с преступностью
http://torrents.ru/forum/viewtopic.php?t=205214
1978 - Pari e dispari - Odds and Evens - Орёл или Решка / Чёт или нечет
http://torrents.ru/forum/viewtopic.php?t=260141
1981 - Chi trova un amico trova un tesoro - Who Finds a Friend Finds a Treasure - Найдёшь друга - найдёшь сокровище
Будет DVD Rip!
1983 - Nati con la camicia - Go for It - Всегда готовы
http://torrents.ru/forum/viewtopic.php?t=226603
1984 - Non c'è due senza quattro - Double Trouble - Сплошные неприятности
http://torrents.ru/forum/viewtopic.php?t=163079
1994 - Botte di Natale - Trouble Makers - Любители неприятностей / Рождественская заварушка
http://torrents.ru/forum/viewtopic.php?t=118937

Русское сообщество любителей музыки New Age...

http://community.livejournal.com/ru_newage/tag/download

Музыка nnm

http://neoclassical.nnm.ru/~allnews Нео-классика
http://relax-muzic.nnm.ru/arhiv_novostej_doka_relx_muzic Rel@x MuZic (Part 1)
http://relax-muzic.nnm.ru/arhiv_novostej_doka_relx_muzic_part_2 Rel@x MuZic (Part 2)

Delerium - похожие группы

Delerium:

Kirsty Hawkshaw
Poloroid
The engine room
Motorcycle
DT8 Project
Fragma
Sleepthief
Balligomingo
Achillea

Фильмы uTorrent

http://nnm-club.ru
http://torrents.ru

http://nnm-club.ru/forum/viewtopic.php?t=59589 Джек Восьмёркин- "американец"/(1986) DVDRip
http://nnm-club.ru/forum/viewtopic.php?t=10905 Курьер (1986) DVDRip
http://nnm-club.ru/forum/viewtopic.php?t=9786 Миллион в брачной корзине (1985) DVDRip
http://nnm-club.ru/forum/viewtopic.php?t=21999 Три истории Киры Муратовой(1997г.)
http://nnm-club.ru/forum/viewtopic.php?t=50374 Тридцать три/33 (1965 СССР) DVDRip
http://nnm-club.ru/forum/viewtopic.php?t=53500 Небо. Самолет. Девушка. (2002) DVDRip
http://nnm-club.ru/forum/viewtopic.php?t=26679 Усатый нянь (1977) DVDRip
http://nnm-club.ru/forum/viewtopic.php?t=47369 Последний дюйм (1958) TVRip
http://nnm-club.ru/forum/viewtopic.php?t=63680 Али-Баба и сорок разбойников (1983) TVRip
http://nnm-club.ru/forum/viewtopic.php?t=33663 Через тернии к звездам. Новая версия (редакция 2001 года)
http://torrents.ru/forum/viewtopic.php?t=259929 Через тернии к звездам
http://nnm-club.ru/forum/viewtopic.php?t=27589 Трест который лопнул (1982) TVRip

http://pdafilms.org.ua/films/triler/128-den-mertvecov-day-of-the-dead-2008.html День мертвецов
http://pdafilms.org.ua/films/dram/127-pravda-i-nichego-krome-full-of-it-2007.html Правда и ничего кроме
http://pdafilms.org.ua/films/triler/99-vampirsha-rise-blood-hunter-2007.html Вампирша
http://pdafilms.org.ua/films/dram/85-vozdukh-kotorym-ja-dyshu-the-air-i.html Воздух, которым я дышу
http://pdafilms.org.ua/films/dram/72-marsianskoe-ditja-martian-child-2007.html Марсианское дитя
http://pdafilms.org.ua/films/comedy/71-zhenjus-na-pervojj-vstrechnojj-wedding.html Женюсь на первой встречной
http://pdafilms.org.ua/films/comedy/30-karmannaja-devushka-tozhe-dovolno-kruto.html Карманная девушка тоже довольно круто

Каталог мультфильмов

http://mults.spb.ru

Soundtracks 2

http://mp3forum.com.ua/showtopic49712st15.html Дневник Бриджет Джонс
http://oldpesenki.narod.ru/raznoe/raznoe.html Песни из советских кинофильмов