مرجع کامل Upload فایل به سرور از طریق FTP :

[asilverisis]

مرجع کامل ساده ترین روش Upload فایل به سرور از طریق FTP :
برای این کار باید 3 مرحله زیر را به ترتیب انجام داد :
1. نصب IIS و FTP Service
2. ایجاد یک Virtual Directory (FTP Site) در IIS
3. نوشتن برنامه برای ارسال فایل به FTP
1 ) نصب IIS و FTP Service
باید IIS را به همراه FTP Service نصب کنید و اگر IIS نصب هست FTP Service را به آن اضافه کنید.
برای این کار از مسیر زیر استفاده کنید :
Control Panel > Add or Remove Programs > Add/Remove windows components
در این پنجره Internet Information Service (IIS) را انتخاب کنید و دکمه Details را زده و File Transfer Protocol (FTP) Service را تیک بزنید ) اگر از ویندوز Server استفاده می کنید IISدر Details ، Application Server قرار دارد).
دکمه Next را زده و با قرار دادن CD ویندوز منتظر نصب IIS باشید .
2) ایجاد یک Virtual Directory (FTP Site) در IIS
ابتدا پوشه ای را که می خواهید فایل ها در آن ،Upload شوند در هر مسیر دلخواه بسازید ( مثلا : Uploaded_Files)
حالا IIS را از مسیر زیر باز کنید :
Control Panel > Administrative Tools > Internet Information Services
در Tree view سمت چپ به آدرس زیر بروید :
[Server Name] > FTP Sites > Default FTP Sites
راست کلیک کنید و از زیر منوی New گزینه Virtual Directory… را انتخاب کنید ،
در ویزارد ظاهر شده در مرحله اول باید یک Alias (نام) برای FTP مشخص کنید که این در شبکه معتبر هست ( مثلا : FTP_Upload) و Next
در مرحله بعد مسیر پوشه ای را که در مرحله قبل ایجاد کردید (پوشه Uploaded_Files) تعیین کنید و Next
در این مرحله هر دو مجوز Read و Write را تیک بزنید .
کار شما در Server با پایان رسیده حالا وقت اونه که برنامه ای بنویسید که با اجرا در هر Client بتونید فایل مورد نظرتون رو Upload کنید .
3) نوشتن برنامه برای ارسال فایل به FTP :
یک فرم بسازید با یک TextBox ، یک دکمه Browse و یک دکمه Upload و یک File Open Dialog
برای دکمه Browse کد زیر را بنویسید :


Private Sub btnBrowse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBrowse.Click
If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
TxtPath.Text = OpenFileDialog1.FileName
End If
End Sub

و برای دکمه Upload کد زیر :



Private Sub btnupload_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnupload.Click

Try

Dim FileName As String = TxtPath.Text.Substring(TxtPath.Text.LastIndexOf("\") + 1)
My.Computer.Network.UploadFile(TxtPath.Text, "ftp://Server Name/FTP_Upload/" & FileName)

Catch ex As Exception
Msgbox(ex.Message)

End Try

End Sub

حالا می تونید این برنامه رو روی هر Client اجرا بکنید و فایل upload کنید.
امیدوارم برای دوستان مطلب مفیدی بوده باشه.
موفق و موید.