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

 

 


Tema destacado: Recuerda que debes registrarte en el foro para poder participar (preguntar y responder)


+  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 11,019 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


"No quiero creer, quiero saber" - Carl Sagan


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

La característica extraordinaria de las leyes de la física es que se aplican en todos lados, sea que tú elijas o no creer en ellas. Lo bueno de las ciencias es que siempre tienen la verdad, quieras creerla o no.

Neil deGrasse Tyson
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:  

WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines