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

سلام دوستان خب سوال واضحه از موضوع پستم میخاستم یه برنامه داشته باشم با دو تا تکست باکس و یه که وقتی روی دکمه کلیک میکنی اطلاعات تکست باکس هارو به سرور 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

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