Microsoft Internet transfer control

[mahmoodreza]

سلام
کسی از دوستان میتونه بگه اشکال این برنامه چیه چون کار نمیکنه.... ولی همه دستورات مثله مثالش هست...
هیچ اروری نمیگیرم ولی عمل را هم انحام نمیده.


Private Sub Command1_Click()



FTPHostname = "www.url.de/"
With Inet1
.password = "passw?"
.username = "usernam"
End With

' Inet1.Execute FTPHostname, "PUT c:/artikel.txt artikel.txt "
Inet1.Execute FTPHostname, "GET index.htm c:/index.htm"



Do While Inet1.StillExecuting

Debug.Print
DoEvents
MsgBox "ok"
Loop

Exit Sub




End Sub

[vbprogramer]

جناب شیرین سخن میتونی بیشتر توضیح بدی که می خواهی چه کار کنی ؟ :متفکر:
این inet1 چی هست؟

[mhandgz]

اقای vbprogrammer
Internet transfer control هست دیگه