Creazione Cartella FTP tramite VBA

[lelerelele]

hai provato a leggere al post [17]?

magari è più semplice.

[Bobo360]

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

Ho provato, ma purtroppo non riesco a venire a capo, ho studiato ma sbaglio ancora qualcosa. Non è che devo aggiungere qualche libreria?

hai provato a leggere al post [17]?

magari è più semplice.

provo dare un occhio a questo codice e vi faccio sapere.

Grazie a tutti. Spero di riuscire, mi agevolerebbe tanto il mio lavoro da casa.

[Bobo360]

Ciao a tutti, dopo tanto tempo mi faccio risentire.

Per il post 17 ho avuto difficoltà a creare gli oggetti:

Codice: Seleziona tutto

Set oShell = CreateObject("Shell.Application")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objSB = CreateObject("System.Text.StringBuilder")
....
Set objFTP = oShell.NameSpace(strFTP)

mi danno errori, può essere che da Strumenti --> Riferimenti, nella lista selezionare qualcosa che non ho selezionato?

Io al momento ho risolto, perché in modo mi serviva accedere ai documenti di lavoro via FTP.
Ho usato la shell e programma tipo WinCSP.
Vi faccio vedere:

Codice: Seleziona tutto

Function Test()

Dim varitem As Variant
Dim vPath As String
Dim vFile As String
Dim vFTPServ As String
Dim fNum As Long
Dim MyShell, UserName, PassWord, FtpAddress, FtpPort, OpenString As String
Dim MyDir As String

MyDir = "C:\TMP"
vPath = MyDir & "\FTP\"
UserName = "ID" '************metti qui il nome utente
PassWord = "PASS" '**************metti qui la password
FtpAddress = "XXX.XXX.XXX.XXX" '**************metti qui l'indirizzo del server FTP
FtpPort = "21" '**************metti qui la porta del server FTP

OpenString = "Open " & FtpAddress & " " & FtpPort & Chr(10) & "User " & UserName & " " & PassWord
fNum = FreeFile()
'il file FtpComm.txt contiene le istruzioni necessarie alla connessione FTP
' vai alla routine per controllare se la cartella "FTP" e il file "FtpComm.txt" esistono
' se ancora non esistono, creali
Call TextFile_doexist
'scrivi ora le istruzioni necessarie nel file "FtpComm.txt"
Open vPath & "FtpComm.txt" For Output As #fNum
Print #1, OpenString 'ftp login
Print #1, "cd main" '**************inserisci qui la ROOT DIRECTORY
Print #1, "mkdir test" '************** inserisci qui la child DIRECTORY (subdir)
Print #1, "put <localfile> [<remotefile>]" '*********** copiare file su ftp
Print #1, "close" ' close connection
Print #1, "quit" ' Quit ftp program
'avvia una shell per la versione DOS del programma WinSCP
'i comandi necessari al trasferimento vengono letti
'dal file "FtpComm.txt" creato precedentemente
MyShell = "cmd.exe /c ftp -n -s:" & vPath & "FtpComm.txt"
Shell MyShell

MsgBox "OK, il trasferimento del/dei file è stato avviato. Controlla la finestra DOS per il completamento."

End Function


Se avete qualche consiglio è ben accetto.

Grazie