[VB6] Applicazione FTP che invia file periodicamente

[tony1960]

Salve

talkoman ho il tuo stesso problema, ho anche letto

http://support.microsoft.com/kb/173264/en-us

ma non ci ho cavato un ragno dal buco, tu hai risolto?

se si mi daresti qualche indicazione

Ciao

[talkoman]

Si...scaricando Auto FTP

http://www.glenn.delahoy.com/software/index.shtml

[tony1960]

Grazie dell'indicazione,

in pratica se non ho capito male hai usato un eseguibile esterno a cui passi dei parametri

ma questa soluzione non la posso praticare.

Se ho capito male la soluzione da te proposta correggimi

ciao

[tony1960]

Ciao talkoman

scusa ancora, ti interessa una soluzione in VB6 ?

forse ho trovato (un codice funzionante)

Ciao

[alka]

Originariamente inviato da tony1960
scusa ancora, ti interessa una soluzione in VB6 ?
forse ho trovato (un codice funzionante)

Se hai un contributo utile alla discussione, scrivilo qui e basta, così può essere utile a tutti, indipendentemente dall'interesse dell'autore originale della discussione (purché non sia una risorsa di terzi; in tal caso, posta il link).

Ciao!

[tony1960]

Allora la soluzione che ho trovato non "prevede" l'uso di Inet almeno direttamente ma non fa uso direttamente di wininet.dll

io ho risolto così:

in un modulo ho queste dichiarazioni

Option Explicit


Public 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 Long

Public 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 Long

Public Declare Function FtpSetCurrentDirectory Lib "wininet.dll" Alias "FtpSetCurrentDirectoryA" (ByVal hFtpSession As Long, ByVal lpszDirectory As String) As Boolean

Public Declare Function FtpPutFile Lib "wininet.dll" Alias "FtpPutFileA" (ByVal hFtpSession As Long, ByVal lpszLocalFile As String, ByVal lpszRemoteFile As String, ByVal dwFlags As Long, ByVal dwContext As Long) As Boolean


Public bActiveSession As Boolean
Public hOpen As Long
Public hConnection As Long
Public chkPassive As Integer
Public optBin As Integer
Public nFlag As Long


Public dwType As Long

Public Const FTP_TRANSFER_TYPE_BINARY = &H2
Public Const FTP_TRANSFER_TYPE_ASCII = &H1
Public Const INTERNET_FLAG_PASSIVE = &H8000000

Public Const scUserAgent = "vb wininet"
Public Const INTERNET_OPEN_TYPE_DIRECT = 1
Public Const INTERNET_INVALID_PORT_NUMBER = 0
Public Const INTERNET_SERVICE_FTP = 1

Public connessione_internet As Boolean



In una sub ho inserito


bActiveSession = False
hOpen = 0
hConnection = 0
chkPassive = 1
optBin = 1
dwType = FTP_TRANSFER_TYPE_BINARY

' controlla connessione internet
connessione_internet = False
hOpen = InternetOpen(scUserAgent, INTERNET_OPEN_TYPE_DIRECT, vbNullString, vbNullString, 0)

' qui un si potrebbe inserire un controllo su cosa fare se internet non è funzionante
If hOpen <> 0 Then connessione_internet = True
.
.
.
.
.
.
.
.
.
.
.
.
' fine controllo se internet no è attivo



nFlag = INTERNET_FLAG_PASSIVE

Dim txtUser As String
Dim txtPassword As String
Dim txtServer As String
Dim sPathFromRoot As String


'connetti al sito ftp
txtServer = qui il sito a cui collegarsi in ftp nel formato "www.miosito.com"
txtUser = qui user namenel formato "XXXXXXXX@aruba.it"
txtPassword = qui la password "XXXXXXXXXXX"

hConnection = InternetConnect(hOpen, txtServer, INTERNET_INVALID_PORT_NUMBER, txtUser, txtPassword, INTERNET_SERVICE_FTP, nFlag, 0)

Dim bRet As Boolean
Dim szFileLocal As String
Dim szFileRemote As String

'per andare alla cartella desiderata notare di non ripetere www davanti a miosito
sPathFromRoot = "/miosito.com/xxxxxxx"
bRet = FtpSetCurrentDirectory(hConnection, sPathFromRoot)

szFileLocal = "C:\xxxx\miofile" ' nome del file con il percorso
szFileRemote = "nome file da scaricare" ' nome che il file dovrà avere sul server
bRet = FtpPutFile(hConnection, szFileLocal, szFileRemote, dwType, 0)



spero serva a qualcuno

Ciao