Конференция VBStreets

**Sergic** » 22.04.2004 (Чт) 20:21

Привет,всем!
Подскажите как открыть файл txt в VB 6.0. То есть какой нужен код.
Чтобы нажав на кнопку файл открылся.

**Amed** » 23.04.2004 (Пт) 2:45

Поточнее: как открыть файл? В окне Блокнота или для чтения в программе?
а)
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 Form_Load()
ShellExecute Me.hwnd, vbNullString, "C:\file.txt", vbNullString, "C:\", SW_SHOWNORMAL
End Sub

б)
'открытие файла и считывание одной строки
Open "C:\file.txt" for input as #1
Line Input #1, tmp
Close #1

**Sergic** » 23.04.2004 (Пт) 13:06

Надо ткрыть в окне блокнота.

**mefestofele** » 23.04.2004 (Пт) 19:24

Привет чувак
:twisted:

А зачем тебе конкретно в блокноте?
:twisted:

А вообще в новеке (шк№53) есть курсы по програмированию
:twisted:

1курс-VB6

2курс-FOX-Pro
:twisted:

3курс-С/С++
:twisted:

Я и сам там учусь, и тебе советую.

**Amed** » 24.04.2004 (Сб) 3:28

Ну, вот как раз код а) работает отлично...

**Sergic** » 24.04.2004 (Сб) 10:29

Спасибо всем за ответ!

**alibek** » 24.04.2004 (Сб) 11:43

mefestofele, хочешь я побуду гадалкой? Если не исправишься, тебя выгонят с форума.

**mefestofele** » 25.04.2004 (Вс) 20:22

Excuse me.
:oops:

Уже исправился.
:oops:

А что выкидывали???

**Amed** » 25.04.2004 (Вс) 20:45

Да, бывали такие случаи...

Конференция VBStreets

Как открыть файл txt в VB 6.0?

Как открыть файл txt в VB 6.0?

Кто сейчас на конференции