Ver Mensaje Individual
  #2 (permalink)  
Antiguo 19/02/2007, 10:27
Znet
 
Fecha de Ingreso: marzo-2002
Ubicación: Salta Capital - Actualmente estudiando en Córdoba
Mensajes: 430
Antigüedad: 24 años, 7 meses
Puntos: 0
Re: Leer parametros posicionales

Ahi encontre la info, asi que me respondo a mi mismo para el que necesite usar esto.

http://www.elguille.info/VB/VB_TIP2.HTM#vb2_015

El codigo es el siguiente

Código PHP:
 
Private Function LineaComandos() As String
    Dim sTmp 
As String
    Dim i 
As Integer
    
'Comprobar si hay algún archivo en la línea de comandos
    sTmp = Trim$(Command$)
    If Len(sTmp) Then
        '
Si tiene los caracteres de comillas, quitarselos
        i 
= InStr(sTmp, Chr$(34))
        If 
i Then
            sTmp 
= Left$(sTmp, i - 1) & Mid$(sTmp, i + 1)
            
i = InStr(sTmp, Chr$(34))
            If 
i Then
                sTmp 
= Left$(sTmp, i - 1) & Mid$(sTmp, i + 1)
            
End If
        
End If
    
End If
    
LineaComandos = sTmp
End 
Function 
Y tomamos los parametros con:

Dim sFile As String

sFile = LineaComandos()

Saludos.-
__________________
Nada es imposible, con un poco de esfuerzo se logran las cosas.-