Hice una pequeña aplicacion la cual crea unos archivos en la maquina y todo funciona bien excepto que al ejecutar la aplicacion ya instalada no crea los archivos ( o nose donde); es decir: empaquete la aplicaion y la instale en mi equipo local (con setup.exe) luego la ejecutar la aplicacion ya instalada no me muestra los archivos. inclusive mustro un mensaje con la ruta del archivo pero alli no se genera nada. sera que falta incluir alguna libreria? o que me hace falta tener en cuenta?.
agradezco cualquier comentario como ayuda.
archivo = App.Path & "\InterfaseTesoreria del " & diai & " hasta el " & diaf & " del mes " & mesf & ".txt"
Call Conexion1 'se conecta con la base de datos
rsbuscar(0).Open "SELECT * from archivoaleer", cnn1, adOpenStatic, adLockOptimistic
While Not rsbuscar(0).EOF
fecham = rsbuscar(0)("tes_fecha")
mes = Month(fecham)
dia = Day(fecham)
ano = Year(fecham)
fecha = mes & "/" & dia & "/" & ano
registro = rsbuscar(0)("tes_secuencia")
Open archivo For Append As #1 'abre el archivo en el mismo directorio
Print #1, fecha & "esta es la fecha indicada"
Close #1
rsbuscar(0).MoveNext
Wend
Call CerrarCnn1 'cierra la conexion de la base de datos
MsgBox "Se creo el archivo:" & archivo & ", haga clic en Aceptar", vbInformation
