Programación General > VBA

 Ejecutar .BAT con Access 2007

(1/1)

Morita:
Hola!

Necesito publicar en la WEB de la compañía donde trabajo un archivo .pdf que se genera automáticamente desde un sistema en Access 2007 con sólo presionar un botón. Para esto tengo el siguiente código. El problema es que cuando la función Shell ejecuta ‘subir.bat’ busca hacerlo en otro directorio, de hecho el archivo RecepcionPeticiones.log se crea en Mis Documentos. He intentado con lcd en varios puntos pero ya no hallo que hacer. Cómo corregir el código para que busque el script ftp en el directorio que yo le diga? Gracias de antemano!

 :huh:

Sub SubirPDF(curso)

        Dim strNombreArchivo As String, strRuta As String
        Dim strArchivoTexto As String, filePDF  As String
        Dim f As Integer    

        'nombre y ruta del archivo de texto
        strRuta = CurrentProject.Path
        strNombreArchivo = "ftp_subir.ftp"
        strArchivoTexto = strRuta & "" & strNombreArchivo
        filePDF = "mput " & curso & ".pdf"          

        'creo el archivo variable

        f = FreeFile

        Open strArchivoTexto For Output As #f

        'escribimos al archivo
        Print #f, "open ftp.blabla.com"
        Print #f, "blabla.com"
        Print #f, "passwordblabla"
        Print #f, "binary"
        Print #f, "prompt off"
        Print #f, "cd HTML"
        Print #f, "cd _archivos"
        Print #f, filePDF
        Print #f, "bye"    

        'cerramos el archivo de texto
        Close f

        'creo el .bat por si acaso
        strNombreArchivo = "subir.bat"
        strArchivoTexto = strRuta & "" & strNombreArchivo
        f = FreeFile
        Open strArchivoTexto For Output As #f

        Print #f, "ftp -s:ftp_subir.ftp >> RecepcionPeticiones.log"

        Close f  
       

        Dim x As Double
        x = Shell(strArchivoTexto, vbHide)  
        MsgBox "El calendario está en WEB"

End Sub

F_Tanori:
Cual es el error que ese codigo te da?

Necesitas solicitar la ruta del bat? puedes usar un commondDialog

Saludos

Morita:
Hola F_Tanori!

Era un tema de rutas, lo solucioné hace poco

cambié esta línea...
    Print #f, "ftp -s:ftp_subir.ftp >> RecepcionPeticiones.log"

por esta otra
    Print #f, "ftp -s:" & strRuta & "" & "ftp_subir.ftp >>" & strRuta & "" & "RecepcionPeticiones.log"

Ya funciona. ¡Gracias!
 =D

Jimbenit:

--- Cita de: "Morita" ---Hola F_Tanori!

Era un tema de rutas, lo solucioné hace poco

cambié esta línea...
    Print #f, "ftp -s:ftp_subir.ftp >> RecepcionPeticiones.log"

por esta otra
    Print #f, "ftp -s:" & strRuta & "" & "ftp_subir.ftp >>" & strRuta & "" & "RecepcionPeticiones.log"

Ya funciona. ¡Gracias!
 =D
--- Fin de la cita ---

Espero volver a verte por aca...
Saludos.

Navegación

[0] Índice de Mensajes