| Вопрос: открыть файл | Добавлено: 14.03.07 12:15 |
Автор вопроса:  KreAtoR
|
|
Задача снова проста и я снова незнаю какую функицию использовать.
Кнопочку нажал .doc открылся |
| Ответы | Всего ответов: 10 |
|
Номер ответа: 1 Автор ответа:  Arseny ICQ: 298826769 Вопросов: 53 Ответов: 1732 |
Профиль | | #1 | Добавлено: 14.03.07 12:31 |
|
Пример из API-Guide:
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() 'KPD-Team 1998 'URL: http://www.allapi.net/ 'E-Mail: KPDTeam@Allapi.net 'Send an E-Mail to the KPD-Team ShellExecute Me.hwnd, vbNullString, "mailto:KPDTeam@Allapi.net", vbNullString, "C:\", SW_SHOWNORMAL End Sub |
||
|
Номер ответа: 2 Автор ответа: KreAtoR Вопросов: 120 Ответов: 438 |
Профиль | | #2 | Добавлено: 14.03.07 12:53 |
|
а зачем мне письмо???? мне надо файл текстовой открыть.
а попроще нету? изза глупого файла такую штуку разведу. Удалить файл было проще. Kill и все он умер |
||
|
Номер ответа: 3 Автор ответа: PashenkoICQ: 176176951 Вопросов: 14 Ответов: 655 |
Профиль | | #3 | Добавлено: 14.03.07 13:31 |
|
мне надо файл текстовой открыть.
ShellExecute Me.hwnd, "[B]open[/B]", "[B]Путь к твоему файлу[/B]", vbNullString, "C:\", SW_SHOWNORMAL
а попроще нету? изза глупого файла такую штуку разведу. Что, copy/paste не работает?
Удалить файл было проще. Kill и все он умер В нумор! Адназначна!!!
|
||
|
Номер ответа: 4 Автор ответа: PashenkoICQ: 176176951 Вопросов: 14 Ответов: 655 |
Профиль | | #4 | Добавлено: 14.03.07 13:32 |
| Ха! А что теги как криво работают? | ||
|
Номер ответа: 5 Автор ответа: KreAtoRВопросов: 120 Ответов: 438 |
Профиль | | #5 | Добавлено: 14.03.07 13:36 |
|
ShellExecute Me.hwnd, "open", "Путь к твоему файлу", vbNullString, "C:\", SW_SHOWNORMAL не понял. вставь в этот текст к примеру c:\temp\ а файл будет test.doc мож тогда дойдет до меня |
||
|
Номер ответа: 6 Автор ответа: PashenkoICQ: 176176951 Вопросов: 14 Ответов: 655 |
Профиль | | #6 | Добавлено: 14.03.07 13:46 |
|
ShellExecute Me.hwnd, "open", "c:\temp\test.doc", vbNullString, "C:\", SW_SHOWNORMAL
Да, небольшое замечание: в данном случае расширению "doc" должна быть сопоставлена программа для открытия (например, Winword). |
||
|
Номер ответа: 7 Автор ответа: KreAtoRВопросов: 120 Ответов: 438 |
Профиль | | #7 | Добавлено: 14.03.07 13:49 |
| ага а как например если мне надо чтоб просто Ворд открылся с этим файлом радом с программой не в ней | ||
|
Номер ответа: 8 Автор ответа: ArsenyICQ: 298826769 Вопросов: 53 Ответов: 1732 |
Профиль | | #8 | Добавлено: 14.03.07 13:49 |
|
Разжевываем:
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, "test.doc", vbNullString, "C:\Temp", SW_SHOWNORMAL End Sub |
||
|
Номер ответа: 9 Автор ответа: ArsenyICQ: 298826769 Вопросов: 53 Ответов: 1732 |
Профиль | | #9 | Добавлено: 14.03.07 13:52 |
|
ага а как например если мне надо чтоб просто Ворд открылся с этим файлом радом с программой не в ней
не понял........ |
||
|
Номер ответа: 10 Автор ответа: KreAtoRВопросов: 120 Ответов: 438 |
Профиль | | #10 | Добавлено: 14.03.07 13:52 |
| ну че ворд открылся о большем я и не мечтал, пасибо | ||
Страница: 1 |