Public hFTP As FtpClient
Public Procedure INICIALIZAR()
hFTP = New FtpClient
hFTP.Password = Settings["FTP/pwd"]
hFTP.User = Settings["FTP/usr"]
End
Public Procedure CrearDirectorio(DirectorioRemoto As String)
'Crea un solo directorio. No crea la ruta entera
hFTP.URL = Settings["FTP/host"]
hFTP.Exec(["MKD " & DirectorioRemoto])
End
Public Procedure BorraDirectorio(DirectorioRemoto As String)
'Borra un solo directorio. No borra la ruta entera
hFTP.URL = Settings["FTP/host"]
hFTP.Exec(["RMD " & DirectorioRemoto])
End
Public Procedure SubeArchivo(RutaArchivo As String, RutaRemota As String)
'Ejemplo:
'ŔutaArchivo = "/home/pepe/archivo.txt"
'RutaDestino = "/txts/privados/"
hFTP.URL = Settings["FTP/host"] &/ RutaRemota &/ File.Name(RutaArchivo)
hFTP.Put(RutaArchivo)
End
Public Procedure BorraArchivo(RutaArchivoRemoto As String)
'Ejemplo:
'para borrar en ftp.servidor.com/cosas/archivos/archivo.txt
'RutaArchivoRemoto = /cosas/archivos/archivo.txt
hFTP.URL = Settings["FTP/host"]
hFTP.Exec(["DELE " & RutaArchivoRemoto])
End
Public Procedure INICIALIZAR()
hFTP = New FtpClient
hFTP.Password = Settings["FTP/pwd"]
hFTP.User = Settings["FTP/usr"]
End
Public Procedure CrearDirectorio(DirectorioRemoto As String)
'Crea un solo directorio. No crea la ruta entera
hFTP.URL = Settings["FTP/host"]
hFTP.Exec(["MKD " & DirectorioRemoto])
End
Public Procedure BorraDirectorio(DirectorioRemoto As String)
'Borra un solo directorio. No borra la ruta entera
hFTP.URL = Settings["FTP/host"]
hFTP.Exec(["RMD " & DirectorioRemoto])
End
Public Procedure SubeArchivo(RutaArchivo As String, RutaRemota As String)
'Ejemplo:
'ŔutaArchivo = "/home/pepe/archivo.txt"
'RutaDestino = "/txts/privados/"
hFTP.URL = Settings["FTP/host"] &/ RutaRemota &/ File.Name(RutaArchivo)
hFTP.Put(RutaArchivo)
End
Public Procedure BorraArchivo(RutaArchivoRemoto As String)
'Ejemplo:
'para borrar en ftp.servidor.com/cosas/archivos/archivo.txt
'RutaArchivoRemoto = /cosas/archivos/archivo.txt
hFTP.URL = Settings["FTP/host"]
hFTP.Exec(["DELE " & RutaArchivoRemoto])
End
Granada
