Programación General > Visual Basic 6.0 e inferiores

 Enviar Base De Datos Via Ftp

(1/1)

willysistemas:
hola alguien me puede hacer el favor de pasarme un codigo o explicarme como me conecto a un servidor ftp para enviar un backup de la base de datos

Sagutxo:
Salu2.


--- Código: Text ---Const FTP_TRANSFER_TYPE_UNKNOWN = &H0Const FTP_TRANSFER_TYPE_ASCII = &H1Const FTP_TRANSFER_TYPE_BINARY = &H2Const INTERNET_DEFAULT_FTP_PORT = 21               ' default for FTP serversConst INTERNET_SERVICE_FTP = 1Const INTERNET_FLAG_PASSIVE = &H8000000            ' used for FTP connectionsConst INTERNET_OPEN_TYPE_PRECONFIG = 0                    ' use registry configurationConst INTERNET_OPEN_TYPE_DIRECT = 1                        ' direct to netConst INTERNET_OPEN_TYPE_PROXY = 3                         ' via named proxyConst INTERNET_OPEN_TYPE_PRECONFIG_WITH_NO_AUTOPROXY = 4   ' prevent using java/script/INSConst MAX_PATH = 260Private Type FILETIME    dwLowDateTime As Long    dwHighDateTime As LongEnd TypePrivate Type WIN32_FIND_DATA    dwFileAttributes As Long    ftCreationTime As FILETIME    ftLastAccessTime As FILETIME    ftLastWriteTime As FILETIME    nFileSizeHigh As Long    nFileSizeLow As Long    dwReserved0 As Long    dwReserved1 As Long    cFileName As String * MAX_PATH    cAlternate As String * 14End TypePrivate Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As IntegerPrivate Declare Function InternetConnect Lib "wininet.dll" Alias "InternetConnectA" (ByVal hInternetSession As Long, ByVal sServerName As String, ByVal nServerPort As Integer, ByVal sUserName As String, ByVal sPassword As String, ByVal lService As Long, ByVal lFlags As Long, ByVal lContext As Long) As LongPrivate Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As LongPrivate Declare Function FtpSetCurrentDirectory Lib "wininet.dll" Alias "FtpSetCurrentDirectoryA" (ByVal hFtpSession As Long, ByVal lpszDirectory As String) As BooleanPrivate Declare Function FtpGetCurrentDirectory Lib "wininet.dll" Alias "FtpGetCurrentDirectoryA" (ByVal hFtpSession As Long, ByVal lpszCurrentDirectory As String, lpdwCurrentDirectory As Long) As LongPrivate Declare Function FtpCreateDirectory Lib "wininet.dll" Alias "FtpCreateDirectoryA" (ByVal hFtpSession As Long, ByVal lpszDirectory As String) As BooleanPrivate Declare Function FtpRemoveDirectory Lib "wininet.dll" Alias "FtpRemoveDirectoryA" (ByVal hFtpSession As Long, ByVal lpszDirectory As String) As BooleanPrivate Declare Function FtpDeleteFile Lib "wininet.dll" Alias "FtpDeleteFileA" (ByVal hFtpSession As Long, ByVal lpszFileName As String) As BooleanPrivate Declare Function FtpRenameFile Lib "wininet.dll" Alias "FtpRenameFileA" (ByVal hFtpSession As Long, ByVal lpszExisting As String, ByVal lpszNew As String) As BooleanPrivate Declare Function FtpGetFile Lib "wininet.dll" Alias "FtpGetFileA" (ByVal hConnect As Long, ByVal lpszRemoteFile As String, ByVal lpszNewFile As String, ByVal fFailIfExists As Long, ByVal dwFlagsAndAttributes As Long, ByVal dwFlags As Long, ByRef dwContext As Long) As BooleanPrivate Declare Function FtpPutFile Lib "wininet.dll" Alias "FtpPutFileA" (ByVal hConnect As Long, ByVal lpszLocalFile As String, ByVal lpszNewRemoteFile As String, ByVal dwFlags As Long, ByVal dwContext As Long) As BooleanPrivate Declare Function InternetGetLastResponseInfo Lib "wininet.dll" Alias "InternetGetLastResponseInfoA" (lpdwError As Long, ByVal lpszBuffer As String, lpdwBufferLength As Long) As BooleanPrivate Declare Function FtpFindFirstFile Lib "wininet.dll" Alias "FtpFindFirstFileA" (ByVal hFtpSession As Long, ByVal lpszSearchFile As String, lpFindFileData As WIN32_FIND_DATA, ByVal dwFlags As Long, ByVal dwContent As Long) As LongPrivate Declare Function InternetFindNextFile Lib "wininet.dll" Alias "InternetFindNextFileA" (ByVal hFind As Long, lpvFindData As WIN32_FIND_DATA) As LongConst PassiveConnection As Boolean = True Const SW_NORMAL = 1'API De windows  public Function SubeFich(ValArch as string) Dim oConn As Long, hOpen As Long, sOrgPath  As String, ValStr As StringDim X 'Apertura de conexiónhOpen = InternetOpen("Subiendo fotos", INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, 0)'Conectar a FTPoConn = InternetConnect(hOpen, "ftp.patatin.com", PUERTO, "User", "Pass", INTERNET_SERVICE_FTP, IIf(PassiveConnection, INTERNET_FLAG_PASSIVE, 0), 0) 'Guardo path de entrada sOrgPath = String(MAX_PATH, 0)FtpGetCurrentDirectory oConn, sOrgPath, Len(sOrgPath) FtpSetCurrentDirectory oConn, "Carpeta que quieras del ftp" FtpPutFile oConn, "Path a fichero de DB, "Nombre de fichero en destino", FTP_TRANSFER_TYPE_UNKNOWN, 0 ' Vuelvo a path Origen del FTPFtpSetCurrentDirectory oConn, sOrgPath 'CIERRO CONEXION a FTPInternetCloseHandle oConn'CIERRO CONEX a INTERNETInternetCloseHandle hOpenend function 

Navegación

[0] Índice de Mensajes