Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Запуск программ и текстовых файлов Добавлено: 13.05.03 23:56  

Автор вопроса:  Anthony

Как запускать программы и текстовые файлы из VB6.0?

Ответить

  Ответы Всего ответов: 2  

Номер ответа: 1
Автор ответа:
 Padre



ICQ: 346632205 

Вопросов: 25
Ответов: 215
  Web-сайт: localhost
 Профиль | | #1 		Добавлено: 14.05.03 00:35

Запуск программы: shell("path to the program")

Открытие текстового файла средствами ВБ:

open file.txt for input as #1

do while not eof(1)

line input #1, str1

'каждый оборот цикла будет считывать в str1 новую строку

loop

close #1

Ответить

Номер ответа: 2
Автор ответа:
 Justas



ICQ: 259418212 

Вопросов: 24
Ответов: 325
  Web-сайт: justas.newmail.ru
 Профиль | | #2 		Добавлено: 14.05.03 00:48

Может ты это имел ввиду?

(запускает всё подряд)

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Const SW_SHOWNORMAL = 1

Private Sub Command1_Click()
ShellExecute Me.hwnd, vbNullString, "полный путь к файлу", vbNullString, "C:\", SW_SHOWNORMAL
End Sub

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам