Creazione Cartella FTP tramite VBA

[Bobo360]

purtroppo ho qualche difficoltà a capire il codice, purtroppo non sono esperto.
Ma uso a lavoro il VBA, comandi molto base, per ottimizzare il mio lavoro su access.

Le prime costanti le devo dichiarare, anche la Private type, poi anche tutte le funzioni private?
Mentre nella parte della funzione pubblica la variabile ret cosa fa?

grazie

[alev]

E studiare un pochettino VBA, il modo di dichiarare le variabili e le costanti?

L'esempio del post [13] è abbastanza chiaro

Se non hai la minima idea di come realizzare il tuo codice, penso ti convenga prenderti un po' di tempo per migliorare le tue competenze VBA

[Bobo360]

va bene, purtroppo ho difficoltà a capire tutto il codice del post 13.

[GioArca67]

Le prime costanti le devo dichiarare, anche la Private type, poi anche tutte le funzioni private?

Sì

Questa ad esempio serve per avere nel tuo codice un accesso alla funzione InternetOpenA() implementata all'interno di wininet.dll:

Codice: Seleziona tutto

Private 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

Prova per pezzi:
Aggiungi al tuo codice solo

Codice: Seleziona tutto

Private 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

Private Declare Function InternetCloseHandle Lib "wininet.dll" _
    (ByVal hInet As Long) As Integer

  Dim hOpen As Long, ret As Long

  ret = InternetOpen("ftp VBA", 1, vbNullString, vbNullString, 0)
  hOpen=ret

  InternetCloseHandle hOpen


vedi se da' qualche errore

Mentre nella parte della funzione pubblica la variabile ret cosa fa?

grazie

ret viene usata come variabile di appoggio che raccoglie ciò che ritorna la funzione: o l'oggetto desiderato (puntatore a...) o 0.
Se 0 c'è stato un errore e quindi prosegue solo nel caso >0 (ho un puntatore valido a qualcosa).

[Bobo360]

Ciao, grazie per il supporto.
a me da questo tipo di errore, allego il file conlo screenshot.

[GioArca67]

Quindi hai VBA7.

Prova

Codice: Seleziona tutto

    Private Declare PtrSafe Function InternetConnect Lib "wininet.dll" Alias "InternetConnectA" _
    (ByVal hInternetSession As LongPtr, _
    ByVal sServerName As String, _
    ByVal nServerPort As Integer, _
    ByVal sUsername As String, _
    ByVal sPassword As String, _
    ByVal lService As LongPtr, _
    ByVal lFlags As LongPtr, _
    ByVal lContext As LongPtr) As LongPtr

    Private Declare PtrSafe Function InternetCloseHandle Lib "wininet.dll" _
    (ByVal hInet As LongPtr) As Integer

   Dim hOpen As LongPtr, ret As LongPtr

  ret = InternetOpen("ftp VBA", 1, vbNullString, vbNullString, 0)
  hOpen=ret

  InternetCloseHandle hOpen


[Bobo360]

mi da errore su "ftp VBA".

Ma teoricamente questa funzione "InternetOpen" dovrebbe aprire la connessione con FTP?

giusto?

quindi ci dovrebbero essere i dati di accesso?

[GioArca67]

No. La InternetConnect lol fa, vedi messaggio 13.
Posta sempre lo screenshot dell'errore.

[Bobo360]

mi da questo errore:

[GioArca67]

Ma è insieme al resto del tuo codice o in una cartella vuota?

Se da solo non va.

Al post 24 scrivevo

Aggiungi al tuo codice solo

Prova allora tutto il codice al post 13