Как открыть программу через vbs

Есть три способа создания пустого текстового файла (иногда называемого как «text stream»).

Первый способ — это использование метода CreateTextFile. В следующем примере показано, как создать текстовый файл, используя этот метод:

Dim fso, f1 Set fso = CreateObject(«Scripting.FileSystemObject») Set f1 = fso.CreateTextFile(«c:testfile.txt», True)
Пример использования данного метода см. в разделе «3.7. Пример работы с объектом FileSystemObject».

Второй способ — это использование метода OpenTextFile объекта FileSystemObject с набором флагов ForWriting. В следующем примере показано, как создать текстовый файл, используя этот метод:

Dim fso, ts Const ForWriting = 2 Set fso = CreateObject(«Scripting. FileSystemObject») Set ts = fso.OpenTextFile(«c:test.txt», ForWriting, True)

Третий способ — это использование метода OpenAsTextStream с набором флагов ForWriting. В следующем примере показано, как создать текстовый файл, используя этот метод:

Крутые файлы BAT и VBS


Dim fso, f1, ts Const ForWriting = 2 Set fso = CreateObject(«Scripting.FileSystemObject») fso.CreateTextFile («c:test1.txt») Set f1 = fso.GetFile(«c:test1.txt») Set ts = f1.OpenAsTextStream(ForWriting, True)

Добавление данных в файл

  • Открыть текстовый файл
  • Записать данные
  • Закрыть файл

Для записи данных в текстовый файл используйте методы Write, WriteLine или WriteBlankLines объекта TextStream, в зависимости от задач, описанных в приведённой ниже таблице:

Задача Метод
Запись данных в текстовый файл без символа перехода на новую строку в конце Write
Запись данных в текстовый файл с символом перехода на новую строку в конце WriteLine
Запись одной или более пустых строк в открытый текстовый файл WriteBlankLines

Для закрытия текстового файла используйте метод Close объекта TextStream. Закрыть файл можно также методом Close объекта FileSystemObject. Пример использования данных методов см. в разделе «3.7. Пример работы с объектом FileSystemObject».

Читайте также:
Ошибка python не является внутренней или внешней командой исполняемой программой или пакетным файлом

ПРИМЕЧАНИЕ
Символ новой строки содержит символ или символы (зависит от операционной системы) для перевода курсора в начало новой строки (возврат каретки/перевод строки). Следует учитывать, что некоторые строки уже могут иметь в конце эти непечатаемые символы.

В следующем примере показано, как выполняется запись данных в открытый файл всеми тремя методами, затем файл закрывается:

Sub CreateFile() Dim fso, tf Set fso = CreateObject(«Scripting.FileSystemObject») Set tf = fso.CreateTextFile(«c:testwritefile.txt», True) ‘ Записать строку с переводом на новую строку. tf.WriteLine(«Тестирование 1, 2, 3.») ‘ Записать три пустых строки в файл. tf.WriteBlankLines(3) ‘ Записать строку tf.Write («Это тест») tf.Close End Sub

Чтение файлов

Для чтения данных из файла используйте методы Read, ReadLine или ReadAll объекта TextStream. Эти методы и задачи, решаемые с их помощью, описаны в приведённой ниже таблице:

интересные vbs скрипты

Задача Метод
Чтение указанного количества символов из файла Read
Чтение полной строки из файла (до символа конца строки, но не включая его) ReadLine
Чтение всего содержимого файла ReadAll

Пример использования данных методов см. в разделе «3.7. Пример работы с объектом FileSystemObject».

Если вы используете методы Read или ReadLine и хотите пропустить определённую часть данных, то используйте методы Scip или ScipLine. Полученный в результате работы этих методов текст может быть сохранён в строку, которую можно отобразить на экране в элементе управления, передать в качестве параметра в строковую функцию (например, в Left, Right или Mid), соединить с другой строкой и т.п.

В следующем примере показано, как открыть файл, записать в него данные, а затем прочитать их:

Sub ReadFiles Dim fso, f1, ts, s Const ForReading = 1 Set fso = CreateObject(«Scripting.FileSystemObject») Set f1 = fso.CreateTextFile(«c:testreadfile.txt», True) ‘ Записать строку f1.WriteLine «Hello World» f1.WriteBlankLines(1) f1.Close ‘ Прочитать содержимое файла Set ts = fso.OpenTextFile(«c:testreadfile.txt», ForReading) s = ts.ReadLine MsgBox «Содержимое файла = ‘» «‘» ts.Close End Sub

Читайте также:
Простая программа для записи звука с компьютера

Перемещение, копирование и удаление файлов

Объектная модель FSO имеет для каждой из операций перемещения, копирования или удаления файлов по два метода. Эти методы и задачи, решаемые с их помощью, описаны в приведённой ниже таблице:

Задача Метод
Перемещение файла File.Move или FileSystemObject.MoveFile
Копирование файла File.Copy или FileSystemObject.CopyFile
Удаление файла File.Delete или FileSystemObject.DeleteFile

Пример использования данных методов см. в разделе «3.7. Пример работы с объектом FileSystemObject».

В следующем примере создаётся текстовый файл в корневом каталоге диска С, записывается в него некоторая информация. Затем файл перемещается в директорию с именем tmp, копируется в директорию temp, а затем удаляются копии из обеих директорий.

Для проверки работы этого примера создайте в корневом каталоге диска С директории tmp и temp.

Sub ManipFiles Dim fso, f1, f2, s Set fso = CreateObject(«Scripting.FileSystemObject») Set f1 = fso.CreateTextFile(«c:testfile.txt», True) ‘ Записать строку f1.Write («This is a test.») ‘ Закрыть файл для записи f1.Close ‘ Получиь дескриптор файла в корневом каталоге C:. Set f2 = fso.GetFile(«c:testfile.txt») ‘ Переместить файл в каталог tmp f2.Move («c:tmptestfile.txt») ‘ Копировать файл в каталог temp. f2.Copy («c:temptestfile.txt») ‘ Получить дескрипторы файлов Set f2 = fso.GetFile(«c:tmptestfile.txt») Set f3 = fso.GetFile(«c:temptestfile.txt») ‘ Удалить файлы f2.Delete f3.Delete MsgBox «Все операции выполнены!» End Sub

Источник: av-mag.ru

Существует ли метод или объект, который может открыть файл (в моем случае .пдф), который храниться на диске?
Тоесть из скрипта мне надо вызвать установленную программу(pdf reader, ms word, что угодно) и скормить ей файл из скрипта jscript, хотя можно и vbscript, а потом подключить.

2 Ответ от -TOXA- 2013-05-13 17:23:49

Хм, может я что-то не понял, но нужно просто открыть файл?
Если да, то самый простой способ:

Читайте также:
Лучшая программа для построения диаграмм

Set Open = CreateObject(«WScript.Shell») Open.Run «Путь_к_файлу»
Set Open = CreateObject(«WScript.Shell») Open.Run «Путь_к_программе Путь_к_файлу»

Если ошибка, то попробуй взять пути в кавычках, то есть получиться типа этого:

Open.Run «»»Путь_к_программе»» «»Путь_к_файлу»»»

Источник: forum.script-coding.com

Как открыть программу через vbs

Выпуск #01

«Vbs, whs, js скрипты для администратора»

22 июля 2008

Как можно запустить скрипт?

Расмотрим процесс запуска самого простого скрипта (сценария). Для этого нужно на рабочем диске выделить место для хранения скриптов, пусть это будет диск c: и папка Script. Выполняются скрипты с помощью серверов сценариев, которые переводят команды текста в исполняемый код.

Интерпретаторы в Windows представлены двумя файлами: wscript.exe и cscript.exe. Оба позволяют работать с VBScript и JScript и применять все возможности административных скриптов. Отличия:

— wscript — средство, ориентированное на работу с графическим интерфейсом, вывод — через графические окна сообщений;

— cscript — ориентировано на командную строку, вывод — на консоль.

Отличия можно увидеть наглядно на примерах выполнения команды. Создадим самый простой скрипт.

Создаем файл vbs.

Вызовите проводник (чтобы открыть проводник, нажмите кнопку Пуск и выберите команды Программы, Стандартные и Проводник ), зайдите в пункт меню «СервисСвойства папки» и убедитесь, что у вас отключена галочка.

Выбираем диск c:, каталог Script и вставляем текстовый файл и переименувываем его в hello.vbs.

В сам файл внесем текст:

Рейтинг
( Пока оценок нет )
Загрузка ...
EFT-Soft.ru