[VB.NET] ลิสต์รายชื่อไฟล์ผ่าน FTP Server ด้วย WinSCP

thongkorn

โค้ดชุดนี้จะเป็นการแสดงผลรายชื่อไฟล์ภาพจาก FTP Server ผ่านอินเทอร์เน็ตด้วยของฟรี WinSCP Net Library มาแสดงผลลงบน ListView Control ก่อน จากนั้นก็ค่อยเลือกไฟล์ภาพมาแสดงผลใน PictureBox Control อีกที โดยแอดมินจะใช้ตัวอย่างจาก Free Hosting ของ www.serv00.com เข้าไปสมัครใช้งานได้ฟรีเลยครับผม ...







มาดูโค้ดต้นฉบับเต็มกันเถอะ ...

1. Imports System.IO
   
2. Imports System.Net
   
3. Imports WinSCP
   
4. 
   
5. Public Class frmListFileHosting
   
6.     ' / --------------------------------------------------------------------------------
   
7.     '// สำหรับ HOSTING
   
8.     '// ตำแหน่งของไฟล์ภาพบน Hosting เพื่อนำมาแสดงผล
   
9.     '// แก้ไข SUB DOMAIN และชื่อ DIRECTORY ที่ต้องการแสดงผลไฟล์ภาพ
   
10.     Dim MyURL As String = "https://SUBDOMAIN.serv00.net/DIRECTORY/"
    
11.     'Dim RemoteDir As String = "domains/SUBDOMAIN.serv00.net/public_html/DIRECTORY/"
    
12.     '// Login เข้าสู่ระบบ Hosting ...
    
13.     '// FTP Hostname ต้องดูจากตอนที่ Add Account for FTP เพราะอาจจะไม่เหมือนกับตัวอย่าง
    
14.     Dim HostName As String = "s0.serv00.com"
    
15.     Dim UName As String = "USERNAME"
    
16.     Dim Pwd As String = "PASSWORD"
    
17. 
    
18.     Private Sub frmListFileHosting_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    
19.         txtRemoteDir.Text = "domains/SUBDOMAIN.serv00.net/public_html/DIRECTORY/"
    
20.         Label1.Text = "Filename: "
    
21.     End Sub
    
22. 
    
23.     ' / --------------------------------------------------------------------------------
    
24.     ' / แสดงรายชื่อไฟล์จาก Remote Directory
    
25.     ' / --------------------------------------------------------------------------------
    
26.     Private Sub btnListingClick(sender As System.Object, e As System.EventArgs) Handles btnListing.Click
    
27.         '// Initialize ListView.
    
28.         With ListView1
    
29.             .Clear()
    
30.             .View = View.Details
    
31.             .GridLines = True
    
32.             .FullRowSelect = True
    
33.             .HideSelection = False
    
34.             .MultiSelect = False
    
35.             '// Add Columns.
    
36.             .Columns.Add("Filename", Me.ListView1.Width \ 3 - 50)
    
37.             .Columns.Add("Length (KB)", Me.ListView1.Width \ 3)
    
38.             .Columns.Add("Last Modification", Me.ListView1.Width \ 3 + 20)
    
39.         End With
    
40.         '//
    
41.         Me.Cursor = Cursors.WaitCursor
    
42.         Try
    
43.             '/ Setup session options
    
44.             Dim sessionOptions As New SessionOptions
    
45.             With sessionOptions
    
46.                 .Protocol = Protocol.Ftp
    
47.                 .HostName = HostName
    
48.                 .UserName = UName
    
49.                 .Password = Pwd
    
50.                 '/ FTP ไม่ต้องใช้
    
51.                 '.SshHostKeyFingerprint = "ssh-rsa 2048 XX:XX:XX:XX:XX:XX:XX:XX:XX:XX:XX:XX:XX:XX:XX:XX"
    
52.             End With
    
53.             '//
    
54.             Using Session As New Session
    
55.                 '/ Connect with options.
    
56.                 Session.Open(sessionOptions)
    
57.                 '// กำหนด Remote Directory
    
58.                 Dim RemoteDirectory As RemoteDirectoryInfo = Session.ListDirectory(txtRemoteDir.Text)
    
59.                 Dim FileInfo As RemoteFileInfo
    
60.                 For Each FileInfo In RemoteDirectory.Files
    
61.                     Dim LV As New ListViewItem
    
62.                     If Not FileInfo.IsDirectory Or Not FileInfo.IsParentDirectory Then
    
63.                         LV = ListView1.Items.Add(FileInfo.Name)  '// --> Primary Node
    
64.                         LV.SubItems.Add(Format(FileInfo.Length / 1024, "#,##0.00"))
    
65.                         LV.SubItems.Add(FileInfo.LastWriteTime)
    
66.                     End If
    
67.                 Next
    
68.             End Using
    
69.         Catch ex As Exception
    
70.             MessageBox.Show(ex.Message)
    
71.         End Try
    
72.         Me.Cursor = Cursors.Default
    
73.         '// ปรับความกว้างของ Column ในการแสดงผลบน ListView
    
74.         'ListView1.AutoResizeColumns(ColumnHeaderAutoResizeStyle.HeaderSize)
    
75.     End Sub
    
76. 
    
77.     ' / --------------------------------------------------------------------------------
    
78.     ' / นำรายชื่อภาพจาก ListView Control มาแสดงผลใน PictureBox
    
79.     ' / --------------------------------------------------------------------------------
    
80.     Private Sub ListView1_DoubleClick(sender As Object, e As System.EventArgs) Handles ListView1.DoubleClick
    
81.         Try
    
82.             '//
    
83.             Me.Cursor = Cursors.WaitCursor
    
84.             '// รับค่าชื่อไฟล์จาก ListView1.SelectedItems(0).Text เพื่อนำมาแสดงผลบน PictureBox (picURL)
    
85.             Dim Req As WebRequest = WebRequest.Create(MyURL & ListView1.SelectedItems(0).Text)
    
86.             Dim Res As WebResponse = Req.GetResponse()
    
87.             Dim imgStream As Stream = Res.GetResponseStream()
    
88.             Dim imgPic As Image = Image.FromStream(imgStream)
    
89.             imgStream.Close()
    
90.             '/ Load File Stream into PictureBox.
    
91.             With picURL
    
92.                 picURL.Image = imgPic
    
93.                 .WaitOnLoad = True
    
94.                 .SizeMode = PictureBoxSizeMode.StretchImage
    
95.             End With
    
96.         Catch ex As Exception
    
97.             MessageBox.Show(ex.Message)
    
98.         End Try
    
99.         Me.Cursor = Cursors.Default
    
100.         Label1.Text = "Filename: " & ListView1.SelectedItems(0).Text
     
101.     End Sub
     
102. 
     
103.     Private Sub frmListFileHosting_Resize(sender As Object, e As System.EventArgs) Handles Me.Resize
     
104.         If ListView1.Columns.Count = 0 Then Return
     
105.         With ListView1
     
106.             .Columns("Filename").Width = Me.ListView1.Width \ 3 - 50
     
107.             .Columns("Length").Width = Me.ListView1.Width \ 3
     
108.             .Columns.Add("Last Modification").Width = Me.ListView1.Width \ 3 + 20
     
109.         End With
     
110.     End Sub
     
111. 
     
112.     Private Sub btnExit_Click(sender As Object, e As System.EventArgs) Handles btnExit.Click
     
113.         Me.Close()
     
114.     End Sub
     
115. 
     
116.     Private Sub frmListFileHosting_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
     
117.         Me.Dispose()
     
118.         GC.SuppressFinalize(Me)
     
119.         Application.Exit()
     
120.     End Sub
     
121. End Class

คัดลอกไปที่คลิปบอร์ด

ดาวน์โหลดโค้ดต้นฉบับ VB.NET (2010) ได้จากที่นี่ ...