SoloCodigo

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!

 

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