Newsgroup: it.comp.lang.visual-basic
Titolo: [SITO COMUNE] FTP e Download automatico

Ciao Gente,
Il Sito Comune ha un programma "WebWizard" che si preoccupa di archiviare i
files e di generare i files di pubblicazione.
Il fatto e' che sarebbe bello implementare una procedura che curi in
automatico l'upload dei nuovi files sul Sito Comune.
Il WebWizard l'ho scritto io a tempo perso, ma non ho mai usato l'FTP col
controllo INET fornito col VB, e quindi non so bene come usarlo. Premesso,
ho gia' fatto 4 prove ma non avendo un server FTP a casa (nemmeno in
ufficio) per farle mi sono connesso a internet, e non desidero avere GLire
di bolletta solo per fare e testare un upload.
Avrei bisogno di una vostra mano.
Come l'ho pensata:
1) Una funzione calcola il checksum di _tutti_ i files del Sito (da bravo WM
ho una copia del sito sul mio HD). Questa funzione l'ho gia' fatta; salva
nome file, dimensione e checksum in un file checksum.ini.
2) Quando si vuole fare l'upload, vengono testati tutti i files per
compararli col file checksum.ini. Quelli diversi e assenti nel file ini (e
forse assenti nel sito sul mio HD) vengono proposti per l'upload.
3) l'utente aggiunge/toglie elementi alla lista di upload.
4) la lista di uploads viene passata alla funzione di upload che con l'FTP
aggiorna il sito su xoom.
5) il file checksum.ini viene aggiornato con la nuova situazione.
C'e' qualcuno che puo' trovare il tempo per fare il punto 4?
(ovviamente qui si lavora per la patria :-)
Saluti a tutti
--
Ciao
By -MES-   Maronese Ettore
http://ilmes.freeweb.org
(con OCX per stampare i recordset)
Sito Comune di programmatori Visual Basic
http://members.xoom.com/it_lang_vb

C'e' qualcuno che puo' trovare il tempo per fare il punto 4?
[...]

C'e' qualcuno che puo' trovare il tempo per fare il punto 4?
Non so le attuali (da circa sei mesi ho registrato Bullet Proof FTP), ma le
vecchie versioni del WS-FTP permettevano di passare dei parametri sulla
linea di comando. E' un sistema che ho usato con successo quando ho avuto
dei problemi con il controllo FTP della Mabry.
Se questa soluzione non facesse al caso tuo, comunque, posso facilmente
modificare un mio programmino VC++ (self-contained :-) ) in grado di fare
FTP automatico ad intervalli prestabiliti.
Fammi sapere
Ciao
Gian Michele Bertoni
--
Home Page: 
http://space.tin.it/computer/gbertoni


L'upload non deve funzionare a tempo, ma a comando. (es: quando viene
premuto un apposito tasto sul WebWizard).
Mi pare di capire che tu proponi un'applicazione separata che si preoccupa
di fare gli upload; La cosa piu' carina sarebbe averlo sotto forma di
sorgenti per VB5, di modo che vadano a far parte integrante del WebWizard.
Ciao, e fammi sapere


Se combino qualcosa (di buono :-) ) ti faccio sapere.
Ok, sono qua :-)
PS) Il WebWizard e' Freeware. Se a qualcuno interessa posso ripulirlo un
pochino per metterlo sul sito comune.


sorgenti per VB5, di modo che vadano a far parte integrante del WebWizard.
Ti dicevo solo quello che avevo subito (o quasi) disponibile. Tutto sommato
pero' non dovrebbe essere difficile tradurre in VB5 quelle quattro chiamate
alla WININET.DLL che uso nel programma VC++.
Nel week-end dovrei avere un po' di tempo: magari scrivo una classe
minimale, la testo e te la mando.
Ciao
Gian Michele Bertoni
P.S. Non hai "pregiudizi" contro la WININET spero? :-) (Significa che dovrai
installarti o comunque avere installato IE3.02 o superiore...)


installarti o comunque avere installato IE3.02 o superiore...)
Si, di pregiudizi ne ho da vendere :-) ma... ormai .... pure io ho
installato IE4.. :-)
Saluti

E' questo cio' di cui vai in cerca?
Lo uso regolarmente in Access. Ti funziona al primo colpo.
Non l'ho provato in VB ma quando mi serviva me lo son studiato sui libri di VB5.
Poiche' io lo uso con un solo file' ti ho messo ad esempio un anello For Next
che trasferisce 3
volte lo stesso file dandogli il valore di i come finale del nome del file.
Paolo
Private Sub Comando0_Click()
Dim i As Integer
With Inet5                                  'Inet5 e' il nome del controllo INET
    .URL = "
ftp://dominio.it
" ' solo il nome del dominio senza path successivi
    .UserName = "web"
    .Password = "Paolo"
    'passati gli estremi segue il comando execute
    'in cui il nome del file deve contenere l' intero path es:
"/usr/www/users/web/downl/prova.exe"
 For i = 1 To 3
       .Execute , "Put  C:\Temp\prova.exe /usr/www/users/web/downl/prova" & i &
".exe"
        ' questa lo fa' attendere prima di spedire con il file successivo
        While .StillExecuting = True: DoEvents: Wend
Next i
    .Execute , "CLOSE"
End With
End Sub
