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

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в 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

Открыть новую тему     Написать ответ в эту тему

ShIvADeSt



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 лет себе "шаблонов" почти на все случаи накопил - даже обезьяну, оказывается, можно научить программить
А вот с Жава... Я её просто даже на вид не воспринимаю, вся логика (для меня) теряется Увы!
 
Добавлено:
Посмотрю, конечно - Спасибо! Но, боюсь толку для меня тут будет немного...

Всего записей: 1084 | Зарегистр. 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")  

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

Всего записей: 1084 | Зарегистр. 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
a929151



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

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


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

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

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



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

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



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

Код:
Const DeleteReadOnly = TRUE
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile("C:\FSO\*"), DeleteReadOnly
objFSO.DeleteFolder("C:\FSO\*"),DeleteReadOnly

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



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

Всего записей: 1359 | Зарегистр. 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
a929151



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


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



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
a929151



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

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



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
a929151
Благодарствую, спасибо!
Скрипт проверил, все работает как надо.
 
Передо мной может также стоять задача в будущем что понадобится удалить предположим в первых двух папках как сейчас все файлы. А например в третьей папке нужно будет удалить только файлы из основной директории, не захватывая при этом файлы  из подпапок.  
Подскажите пожалуйста как преобразовать последний скрипт в этой ситуации?
 

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



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


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

Всего записей: 1359 | Зарегистр. 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

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

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

Всего записей: 3179 | Зарегистр. 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
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
реклама. Няшя-стестяша.
Ха.

Всего записей: 6637 | Зарегистр. 14-02-2005 | Отправлено: 13:19 19-05-2020
xsander7



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

Всего записей: 496 | Зарегистр. 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

Компьютерный форум 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

Рейтинг.ru