Directory Opus - [1766] :: Программы :: Компьютерный форум Ru.Board

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

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

Компьютерный форум Ru.Board » Компьютеры » Программы » Directory Opus

Модерирует : gyra, Maz
Версия для печати • Подписаться • Добавить в закладки
На первую страницу • к этому сообщению • к последнему сообщению

Tilks

Silver Member

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

Код:

Set objArgs = WScript.Arguments
Set objShell = CreateObject("shell.application")
Set FSO = CreateObject("Scripting.FileSystemObject")
If objArgs.Count>0 Then
For I = 0 to objArgs.Count - 1
'WScript.Echo objArgs(I)
Name = FSO.GetExtensionName(objArgs(I))
If Name = "xml" Or Name = "txt" Or Name = "java" Then
objShell.ShellExecute "C:\\Program Files\\EmEditor\\EmEditor.exe", objArgs(I), 1
End If
Next
Else
objShell.ShellExecute "C:\\Program Files\\EmEditor\\EmEditor.exe"
End If

Всего записей: 2688 | Зарегистр. 14-08-2005 | Отправлено: 13:52 28-08-2014 | Исправлено: Tilks, 14:39 28-08-2014

На первую страницу • к этому сообщению • к последнему сообщению

Компьютерный форум Ru.Board » Компьютеры » Программы » Directory Opus

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

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

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC