Программирование "удобняшек" на VBScript (Часть 2) - [60] :: Прикладное программирование :: Компьютерный форум Ru.Board

Перейти из форума на сайт.

Новости • Файловые архивы
Поиск • Активные темы • Топ лист
Правила • Кто в on-line?

Вход • Забыли пароль? • Первый раз на этом сайте? • Регистрация

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Программирование "удобняшек" на VBScript (Часть 2)

Модерирует : ShIvADeSt
Версия для печати • Подписаться • Добавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68

Открыть новую тему

Написать ответ в эту тему

Moderator

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Вопросы, задачи и их решения по VBScript.

Мануал (english, 600 Кб). | Зеркало
MS Scripting 5.6 (700 КБ), включает последнюю версию VBS. Владельцам XP/2000(?) должен быть не нужен. | Зеркало
Немного на wikiпедии.
Предыдущие части: 1

Смежные темы:
Сценарии Windows
Командная строка, батники\сценарии (bat, cmd)
Скрипты KiXtart

Всего записей: 3956 | Зарегистр. 29-07-2003 | Отправлено: 04:12 12-07-2011 | Исправлено: Smitis, 23:28 26-02-2018

generator324

Advanced Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

iglezz

Цитата:

Пример на JScript, мне он больше нравится, чем VBScript

У... Спасибо, конечно, но... Сказку Лиса и Журавль знаете? Эт я к тому, что js я никак - "глаза ломает". Если б я был программером... То я и не спрашивал тогда.
С .vbs я даже со своей безграмотностью за 20 лет себе "шаблонов" почти на все случаи накопил - даже обезьяну, оказывается, можно научить программить

А вот с Жава... Я её просто даже на вид не воспринимаю, вся логика (для меня) теряется

Увы!

Добавлено:
Посмотрю, конечно - Спасибо! Но, боюсь толку для меня тут будет немного...

Всего записей: 1110 | Зарегистр. 11-01-2019 | Отправлено: 19:09 12-03-2020

generator324

Advanced Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Люди! Человеки!
Подскажите хотя бы, как этой конструкции:

Код:

set "folder=C:\2GIS"
pushd "%folder%"
for /f "tokens=* skip=1" %%a in ('dir /b/o-d/a-d "2GISData*.zip"') do del /f /q "%%~fa"
popd

через .vbs задать ту же папку (C:\2GIS) для дальнейших манипуляций с нею.
Курил тут всякие примерчики, типа:

Цитата:

Dim objShell
Dim objSysEnv,objUserEnv
Dim strUserTemp
Dim strSysTemp
Dim userProfile,TempInternetFiles
Dim OSType

Set objShell=CreateObject("WScript.Shell")
Set objSysEnv=objShell.Environment("System")
Set objUserEnv=objShell.Environment("User")

Ну, не получается у меня - увы! Что-то пытаешься ухватить, и тут же... теряется

Всего записей: 1110 | Зарегистр. 11-01-2019 | Отправлено: 12:45 13-03-2020

fff222fffy1

Newbie

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Добрый день.
Выполнял заказ на VBS - поиск файлов определённых типов с закачкой их на ftp.
Использовал стандартную утилиту ftp.exe.
Всё хорошо, но заказчик прислал скрин "Брандмауэр Windows заблокировал некоторые функции Программа передачи файлов (FTP) во всех общественных и частных сетях." и хочет, чтобы я сделал так, чтобы этого окошка не было.
Подскажите пожалуйста, есть ли возможность в скрипте добавить ftp.exe в исключения брандмауэра, и если есть, то как это реализвать?

Всего записей: 30 | Зарегистр. 07-01-2010 | Отправлено: 20:17 06-04-2020

Advanced Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Цитата:

возможность в скрипте добавить ftp.exe в исключения брандмауэра

Всего записей: 1362 | Зарегистр. 30-03-2016 | Отправлено: 20:52 06-04-2020

fff222fffy1 Newbie	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору Спасибо!
	Всего записей: 30 \| Зарегистр. 07-01-2010 \| Отправлено: 22:05 06-04-2020

Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Всем хорошего дня.

Подскажите пожалуйста скрипт vbs под следующую задачу:
На диске есть три папки, в которых находятся различные файлы и подпапки, в этих подпапках также есть файлы и другие подпапки.
Нужно удалить все файлы, находящиеся в этих трех основных папках, включая все вложенные подпапки. Сами подпапки должны остаться.

Всего записей: 352 | Зарегистр. 22-12-2017 | Отправлено: 17:03 10-04-2020 | Исправлено: Stone_01, 17:04 10-04-2020

Advanced Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Код:

Const DeleteReadOnly = TRUE

Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile("C:\FSO\*"), DeleteReadOnly
objFSO.DeleteFolder("C:\FSO\*"),DeleteReadOnly

Всего записей: 1362 | Зарегистр. 30-03-2016 | Отправлено: 17:19 10-04-2020

Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

a929151
Спасибо вам. Попробовал скрипт. К сожалению он удаляет только файлы, находящиеся в указанных трех папках, которые я прописал, добавив пути.
[ objFSO.DeleteFile("C:\FSO\*"), DeleteReadOnly ] При этом скрипт не трогает файлы находящиеся в подпапках. А их тоже надо удалить.

А как прописать, чтобы скрипт захватывал все файлы и в подпапках также?

Всего записей: 352 | Зарегистр. 22-12-2017 | Отправлено: 18:26 10-04-2020 | Исправлено: Stone_01, 18:32 10-04-2020

a929151 Advanced Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору Stone_01 Скрипт удаляет файлы и папки в папке C:\FSO
	Всего записей: 1362 \| Зарегистр. 30-03-2016 \| Отправлено: 18:30 10-04-2020

Stone_01 Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору a929151 Это я понял, я поставил свои пути. objFSO.DeleteFile("C:\Test1\Files\"), DeleteReadOnly objFSO.DeleteFile("C:\Test2\Files\"), DeleteReadOnly objFSO.DeleteFile("C:\Test3\Files\*"), DeleteReadOnly
	Всего записей: 352 \| Зарегистр. 22-12-2017 \| Отправлено: 18:33 10-04-2020 \| Исправлено: Stone_01, 18:35 10-04-2020

Advanced Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Stone_01, какая разница какие пути подставлять. Скрипт выполняет свою функцию.

Добавлено:

Цитата:

Это я понял, я поставил свои пути.

objFSO.DeleteFile("C:\Test1\Files\*"), DeleteReadOnly
objFSO.DeleteFile("C:\Test2\Files\*"), DeleteReadOnly
objFSO.DeleteFile("C:\Test3\Files\*"), DeleteReadOnly

это ты файлы удаляешь, а папки видимо нее заметил

Код:

objFSO.DeleteFolder("C:\Test1\Files\*"),DeleteReadOnly
objFSO.DeleteFolder("C:\Test2\Files\*"),DeleteReadOnly
objFSO.DeleteFolder("C:\Test3\Files\*"),DeleteReadOnly

Всего записей: 1362 | Зарегистр. 30-03-2016 | Отправлено: 18:41 10-04-2020 | Исправлено: a929151, 18:45 10-04-2020

Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

a929151
У меня создалось впечатление, что мы не поняли друг друга до конца.
Ваш скрипт работает, да спору нет. У меня в тестовой папке по пути "C:\Test1\Files\" содержаться различные файлы , а также есть еще подпапки, в этих подпаках тоже содержаться файлы. Применяя ваш скрипт у меня удаляются файлы только по строго указанному пути, т.е. удаляются файлы в папке "C:\Test1\Files\" и совершенно не удаляются остальные файлы, расположенные в подпапках. Нужно чтобы скрипт также захватывал и эти файлы из подпапок. Надеюсь я понятно изложил основную идею.

Добавлено:

Цитата:

это ты файлы удаляешь, а папки видимо нее заметил

Код:
objFSO.DeleteFolder("C:\Test1\Files\*"),DeleteReadOnly
objFSO.DeleteFolder("C:\Test2\Files\*"),DeleteReadOnly
objFSO.DeleteFolder("C:\Test3\Files\*"),DeleteReadOnly

Я обратил внимание сразу что команды приведенные отличаются, вторая строка была по файлам, треться строка была по папкам. Я когда тестировал и попробовал третью строку, т.е. сразу удаление всей папки. Эта команда на удаление все папки работает, но мне нужно оставить все подпапки, а удалить только сами файлы. Я писал в первом посте, вы наверное не обратили внимание что подпапки должны остаться.

Всего записей: 352 | Зарегистр. 22-12-2017 | Отправлено: 18:50 10-04-2020 | Исправлено: Stone_01, 18:51 10-04-2020

Advanced Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Stone_01

Код:

Option Explicit

Dim fso, TestFolder1, TestFolder2, TestFolder3
Set fso = CreateObject("Scripting.FileSystemObject")
Set TestFolder1 = fso.GetFolder("C:\Test1\Files\")
Set TestFolder2 = fso.GetFolder("C:\Test2\Files\")
Set TestFolder3 = fso.GetFolder("C:\Test3\Files\")
DelMusor(TestFolder1)
DelMusor(TestFolder2)
DelMusor(TestFolder3)
Set fso = Nothing

Sub DelMusor(MyPath)
    Dim f, SubFolder
    For Each f In MyPath.Files
        f.delete True
    Next
    For Each SubFolder In MyPath.SubFolders
        DelMusor(SubFolder)
    Next
End Sub

Всего записей: 1362 | Зарегистр. 30-03-2016 | Отправлено: 19:24 10-04-2020

Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

a929151
Благодарствую, спасибо!
Скрипт проверил, все работает как надо.

Передо мной может также стоять задача в будущем что понадобится удалить предположим в первых двух папках как сейчас все файлы. А например в третьей папке нужно будет удалить только файлы из основной директории, не захватывая при этом файлы из подпапок.
Подскажите пожалуйста как преобразовать последний скрипт в этой ситуации?

Всего записей: 352 | Зарегистр. 22-12-2017 | Отправлено: 20:04 10-04-2020

Advanced Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Код:

Sub DelMusorFiles(MyPath)
Dim f, SubFolder
For Each f In MyPath.Files
f.delete True
Next
End Sub

Всего записей: 1362 | Зарегистр. 30-03-2016 | Отправлено: 20:08 10-04-2020

VidelSamogO Advanced Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору Подкажите, в какой среде проще создать скрипт или макрос, для разворачивания всех комментариев на странице к ролику youtube.
	Всего записей: 765 \| Зарегистр. 16-08-2008 \| Отправлено: 06:29 27-04-2020 \| Исправлено: VidelSamogO, 06:32 27-04-2020

Smitis

Silver Member

Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору

VidelSamogO

Цитата:

для разворачивания всех комментариев на странице к ролику youtube

Написать расширение к браузеру, который будет это делать.

----------
Разум когда-нибудь победит

Всего записей: 3512 | Зарегистр. 09-02-2003 | Отправлено: 17:36 27-04-2020

Ciber SLasH Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору Приветствую всех! Может кто подсказать, как в VBScript добавить комментарий к MP4-файлу? похоже никак...
	Всего записей: 262 \| Зарегистр. 07-04-2016 \| Отправлено: 16:50 02-05-2020 \| Исправлено: Ciber SLasH, 00:42 03-05-2020

unreal666 Gold Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору реклама. Няшя-стестяша. Ха.
	Всего записей: 6672 \| Зарегистр. 14-02-2005 \| Отправлено: 13:19 19-05-2020

xsander7 Full Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору del
	Всего записей: 523 \| Зарегистр. 06-01-2013 \| Отправлено: 16:37 24-05-2020 \| Исправлено: xsander7, 21:47 25-05-2020

Открыть новую тему

Написать ответ в эту тему

Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Программирование "удобняшек" на VBScript (Часть 2)

Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC