Mostrar Temas
creo que el codigo se explica por si mismo:
Código:
Private Sub Command1_Click()
Dim n As Integer
n = n + 1
For n = 0 To 0
Close #2
Open App.Path & "\Presupuesto N° " & n & ".txt" For Output As #2
Print #2, "***********************************************************************************************************"
Print #2, " Barras Móviles del Faraón "
Print #2, "***********************************************************************************************************"
Print #2, "Presupuesto N°: " & n
Print #2, " "
Print #2, "Gracias por confiar en el Faraón. En este presupuesto encontrará la información que usted ha solicitado, "
Print #2, "así como tambien los detalles de nuestros servicios. Ante cualquier consulta que pueda surgir, no dude en "
Print #2, "contactarse con nosotros mediante los datos que figuran al final de este documento."
Print #2, "***********************************************************************************************************"
Print #2, DATOS; DEL; SOLICITANTE:
Print #2, "Nombre: " & Text2.Text
Print #2, "Email: " & Text3.Text
Print #2, "Fecha del Evento: "; Text4.Text
Print #2, "Servicio seleccionado: "
Close #2
res = ShellExecute(Form1.hwnd, "Open", App.Path + "\presupuesto N° " & n & ".txt", "", "", 3)
El problema es que nunca genera el archivo "Presupuesto N°2.txt" no pasa jamás del 1 (en form_load está el N=1 que hace que el primer txt sea el nro 1)
alguien puede ver mi error?
gracias!