elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Rompecabezas de Bitcoin, Medio millón USD en premios


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  visual basic 6 y variables de entorno		0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: visual basic 6 y variables de entorno  (Leído 12,287 veces)
^kazike^

Desconectado Desconectado

Mensajes: 88



Ver Perfil
visual basic 6 y variables de entorno
« en: 5 Mayo 2008, 13:24 pm »
Hola,
Hay alguna forma de saber si un programa esta en el path del sistema utilizando visual basic?
Tambien tengo esta otra duda:
Necesito lanzar un .bat en VB que a su vez lanza un programa. Hay alguna forma de saber si la ejecucion del script fue satisfactoria, es decir si el programa su pudo ejecutar?
Gracias y Saludos
En línea
aaronduran2


Desconectado Desconectado

Mensajes: 790



Ver Perfil WWW
Re: visual basic 6 y variables de entorno
« Respuesta #1 en: 5 Mayo 2008, 13:43 pm »
Podrías utilizar este código:

Código
  1. On Error GoTo Fallo
  2. Dim RutaSistema As String
  3. RutaSistema = Environ("WINDIR") & "\System32"
  4. If GetAttr(RutaSistema & "\ARCHIVO.exe") Then MsgBox "SI"
  5. Fallo:
  6. MsgBox "NO"
  7.  
En línea
seba123neo
Moderador
***
Desconectado Desconectado

Mensajes: 3.621



Ver Perfil WWW
Re: visual basic 6 y variables de entorno
« Respuesta #2 en: 5 Mayo 2008, 13:55 pm »
o algo asi con api:

Código:
Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

Private Sub Form_Load()
Dim sSave As String, Ret As Long
sSave = Space(255)
Ret = GetSystemDirectory(sSave, 255)
sSave = Left$(sSave, Ret)
MsgBox ExisteArchivo(sSave & "\calc.exe")
End Sub

Private Function ExisteArchivo(sNombreArchivo As String) As Boolean
Dim AttrDev%
On Error Resume Next
AttrDev = GetAttr(sNombreArchivo)
If Err.Number Then
Err.Clear
ExisteArchivo = False
Else
ExisteArchivo = True
End If
End Function

saludos.
En línea
cassiani


Desconectado Desconectado

Mensajes: 978


« Anterior | Próximo »


Ver Perfil WWW
Re: visual basic 6 y variables de entorno
« Respuesta #3 en: 5 Mayo 2008, 20:26 pm »
Otra forma:

Código
  1. Option Explicit
  2.  
  3. Private Sub CmdComprobar_Click()
  4. Dim sPathArchivo As String
  5.  
  6.     sPathArchivo = Environ("WINDIR") & "\System32\" & TextArchivo.Text
  7.  
  8.     MsgBox IIf(ExisteArchivo(sPathArchivo) = True, "¡El archivo existe!", _
  9.     "¡El archivo NO existe!")
  10. End Sub
  11.  
  12. Public Function ExisteArchivo(sArchivo As String) As Boolean
  13.     ExisteArchivo = IIf(Dir$(sArchivo) = "", False, True)
  14.     'Devolverá false, si Dir$ no encuentra un archivo con el mismo nombre de la _
  15.      variable "sArchivo"
  16. End Function

La verdad hay muchas, será cuestion de gustos...

¡Saludos!
En línea
^kazike^

Desconectado Desconectado

Mensajes: 88



Ver Perfil
Re: visual basic 6 y variables de entorno
« Respuesta #4 en: 6 Mayo 2008, 18:53 pm »
perfecto, gracias a los 3! :)
En línea
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
En entorno Visual Studio 2008, no se cierra.Sin entorno VS2008 se cierra.
.NET (C#, VB.NET, ASP) 		javier234- 6 6,808 Último mensaje 16 Febrero 2011, 23:08 pm
por [D4N93R]
Configurar visual studios para ver el contenido de las variables en modo debug
Programación C/C++ 		milya777 9 12,548 Último mensaje 8 Abril 2011, 06:37 am
por milya777
Gradeer - Entorno Visual para C
Programación C/C++ 		taul 0 1,758 Último mensaje 1 Marzo 2012, 21:06 pm
por taul
Variables visual basic 6.0
Programación Visual Basic 		lucaslopez0000 4 3,057 Último mensaje 18 Octubre 2012, 16:50 pm
por Elemental Code
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines