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


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