1 2
|
<ol class="decimal"><li style="">fichier = FreeFile</li><li style="">Open "C:\FichierInternet.txt" For Output As #fichier</li><li style="">Print #fichier, "Hello World :-)"</li><li style="">Close #fichier</li><li style="">DoEvents</li><li style="">fichier = FreeFile</li><li style="">Open "C:\FTP.txt" For Output As #fichier</li><li style="">Print #fichier, "open nom_du_domaine"</li><li style="">Print #fichier, "nom_de_votre site"</li><li style="">Print #fichier, "votre_mot_de_passe"</li><li style="">Print #fichier, "bin"</li><li style="">Print #fichier, "lcd C:\"</li><li style="">Print #fichier, "put C:\FichierInternet.txt""</li><li style="">Print #fichier, "bye"</li><li style="">Close #fichier</li><li style="">DoEvents</li><li style="">retvale = Shell("ftp.exe -s:C:\FTP.txt", vbHide)</li></ol> |
Partager