Paso de parametros en linea de comando(URGENTE)

daniotero
25 de Noviembre del 2003
Hola!
Utilizo Windows XP. Intento ejecutar un programa que he desarrollado en VB6 con Inicio->Ejecutar pasandole un parametro que es el numero de la factura que importo y no consigo guardarlo en la variable de programa NumFact. Aqui teneis el codigo por si os hace falta:
Private Sub Form_Load()
Dim Lineatxt As String
Dim NumFact As String
Dim DirOrigen As String
Dim DirDestino As String
Dim NomFact As String
Dim NomPlant As String
Dim RutaAccesoDirtxt As String
Dim RutaAccesoArctxt As String
Dim Num_Lin As Integer
Dim wordApp As Object
Dim WordDoc As Object
Num_Lin = 0
NumFact = Command()
DirOrigen = "D:ImportaPlantillas"
NomPlant = "Fact.doc"
RutaAccesoDirtxt = "D:ImportaTXT"
DirDestino = "D:ImportaFacImpor"
Set wordApp = CreateObject("Word.Application")
Set WordDoc = wordApp.Documents.Open("D:ImportaPlantillasFact.doc", , 1)
RutaAccesoArctxt = RutaAcceso + NumFact + ".txt"
wordApp.Visible = True
Open RutaAccesoArctxt For Input As #1 'Abre el fichero del que tomo los datos
Do While Not EOF(1)
Num_Lin = Num_Lin + 1
Line Input #1, linea 'Lee la linea
Mid(linea, 1) = " " 'Sustituye el primer digito de identificador de linea
Mid(linea, 2) = " " 'Sustituye el segundo digito de identificador de linea
If (Num_Lin <> 1) Then wordApp.Selection.TypeText Text:=Lineatxt 'Copia la linea en el documento word
If (Not EOF(1)) And (Num_Lin <> 1) Then wordApp.Selection.TypeParagraph 'Introduce salto de linea
Loop
Close #1
NomFact = "Fact" + NumFact 'Crea el nombre de fichero
NomFact = NomFact + ".doc"
wordApp.ChangeFileOpenDirectory DirDestino
WordDoc.SaveAs NomFact
wordApp.Application.Run MacroName:="ConvertToPDFandEmail" 'Convierte el doc en pdf y lo adjunta al e_mail
wordApp.Windows(NomFact).Activate 'Activa la ventana del documento word
wordApp.ActiveDocument.Save 'Salva los cambios
wordApp.ActiveWindow.Close
Set WordDoc = Nothing
wordApp.Application.Quit
End
End Sub
Un saludo

Juan
25 de Noviembre del 2003
Esta sentencia:

RutaAccesoArctxt = RutaAcceso + NumFact + ".txt"

no debería ser?:

RutaAccesoArctxt = RutaAccesoDirtxt + "" + NumFact + ".txt"

Por otro lado no entiendo poque

NumFact = Command()

no guarda los parametros en la variable NumFact ¿¿??

daniotero
25 de Noviembre del 2003
Joeeeeeeeee....que fallo de principiante!!!!!!!!!ja,ja,ja ahora lo hace perfectamente, aunque sigo sin entender porque antes al debugar la variable NumFact me daba vacia. Un saludo y gracias Juan

daniotero
25 de Noviembre del 2003
Si,perdon, se me ha olvidado actualizarlo, pero sigo con el problema de que no me lee los parametros al ejecutarlo.