Creare il file di comandi FTP con una lista di comandi che il client FTP verrà eseguito. Il seguente frammento di codice VBA crea un file del genere :
Dim ftpFileHandle As Integer
ftpFileHandle = FreeFile
Aperto " ftpCommand.txt " For Output As # ftpFileHandle
Stampa # ftpFileHandle , " aperto ftpserver.com "
Print # ftpFileHandle , " userid "
Print # ftpFileHandle , " password"
Print # ftpFileHandle , " inviare localfile.xls "
Print # ftpFileHandle , " recv remotefile.doc "
Print # ftpFileHandle , " bye "
Chiudere # ftpFileHandle
Sostituire " ftpserver.com "con il nome del server FTP , " userid "con il nome del proprio account in quel server e la " password " con la password . Il codice di esempio carica un foglio elettronico contenuto in un file di nome " localfile.xls " e download di un documento contenuto in un file di nome " remotefile.doc ". È possibile utilizzare uno dei comandi dalla "Lista di comandi FTP " sul sito NSF Tools prima di chiudere la sessione con "bye ".
2
Creare un batch o script eseguibile , il file che richiama il client FTP per farla eseguire il file di comandi FTP . Il seguente frammento di codice VBA crea un file del genere :
Dim batFileHandle As Integer
batFileHandle = FreeFile
Aperto " doFtp.bat " For Output As # batFileHandle
Stampa # batFileHandle , "ftp - s : ftpCommand.txt "
Chiudere # batFileHandle
3
Eseguire il file batch inserendo la seguente riga nel codice VBA :
Shell ( " doFtp.bat " ) , vbHide '' , vbMinimizedNoFocus
noti che la riga contiene due singoli apici, senza alcun carattere tra di loro , immediatamente prima del secondo comma . Il vostro programma VBA invocherà il file batch che , a sua volta, richiamare il client FTP e lo hanno eseguire la sequenza di comandi da Fase 1 .
Programmazione © www.354353.com