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
