| Вопрос: Открыть файл C:\123.txt | Добавлено: 30.03.06 09:42 |
Автор вопроса:  Seregahome
|
| Как сделать так? чтоб при нажатии на кнопку открывался файл C:\123.txt? |
| Ответы | Всего ответов: 14 |
|
Номер ответа: 1 Автор ответа:  zulus Вопросов: 2 Ответов: 23 |
Профиль | | #1 | Добавлено: 30.03.06 10:10 |
| http://vbnet.ru/samples/download.aspx?id=726 | ||
|
Номер ответа: 2 Автор ответа: [root] Вопросов: 45 Ответов: 1212 |
Web-сайт: Профиль | | #2 | Добавлено: 30.03.06 11:38 |
|
Option Explicit
Private Sub Command1_Click() Dim Str As String Dim FileNum As Byte FileNum = FreeFile 'Не забудьте создать файл в папке с примером 'Иначе он будет создан программой, но будет пустой 'И результата вы не увидете Open "C:\123.txt" For Binary As FileNum Str = Space(LOF(1)) Get #FileNum, , Str Text1 = Text1 & Str Close #FileNum End Sub |
||
|
Номер ответа: 3 Автор ответа: [root]Вопросов: 45 Ответов: 1212 |
Web-сайт: Профиль | | #3 | Добавлено: 30.03.06 11:49 |
ГЫ коменты забыл убрать 
|
||
|
Номер ответа: 4 Автор ответа: SeregahomeВопросов: 39 Ответов: 24 |
Профиль | | #4 | Добавлено: 30.03.06 18:06 |
| Огромное блин спасибо, четно. Но я видимо неправильно выразился. Мне надо просто открыть 123.txt, т.е. в блокноте. Нажимаеш на кнопочку и открывается блокнот с текстом. Думаю для Вас - это просто. | ||
|
Номер ответа: 5 Автор ответа: LeX ICQ: 301424893 Вопросов: 28 Ответов: 277 |
Web-сайт: Профиль | | #5 | Добавлено: 30.03.06 18:11 |
| А блокнот Windows'овский или твой? | ||
|
Номер ответа: 6 Автор ответа: LeXICQ: 301424893 Вопросов: 28 Ответов: 277 |
Web-сайт: Профиль | | #6 | Добавлено: 30.03.06 20:08 |
|
Под Windos NT:
Shell "cmd /X /C start c:\mydoc\example.doc" =--------------------------------------------------- Под Windos 9x: ----------------------------------------------------- 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 Private Sub Command1_Click() ShellExecute 0, vbNullString, "C:\" & sFile, vbNullString, vbNullString, vbNormalFocus End Sub |
||
|
Номер ответа: 7 Автор ответа: SeregahomeВопросов: 39 Ответов: 24 |
Профиль | | #7 | Добавлено: 30.03.06 21:46 |
| Спасибо LeX'у огромное! Очень рад отзывчивости форумчан. | ||
|
Номер ответа: 8 Автор ответа: NjICQ: 223663115 Вопросов: 21 Ответов: 285 |
Профиль | | #8 | Добавлено: 30.03.06 21:48 |
|
Самое легкое - строка
Shell "notepad.exe C:\123.txt" |
||
|
Номер ответа: 9 Автор ответа: NjICQ: 223663115 Вопросов: 21 Ответов: 285 |
Профиль | | #9 | Добавлено: 30.03.06 23:18 |
|
2 [root]
Dim Str As String
- конфликтующее имя с функцией Str (или Str$) |
||
|
Номер ответа: 10 Автор ответа: Страшный СонВопросов: 46 Ответов: 848 |
Профиль | | #10 | Добавлено: 31.03.06 00:11 |
|
Shell "notepad.exe C:\123.txt"
А разве нет необходимости находить System Root? |
||
|
Номер ответа: 11 Автор ответа:  User UnknownВечный Юзер! ICQ: uu@jabber.cz Вопросов: 120 Ответов: 3302 |
Профиль | | #11 | Добавлено: 31.03.06 00:15 |
|
А разве нет необходимости находить System Root?
Нет, он есть в переменных окружения. |
||
|
Номер ответа: 12 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #12 | Добавлено: 31.03.06 02:01 |
|
А разве нет необходимости находить System Root?
мб в старый окнах нет... |
||
|
Номер ответа: 13 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #13 | Добавлено: 31.03.06 02:02 |
тьфу не то процетировал 
Нет, он есть в переменных окружения.
мб в старый окнах нет... во
поздно блин, спать пора
|
||
|
Номер ответа: 14 Автор ответа: [root]Вопросов: 45 Ответов: 1212 |
Web-сайт: Профиль | | #14 | Добавлено: 31.03.06 07:24 |
|
Ну конфликтующее так замени его.
Я его один раз использовал и то для примера. Причем все работает |
||
Страница: 1 |