VBNet - Форум - Помогите срочно Плз!!!

Вопрос: Помогите срочно Плз!!! Добавлено: 21.08.02 22:11

Автор вопроса: Andrey999 | Web-сайт: www.radio-device.narod.ru | ICQ: 30852361

Private Sub Command1_Click()
Dim SourceFile, DestinationFile
Dim MyXL As Object
SourceFile = "c:\book.mdb" ' Файл-источник.
DestinationFile = "d:\book.mdb" ' Файл-адресат.
FileCopy SourceFile, DestinationFile ' Копирует файл.
А как теперь запустить скопированный файл на исполнение?
End Sub

Ответить

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

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

MAGNUS

Вопросов: 12
Ответов: 430

Профиль | | #1

Добавлено: 21.08.02 22:17

Kogo zapustit na ispolnenie???? Bazu dannih? Ti w smisle otkrit ee akcesom hochesh?

Dla zapuska est takaja API ShellExecute

Public 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

Wot cherez nee i zapuskaj !

Ответить

Номер ответа: 2 Автор ответа: Andrey999 ICQ: 30852361 Вопросов: 73 Ответов: 168	Web-сайт: www.radio-device.narod.ru Профиль \| \| #2	Добавлено: 21.08.02 22:34
	Да я хочу ее открыть. Как? Ответить

Номер ответа: 3
Автор ответа:

Keith Flint

Вопросов: 29
Ответов: 74

Web-сайт: www.flint7.nm.ru
Профиль | | #3

Добавлено: 22.08.02 09:01

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)

Private Sub Command1_Click()
Call ShellExecute(GetDesktopWindow, "Open", "d:\book.mdb", "", "c:\", SW_SHOWNORMAL)
End Sub

Ответить

Номер ответа: 4
Автор ответа:

MAGNUS

Вопросов: 12
Ответов: 430

Профиль | | #4

Добавлено: 22.08.02 13:20

A ja chto ne tak napisal? Nu kajus primer ne kinul, no IMHO wse ponjatno! Tem bolee chto est wstroennaja VB funkcija Shell kotoraja delaet toje samoe,no prosche w ispolzowanii. Edinstwennaja raznica chto ukazannaja API podderjiwaet Kontekstnie swjazi tipow fajlow s registrom a po powodu Shell - ne znaju...

Ответить

Номер ответа: 5
Автор ответа:

MAGNUS

Вопросов: 12
Ответов: 430

Профиль | | #5

Добавлено: 22.08.02 13:42

Call ShellExecute(GetDesktopWindow, "Open", "d:\book.mdb", "", "c:\", SW_SHOWNORMAL)

W principe werno,no mojno ispolzowat i prosto SW_Show ,kstai ee nujno propisiwat constantoj, Const SW_Show=5

Ответить

Номер ответа: 6 Автор ответа: Andrey999 ICQ: 30852361 Вопросов: 73 Ответов: 168	Web-сайт: www.radio-device.narod.ru Профиль \| \| #6	Добавлено: 22.08.02 22:36
	Да не работает это. Начинает загружатся Access потом пропадает и все, можно увидеть программу по Ctrl+Alt+Del больше она не как не реагирует. Ответить

Номер ответа: 7
Автор ответа:

MAGNUS

Вопросов: 12
Ответов: 430

Профиль | | #7

Добавлено: 23.08.02 14:08

Poprobuj prosto wstroennoj funkciej Shell

Ответить

Номер ответа: 8
Автор ответа:

MAGNUS

Вопросов: 12
Ответов: 430

Профиль | | #8

Добавлено: 23.08.02 19:08

Call ShellExecute(VbNullString, "Open", "d:\book.mdb", "", "c:\", SW_SHOWNORMAL)

Tut nemnogo drugoe, NullString, Tam esche grugie konstanti est POchitaj MSDN ! Tam wse podrobno objasnaetsa!

Ответить

Страница: 1 |