[Script] Копирование файлов по списку

[Flasher]

Альваро
А просто поиском (Alt+F7) по маске <НАЧАЛО>*.* воспользоваться нельзя?

[Альваро]

Так счас и делается, но файлов много и такие запросы бывают часто.
P.S.: расширение у всех файлов одинаковое

[Flasher]

Заменить (не проверял):
169 строка:

Код: Выделить всё

  If FSO.FileExists(pF) And StrComp(Left(pF, Len(Top)), Top, 1) = 0 And StrComp(Ext, FSO.GetExtensionName(pF), 1) = 0 Then

209 строка:

Код: Выделить всё

        ElseIf StrComp(Left(lF, Len(Top)), Top, 1) = 0 And StrComp(Ext, FSO.GetExtensionName(lF), 1) = 0  Then

Вставка после 106-й строки:

Код: Выделить всё

    Top = InputBox("Введите начало имён копируемых файлов:", "Фильтрация файлов")
    Ext = InputBox("Введите расширение копируемых файлов:", "Фильтрация файлов")

[Альваро]

Неработает начинает вызывать ошибку за ошибкой, сначала ругается на лишнюю end if, если в 209й поставить пробел между Else if то ругается уже в других подпрограммах.

Добавлено спустя 5 минут:

Зачем инпут бокс, нужно чтобы из файлсписка все выбирало. Думаю расширение файла можно опустить, так как файлы с одинаковым названием но разными расширениями не встретятся, пусть ищет по началу имени например

[mod="Avada"]Чтобы теги нормально обрабатывались, надо включить в профиле BBCode![/mod]

[Flasher]

сначала ругается на лишнюю end if

Не вижу, где она там лишняя.

если в 209й поставить пробел между Else if

А кто сказал, что так можно? Не зная броду, ...

Зачем инпут бокс

Затем что

такие запросы бывают часто

нужно чтобы из файлсписка все выбирало.

Всё - это что? И как "выбирало"?

Думаю расширение файла можно опустить, так как файлы с одинаковым названием но разными расширениями не встретятся

Раз можно опустить, то не надо было писать

расширение у всех файлов одинаковое

Мне какая разница?

И просьба соблюдать грамматические азы. Читать такой текст особого удовольствия не доставляет.
___________________________________________
Вот рабочий вариант:

Код: Выделить всё

MIME-Version: 1.0
Content-Type: application/octet-stream; name="Рекурсивное_копирование.7z"
Content-Transfer-Encoding: base64
Content-Disposition: attachment; filename="Рекурсивное_копирование.7z"

N3q8ryccAAOpoesG4woAAAAAAAByAAAAAAAAAPY5pF3gJLIK210AE49zOwaCmRElQDRbSzl3SKDj
4F2Y71vb25V7EmD7Lh925KiN4pFIgUtKwOAsMXyYIR5N0cbVbxU/aOfGk+SZ+TpDuVIvQueODEFx
CgnfqoY1AnF1vpN5Z+1hx82hynOVIf0WN5QqgNWY/wShTzRdd0WviPJFk4kUjbhBCYOfce15BTCc
8fwek+lOqTWNXBCtW/5oUFBTet+60mTlQVE2RueH86psl9kzkOxdUxl2hXEst0kJpgyA2Wc0Mshx
3dq7OWBVGlAS81qikM9TgFHLBZqIh6TIlvZxrg5s4/uD1iyk0PBewbFwiCOaH8tewcJtT8hePvN1
dA8D8hV2DJoxpKZkF+Gwv1D1UbpLOThysdyY4+9S5EkQSbaXUv0qfFioLxAkfH69UjTY99VOn4GU
Ol7AM9JXl9LCwtKBtEHZi+1ue6eLoYRCmQq0DaqpIjZAQ5CMqsGolUOQU6k4axyZKCis8rb7EEE8
/g9/+bZY+QnFfh9QV4mmw0IG6EmgzJCVyiNH9jEFn8U/0a7cAl8JOipHxYZQqcN7J1ElhjCZwiuV
rObFnrfF8Z/RTlPPmju++JLUoSoqmzLV9h3+cvzAre0qED+LS1uA5wC6HRBfmXUbicRLjffJ57kR
FTvKpjha8nGYiV7tYJX40XgCY8ZszkiWWAkKsUT7TV67d3v8+qHhY8bkAKwRpu1Slb/bIAU9G8GG
mZBbKhCUxpDD6hfS79apbTPQ4UkNF+qmg3KhRZ7jyZSBTafTh7jClwiaSu+LAwU8v7jTnozqfayZ
xKEbZJMCcm+p/Lr6RW4gyGi6uVv6/Ne1K88u/RPMSvS+v+hUp/iBRANayr9ZGj9b9SkM5mYf1MjM
xpzaj7+715g6rGW9aA0eXMAZJbbqEqB3aErcSdzPOvwMVLqzW0IBcrHYxWFoluGAmpk0aIMF9Bx8
Y+86c78J1kHGur9ZKlmVBsNo2UM0BpefY/RVF1t+JoHIw6cFg1c5VzFatcPoqPXHQDFcm8pDu4P+
StLnsqLo34UcTIG0R5gFPZR3fijVeKGKEsfELUeg1A4mqRSAc8/se2+IIds+KzxrYpA0TDoUNGVZ
HLYcSTr0jB6dAxxxRaQ61XYLQ/Sj6U9C3YooB/pz4Bup36E/MuvYg+OLRXkRjYyvf5MtDeRG7JFb
w5/BTuEFB65e6BMmQvg58+Pfr2ggcQGI8ZA5D+6djjRAV6R+piOhcak/OPYg8+dcdnww+G6uCRDH
bADCU9+lTA1t4GyqOKDsjnKpbvdc+UkFwoK4IE8BpF9pKySLO4TWrfIpderdF0tPeFrMeg7xNuTf
BXgqVTFFjL7EaZFmLonLd9lVXpUPjvjXJXKNZ1AOIbCNYTEhCXOXCvBy9tg/vJyZZ4RL/YE8of4y
k5cf4wgqvMvEa8zfS00Q4SEU/Y3ONouoYLYLWShfPl0xBLxGJu5TIiLyUy1pUSmNOZmFcztr/XfK
F7MA9i5NXEc27xRK0dWFUw/IjEjPEi9W4cTTcEsfnlTtGiMqcEFVnrRMD60nUw5bD8apm6HahWHK
onKLjQiu+s+IzPy7OWf1r85HKal5/2pPQhl+6zark0LMEk8qwQyi19jH8PL+RyItsa5Ms5yBBjNP
9peVeie2m8ZZgxOpv7hvkVhojAagdwZ87CXpGcDbu3Rum7eu3ijxd1LTN+Q0Wpt8bvBljh831TmH
vPizpDflgClcXRC9kGQ/waN/E8zDirZebq7vylvEAyzNoVJGAMmhHj3XMMOOQnxqdInUTrYw3Zo0
z7fSrvwsURYaPtymTAHAN7Vb51H/ixy2Heu4g36l6LDxZGpSdly+c0jI7YZaIdYEWLExykoewqOo
wRvLiMmhaTzKcNjZK8gScUsPTf7YuYiv7C9dkvA4+r+epegcE1jai5IfIa6DSM2ksgN9QkFf3Opl
JuDsOOEAj9LALuzgso1+sQE306+YAVaiP+4PobWqlggOJckznHeGMc6Ytze2+Y24K1PZhCEZCG4G
ZzTyYUn5AvtUNXVOB2g6S7liHMZXXCZVd63Dcol7LBnLx9J/hq5OT24OuPUlgsQnEDd8l+KgTNLF
xdM9AobcSQzRYVOxUtEeLPyFsfl76FbljN8pWwo4V+DINttxrY3mFsyWWSVxVSTZGfORDobr/8uV
1m7cz5cb2Ks/N/BuH8nB0Q0p7G5OnZ4PKHK+Odezjo2vMFx5KIGfHf6lh0Yb+sChVPUfo9SpVTVj
Zv1LzU3jaIeCl6C1IiI/qUMiqf7JIstkpoQQnNjmf/09T4K4m6RUBlGXIhRJdbel4oe4Yx/vRRbE
qAgHO8Z4vmzAQjPlo0+2hURxMw8bkJFF2Yq6rY0dX4PqgUkmGVqrNt71tfngHDuw65eve68NDY7H
z2lSHvcVnnRo4HzHUUhs8godmxSpp5mLYyfb+2YSGA3a8r+6mhcnE/SNVdBbONPzCBX5mVJVZ8s8
ZLlo6Yl7sKdcvqkNyOA+MWQ77ysCh5XrVBTIplr7Q0LlVYXu1MrLFCwefnDcI+OOheAWDwn8ll01
NYXkV1HhuzhBlkFnHmrco8nUGNc4QvPhilmPhTFfB1gvEAW8JaiqyLwytbPOrt9gE+VWDryuvKyh
F8J71N0Ve5ht0+O069aNTnqq/DP5sEPrWoixv5k9flTGMVdv82hGzKGxlqh9TTgL6qjisQ6Ug/XL
ET1uMr9zKH83opqluz9NSx9wbza8hE7NcFh3KMt8DKXSwMGpBsPEPp+5zC7VaREebC9AU/AUwhPj
3+F8jq/Ckr82oY0gXx0Jq9QXMqBNqHAzlVjH7pkWM7mfQssalL3GdjH6gB7FAq0KpppJs+68uU1x
UkhZQM+PSvLrAAs1hznYGDuO2VAHhmZAV4CETJi8rusDXaSuqHiX2C+uI6oT9/I6CNv3cTBU3shZ
sTA5GtmKNJY+Ey8twQHaSLp9zfNfe9mLQJ/r3zgBxKLa2rthg9k3IQtuJ87LKFhRtMHrfjqybIw6
76EG4AxVfFdm/a23e8+AzWkMs86A8CzbFw/9lPDi7oauz3fsvztGymhfQrHMCwt5xxTNtcth+0OK
edL+renFwdHxHr80c1nvI6bRNXFnSai4yR3s8P/OLtpC+vg50N0Td4seW4znxA9Zg1wswTnD5jIX
+1R0mAtX6w+Tl50fG4yqeXoilDBE0NUkqkEYOL8wBS40ZQg2w5guOl+g0zsz42N7/+05iWMXEtvP
MNuaAHFsbXwPo8RPA3qGGpttGlqx4QfJzRtTjT9Rzd6q9iKmcW2TOxB2TcuQPLDWLu2JdyGhGfh/
Afx46raJobm3F64MDWbvgpYm6S4oJwVdo+akxihhd4VS4CcWuHzuitIaw7awoawBGcvbKJHvv4ws
q9kOx2KL5X/1bWIDhmm66t2xtmtj+bJA+dmarK0WnaPGaMEu/fbLPo+1NuA4Q9MmkOcEPizbspTq
5teEnxPfh7StLHAkLg0sEtOPLIBNZPqMePtb4Qvbl9IcdErI7/ZW6q9P+8sP6LEz/0zjA/JsmVFE
lrxZkKBfmoS+W09PhtHbAQKy1UnjKWI5QWv4ddQw11h8O9B6Iy8wGtOHNqz880r/wcBisG1aAv5H
nsvkbCeONnCQgL3krq0zEDxFh2FUk0dE/pG4H2eqzvO1+uNytVWBPYJiNPGD5MgLll+2vWaNW+at
2Uzj+1sLRpfItvSAcl90CuF3dBHGX+RHEAABBAYAAQmK4wAHCwEAASEhAQgMpLMACAoBL1M37gAA
BQEROQAgBDUEOgRDBEAEQQQ4BDIEPQQ+BDUEXwA6BD4EPwQ4BEAEPgQyBDAEPQQ4BDUELgB2AGIA
cwAAABQKAQBVNJHZzfbMARUGAQAgAAAAAAA=

[Потай]

Здравствуйте! У меня такая вот проблемка, нужно из структуры вида

C:\folder1\folder2\123\123\1.jpg

получить структуру

C:\folder1\folder2\123\1.jpg

Я хотел первый самый скрипт как-нибудь использовать, но не знаю как

[Flasher]

Потай
Первый скрипт не поможет. И вообще это неподходящая тема. Тут про копирование. Есть несколько скриптов перемещения на уровень вверх, но не уверен, что они подойдут. Поэтому задачу надо описывать более подробно (здесь, здесь или лучше в новой теме). Если бы задача была только в том виде, что представлена, то она элементарно решалась бы штатными средствами ТС (выделить всё и переместить в родительскую папку). А если этих 123 много и они все разные, то об этом и надо писать заранее, указав на несколько примеров.

[Matras]

Добрый день, нашел ваш скрипт, пытался скопировать, но почему то ошибки возникают с путями типа вот таких "C:\data\zashita_porogi\Ford\F-150\2009-\7.jpg", пишет что там нет такого файла, а он там 100 % есть. из 234 файлов он 30 упускает, потом когда отдельно вставляешь пути к ним он находит, из з этого вопрос можно ли как то это исправить если нет, то хотя бы лог формировать с путями, которые небыли внесены, что бы их повторно вставлять.

[Flasher]

Matras
Памятка была прочитана? См. первый пункт при ошибках.

[Matras]

Flasher
Я не могу найти эту памятку по ошибкам, вы имеете ввиду именно для этого скрипта есть?

[Avada]

Matras
Для всех скриптов есть. Памятка прикреплена в данном подфоруме с обозначением, что обязательна к прочтению. Открываем содержание подфорума и смотрим.

[Matras]

TC версии 7,56а, win 7 64
Вот скрин ошибки, как быть с одинаковыми названиями?
Параметры: "d:\wamp\www\Работы Tuningdom\Работы\Читсим FTP\new.txt" "%T"

[mod="Avada"]Ссылка приведена в норму, ненужные подробности о регистрации TC убраны.[/mod]

[Batya]

как быть с одинаковыми названиями?

Это ты должен сам решить, чего ты хочешь.

[wizard_vrn]

Помогите плиз! Прочитал первые посты скачал срипт от Batyaустановился но файлы не ищет

Задача:
Есть около 20 000 файлов все примерно такого типа имеют имена Data_From_to_XXXXXXXXX, где ХХХХХХХХ номера телефонов.
Расширение у файлов разное.

Нужно чтобы скрипт/плагин нашел файлы с номерами телефонов указанный в отдельном файле например file.txt
В файле только сами номера телефонов.

Спасибо оч надеюсь на помощь

[Flasher]

wizard_vrn >

И вообще это неподходящая тема. Тут про копирование.

1, 2,...