INICIAR UM DIRETORIO


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: INICIAR UM DIRETORIO

Alan Lima
não registrado

Postada em 31/10/2005 07:10 hs

Bom dia amigos !!!

Estou montando um projetinho em que eu precisava atrves de um botão chamar um arquivo executavel externo mas não estou conseguindo fazer-lo com exito, na verdade este arquivo .EXE externo pertence a um programa e qundo eu chamo ele atraves do comando:

Private Sub Command1_Click()
Dim inithandle As Long

inithandle = Shell("c:SistemaInicial.exe", 1)
DoEvents

End Sub

ele até chama o arquivo mais ele naum funciona porque o arquivo .EXE pensa q está sendo executado sozinho fora de seu diretorio e diz q não encontrou seus bancos de dados.

Eu acredito que não estou sabendo iniciar o diretorio digo isso pq este fenomeno acontece igualzinho quando vc apaga a linha "Iniciar em:" de um atalho do windows

Por favor amigos me digam como posso fazer este "Iniciar em:" aki no VB

obs: O programa Inicial.exe é for Windows

Obrigado !!!

VACA

LIMEIRA
SP - BRASIL

Postada em 31/10/2005 07:52 hs

v c isso serve:
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

e pra usar essa api:
Dim Retval as long
Retval = ShellExecute(me.hwnd, "open", caminho+nomedoarquivo, "", "", SW_MAXIMIZE)

"Quando estou fraco, aí então é que sou Poderoso"

Alan Lima
não registrado

Postada em 31/10/2005 11:55 hs

Amigo Vaca !!!

Infelismente naum deu certo será q existe outra maneira ?

Alan

Americana - SP

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR