SHELL EXECUTE!?

MESTRE 01/04/2014 09:38:01
#436748
Ta acesso Máximo MARCELO..

To ficando maluco com isso


TUSUNAT, aqui estou logado como Administrador (grant acess) hahaha TI né sabe como é precisamos de TUDO a nosso favor..

realizei o procedimento que voce fez, abri com o notepad e dei um CTRL+S pra salvar e salvou de boa.. não falou nada de acesso negado
TUNUSAT 01/04/2014 09:52:47
#436749
MESTRE,

Rapidamente não achei nada no google sobre o assunto.
Fiz uma nova brincadeira (mais complexa)

Criei um projeto [Ô]ActiveX EXE[Ô] assim:

Option Explicit

Sub main()
   Shell [Ô]C:\Windows\System32
as\TESTE.bat[Ô], vbMinimizedNoFocus
End Sub


Só tem uma classe executável.
Salvá-la dentro da pasta [Ô]nas[Ô] ... vieram as mensagens:

Citação:

[Window Title]
Temp

[Main Instruction]
No momento, você não tem permissão para acessar esta pasta.

[Content]
Clique em Continuar para obter acesso permanente a esta pasta.

[Continuar] [Cancelar]



Citação:

[Window Title]
Make Project

[Content]
C:\Windows\System32
as\
O caminho não existe.
Verifique o caminho e tente novamente.

[OK]



Agora tentei em um [Ô]Projeto EXE[Ô] normal mesmo ... dá o mesmo erro mesmo sendo executado o EXE compilado.

OUTRA FORMA!

Dim command As String
    command = [Ô]cmd.exe C:\Windows\System32
as\TESTE.bat[Ô]
    Shell command
    command = [Ô]cmd.exe C:    emp\TESTE.bat[Ô]
    Shell command


[][ô]s,
Tunusat.
MARCELO.TREZE 01/04/2014 09:53:05
#436750
bom colega vamos fazer um outro teste só pra tirar as duvidas crie um novo arquivo bat só com estas linhas abaixo, salve com teste.bat e tente executa-lo

@echo off
echo %1
echo %2
echo %3
pause


Private Sub Command1_Click()
Shell [Ô]c:    este.bat[Ô]
End Sub
MESTRE 01/04/2014 10:00:44
#436751
Obrigado pessoal.. agora deu certo..

fiz aquele procedimento de abrir com o bloco de notas e editar.. joguei dentro do [Ô]C:\DBTemp[Ô] e funcionou o Shell

Agora me pergunto.. pq em outras pastas ele da erro e so funciona na raiz C:\ ??

Não acho que seja questão de permissão pois como já disse estou logado no Administrador com Grant Acess..

más beleza.. funcionou.. Obrigado a todos

más ainda me resta a dúvida pq essa loucura toda?? pq quando jogo no System32 as pastas e colocando o caminho ele não funciona..

Obrigado pessoal
TUNUSAT 01/04/2014 10:05:12
#436752
MESTRE,

Dá uma olhada neste site:
http://www.daniweb.com/software-development/visual-basic-4-5-6/threads/423258/how-to-execute-dos-command-line-using-vb6

Tentei isto ... mas não vai de jeito nenhum!
Option Explicit

[ô]Declare em References:
[ô] Windows Script Host Object Model
[ô] Arquivo: c:\Windows\SysWOW64\wshom.ocx

Private Sub Form_Load()
    Dim wshThisShell As WshShell
    Dim lngRet As Long
    Dim strShellCommand As String
    Dim strBatchPath As String
 
    Set wshThisShell = New WshShell
    strBatchPath = [Ô]C:\Windows\System32
as\TESTE.bat[Ô]
    strShellCommand = [Ô][Ô][Ô][Ô] & strBatchPath & [Ô][Ô][Ô][Ô]
    lngRet = wshThisShell.Run(strShellCommand, vbNormalFocus, vbTrue)
 
End Sub


Cara ... não tem como executar estes [Ô].BAT[Ô] apartir de outro diretório (outra pasta)?

[][ô]s,
Tunusat.
OCELOT 01/04/2014 10:06:50
#436753
Seu Windows não é de 64 bits? Se for pode ser que o Windows esteja redirecionando o comando para a pasta SysWOW64, e por isso da file not found
MESTRE 01/04/2014 10:19:01
#436754
Bom, funcionou.. obrigado a todos que ajudaram.. joguei direto no C:\Windows ..

@TUSUNAT
tem sim cara, to executando através do C:\Windows .. Agora

Obrigado a todos pela ajuda..


@OCELOT
Talvez voce tenha razão foi algo que nem passou pela minha cabeça.. Vlww

@MarceloTreze .. vlw


Fim
Página 2 de 2 [17 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar