|
Caute Nechce mi to stiahnut subor a ja neviem preco.Myslim si ze mam tu chybu ale niesom si isti "Inet1.Execute , "GET subor.xxx" & (tempdir)" . Pomozte prosim.Dakujem
Private Sub stiahny()
Set fso = CreateObject("Scripting.FileSystemObject")
tempdir = (fso.GetSpecialFolder(2) & "\xxxxxxx.xxx")
Inet1.AccessType = icUseDefault
'URL of FTP Site goes here.
Inet1.URL = "ftp://www.xxxxxxxxxxx.xx.xx"
Inet1.UserName = "xxxx.xxxxxxxxxxx.xx.xx"
Inet1.Password = "xxxxxxxxxxx"
Inet1.RequestTimeout = 40
' GET Command here.
' download welcome.txt and place it on c:\welcome.txt
Inet1.Execute , "GET subor.xxx" & (tempdir)
Do While Inet1.StillExecuting
DoEvents
Loop
Update.Label1.Caption = "Zatvor program xxxxxxx a pokracuj v instalacii!"
Shell (tempdir)
End Sub
|