|
|
| Другие темы раздела | |||||||||||||||||||||||
| VBScript/JScript Сканирование в PDF и на прямую в принтер Возможно ли "изобразить" VBScript для сканирования в формат PDF и(или) на прямую в принтер? Цель - "зарядить " кнопки на панели сканера. По возможности примерный текст скрипта. P.S. Платные программы сканирования не предлагать :-), я про них знаю... https://www.cyberforum.ru/ vbscript-wsh/ thread1125650.html |
VBScript/JScript Удаление символа в txt файле Cам от программирования далек, но чувствую, что придется вникать %) Искал в интернетах, но так ничего похожего и не нашел, а задача вроде проще некуда: Необходим скрипт для удаления определенного символа в тексте, в txt - файле. Детально: 1) Скрипт находит в txt-файле строки, содержащие "Сумма=" 2) Если после "=" есть символ "-", то удаляет его | ||||||||||||||||||||||
|
VBScript/JScript Скрипт, который находит суммарный размер всех файлов указанного типа в указанной папке. Вывод осуществляется на экран монитора (в окно вывода)
https://www.cyberforum.ru/ vbscript-wsh/ thread1123759.html Скрипт, который находит суммарный размер всех файлов указанного типа в указанной папке. Вывод осуществляется на экран монитора (в окно вывода). |
VBScript/JScript Обнаружение кол-во файлов указываемого типа в указаной директории
https://www.cyberforum.ru/ vbscript-wsh/ thread1123719.html Можно ли составить скрипт, который будет находить кол-во файлов указанного нами типа в указанной нами папке. Так что бы вывод потом выводился на экран (в окно вывода)? Добавлено через 19 минут Я знаю как получить список файлов и их размеров в заданной папке но как его преобразить не понимаю msgbox( ShowFileList("c:\pub$") ) Function ShowFileList(folderspec) Dim fso, f, f1, fc, s Set... | ||||||||||||||||||||||
|
Почему не идёт запись в файл VBScript/JScript Написан скрипт на VBScript не записывает в отдельный лог файл Option Explicit MsgBox "Удаление объектов с расширением pdf " Dim fso, RefFolder, N, a N = CInt(InputBox("Введите 1 если надо удалить jpg и 2 если надо удалить все файлы")) MsgBox ("Вы ввели:" & N) a = MsgBox ("Удалить файл",68, "Windiws") Set fso = CreateObject("Scripting.FileSystemObject") |
VBScript/JScript В VBScript Не срабатывает фокус окна Java приложения
https://www.cyberforum.ru/ vbscript-wsh/ thread1121715.html День добрый! Set WshShell = WScript.CreateObject("WScript.Shell") WshShell.Run("javaw.exe") Процесс "javaw.exe" запущен и свернут. Выставляю любой другой свернутый процесс: "Skype.exe", "notepad++.exe" - все срабатывает нормально. Подскажите, пожалуйста, есть какая-то особенность с Java-приложениями? Заранее спасибо! | ||||||||||||||||||||||
|
VBScript/JScript Информация о доступности серверов (пинг)
https://www.cyberforum.ru/ vbscript-wsh/ thread1117967.html Всем привет. Есть скрипт который выводит на html странице информацию о доступности серверов (пинг). <%@ language="VBScript" %> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"> <html> <head> <title>Ping</title> |
VBScript/JScript Создание файла со списком папок в указанном месте ребята помогите) задание такое: Создание файла со списком папок в указанном месте. вот код документа .vbs Dim s,FSO,txtfile,FName,f,t,G do WScript.StdOut.WriteLine "МЕНЮ" WScript.StdOut.WriteLine ".........." WScript.StdOut.WriteLine "1. Информация об авторе" WScript.StdOut.WriteLine "2. Создание файла со списком папок в указанном месте" WScript.StdOut.WriteLine "3. Открытие... | ||||||||||||||||||||||
|
VBScript/JScript Принятие аргументов vbs
https://www.cyberforum.ru/ vbscript-wsh/ thread1115491.html Имеется код: Set oShell = WScript.CreateObject("WScript.Shell") Dim x oShell.Run "telnet.exe" & x WScript.Sleep 1000 oShell.SendKeys "login" & chr(13) WScript.Sleep 1000 oShell.SendKeys "password" & chr(13) |
VBScript/JScript "Перехват" выбранной папки
https://www.cyberforum.ru/ vbscript-wsh/ thread1112287.html Здравствуйте. Помогите разобраться: Пользователь задает путь к папке (возможно сетевой). Проверить ее наличие. On Error Resume Next Set objShellApp = CreateObject("Shell.Application") Set objFolder = objShellApp.BrowseForFolder(0, "Выбор папки", 0, "MY_COMPUTER") MsgBox objFolder.Self.Path, vbInformation If Err.Number <> 0 Then MsgBox "Папка не выбрана!", vbInformation End If | ||||||||||||||||||||||
|
VBScript/JScript VBS: Выполнение скрипта, только по окончании процесса копирования в скрипте запускается копирование файла, и необходимо продолжать выполнение скрипта, только по окончании процесса копирования. пропустим вводные данные вкратце так: If NOT (FSO.FolderExists("C:\бла бла бла")) Then MsgBox("Сейчас начнется копирование, не откл. от сети не закрывайте всплывающие окна") |
VBScript/JScript Работоспособность скрипта
День добрый.С первым днем весны.
Наверх
| ||||||||||||||||||||||
