ارسال محتویات دو تکست باکس به سرور ftp با کامپوننت های خود ویبی6

[reza558]

سلام دوستان خب سوال واضحه از موضوع پستم میخاستم یه برنامه داشته باشم با دو تا تکست باکس و یه که وقتی روی دکمه کلیک میکنی اطلاعات تکست باکس هارو به سرور ftp که یوزر وپسوردش رو داخل کد نویسی نوشتیم ارسال کنه و برای این کار از کامپیوننتی استفاده بشه که داخل سیستم های دیگران هم جواب بده..یعنی نیازی نباشه که دیگه طرف کامپوننتی رو جداگانه دانلود و نصب کنه..من سرچ کردم تو اینترنت این کد رو به من داد اما متاسفانه کار نداد..

Dim LocalPath As String
Dim RemotePath As String

LocalPath = Chr(34) & "Path-To-Local-File" & Chr(34)
RemotePath = Chr(34) & "Path-To-Remote-File" & Chr(34)

With Inet1
.AccessType = icDirect
.Protocol = icFTP

.UserName = "your-user-name"
.Password = "your-password"
.RemoteHost = "your-website"

.Execute .URL, "PUT " & LocalPath & " " & RemotePath

While .StillExecuting
DoEvents
Wend

.Execute , "CLOSE"
End With
End With


به نظر شما مشکل از کجا میتونه باشه آیا امکان داره مشکل از فایروال بوده باشه؟؟:متفکر::متفکر::متفکر:
ممنون میشم یک نفر لطف کنه کد درست رو که کار بده برای من قرار بده یه دنیا ممنون میشم تشکر):