چجوری میشه تو VB با INET یک فایل رو upload کرد

[parsajey]

سلام به تمام برنامه نویسان
من یه برنامه دارم با ویژوال بیسیک می نویسم که توش احتیاج دارم یه فایل رو در اینترنت upload کنم برای این کار من از کنترل INET ( Internet Transfer Control ) استفاده کردم --- می شه راهنماییم کنید که من چه جوری با این کنترل به یک FTP وصل شم و فایلم رو از محیط کامپیوتر خودم به اینترنت انتقال بدم ؟
ممنون

 

[the_king]

به کد زیر توجه کنید :

    Dim FileName As String
    FileName = Mid(FilePath, InStrRev(FilePath, "\") + 1)
    [B]Inet1[/B].Execute "ftp://" & [B]UserID[/B] & ":" & [B]Password[/B] & "@" & [B]Server[/B], "SEND """ & [B]FilePath[/B] & """ """ & FileName & """"

اگه UserID نام کاربری شما در سرور ftp و Password رمز آن باشد، و نام سرور Server باشد (مثلا file.server.com)
و قصد ارسال فایل FilePath را داشته باشید که مثلا C:\Files\MyFile.zip باشد آنگاه کد بالا ابتدا نام فایل را در FileName
جدا کرده و سپس با یک فرمان به کنترل Inet1 ، فایل را آپلود خواهد کرد.
تمامی متغیر ها از نوع String خواهند بود.