- [C#] Hướng dẫn sử dụng temp mail service api trên winform
- [C#] Hướng dẫn tạo mã thanh toán VietQR Pay không sử dụng API trên winform
- [C#] Hướng Dẫn Tạo Windows Service Đơn Giản Bằng Topshelf
- [C#] Chia sẻ source code đọc dữ liệu từ Google Sheet trên winform
- [C#] Chia sẻ source code tạo mã QR MOMO đa năng Winform
- [C#] Chia sẻ source code phần mềm lên lịch tự động chạy ứng dụng Scheduler Task Winform
- [Phần mềm] Tải và cài đặt phần mềm Sublime Text 4180 full version
- [C#] Hướng dẫn download file từ Minio Server Winform
- [C#] Hướng dẫn đăng nhập zalo login sử dụng API v4 trên winform
- [SOFTWARE] Phần mềm gởi tin nhắn Zalo Marketing Pro giá rẻ mềm nhất thị trường
- [C#] Việt hóa Text Button trên MessageBox Dialog Winform
- [DEVEXPRESS] Chia sẻ code các tạo report in nhiều hóa đơn trên XtraReport C#
- [POWER AUTOMATE] Hướng dẫn gởi tin nhắn zalo từ file Excel - No code
- [C#] Chia sẻ code lock và unlock user trong domain Window
- [DEVEXPRESS] Vẽ Biểu Đồ Stock Chứng Khoán - Công Cụ Thiết Yếu Cho Nhà Đầu Tư trên Winform
- [C#] Hướng dẫn bảo mật ứng dụng 2FA (Multi-factor Authentication) trên Winform
- [C#] Hướng dẫn convert HTML code sang PDF File trên NetCore 7 Winform
- [C#] Hướng dẫn viết ứng dụng chat với Gemini AI Google Winform
- Hướng dẫn khóa file bằng nhiều process id, không cho xóa tập tin
- Hướng dẫn cách tạo Product Id cho ứng dụng phần mềm XXXXX-XXXXX-XXXXX-XXXXX
[DEVEXPRESS] Sử dụng công cụ TreeView làm ứng dụng quản lý FTP File Manager
Xin chào các bạn, bài viết hôm nay mình chia sẻ các bạn sử dụng công cụ TreeView trên Devexpress làm công cụ Quản lý FTP File Manager.
[DEVEXPRESS] FTP File Manager Winform
Với ứng dụng code dưới đây, các bạn có thể dễ dàng tải thông tin file và folder trên ftp về phần mềm.
Giao diện demo ứng dụng FTP File Manager:
Ở App này hiển thị các thông tin: Tên file or folder, kiểu dữ liệu, kích thước file.
Khi các bạn click vào từng file hoặc folder các bạn có thể lấy được Full đường dẫn.
Source code VB.NET:
Imports System.Collections
Imports System.ComponentModel
Imports System.IO
Imports System.Text
Imports DevExpress.XtraTreeList.Nodes
Imports FluentFTP
Partial Public Class FrmMain
Dim loadCustomPath As Boolean = True
Dim ftpClient As FtpClient
Dim PATH_ROOT As String = "/"
Dim SERVER As String = "127.0.0.1" '192.168.0.78
Dim USERNAME As String = "user" 'admin
Dim PASSWORD As String = "123456" '123
Dim listMyImageCollection As List(Of MyImageCollection) = New List(Of MyImageCollection)
Public Sub New()
InitializeComponent()
ftpClient = New FtpClient(SERVER, USERNAME, PASSWORD)
ftpClient.Connect()
End Sub
Private Sub FrmMain_Load(sender As Object, e As EventArgs) Handles MyBase.Load
tree_filemanager.DataSource = New Object()
tree_filemanager.StateImageList = ImageCollection
tree_filemanager.OptionsBehavior.Editable = False
tree_filemanager.OptionsView.EnableAppearanceEvenRow = True
tree_filemanager.OptionsView.ShowCheckBoxes = True
'Dim a = GetListFileFolderFTP(PATH_ROOT)
End Sub
Protected Overrides Sub OnShown(e As EventArgs)
tree_filemanager.ExpandToLevel(1)
MyBase.OnShown(e)
End Sub
Private Function GetListFileFolderFTP(path As String) As List(Of FTPFileInfo)
Dim listData As New List(Of FTPFileInfo)
For Each item As FtpListItem In ftpClient.GetListing(path)
If item.Type = FtpFileSystemObjectType.File Then
Dim size As Long = 0
Dim ftpFileInfo As New FTPFileInfo
ftpFileInfo.FileName = item.FullName
ftpFileInfo.Size = size
ftpFileInfo.Type = "File"
listData.Add(ftpFileInfo)
Else
Dim ftpFileInfo As New FTPFileInfo
ftpFileInfo.FileName = item.FullName
ftpFileInfo.Size = 0
ftpFileInfo.Type = "Folder"
listData.Add(ftpFileInfo)
End If
Next
Return listData
End Function
Private Sub tree_filemanager_VirtualTreeGetChildNodes(sender As Object, e As DevExpress.XtraTreeList.VirtualTreeGetChildNodesInfo) Handles tree_filemanager.VirtualTreeGetChildNodes
Dim current As Cursor = Cursor.Current
Cursor.Current = Cursors.WaitCursor
If loadCustomPath Then
e.Children = New String() {PATH_ROOT}
loadCustomPath = False
Else
Try
Dim path As String = CStr(e.Node)
If Not IsFile(New DirectoryInfo(path)) Then
Dim listFileAndFolder = GetListFileFolderFTP(path)
Dim dirs() As String = listFileAndFolder.Where(Function(s) s.Type = "Folder").Select(Function(t) t.FileName).ToArray()
Dim files() As String = listFileAndFolder.Where(Function(s) s.Type = "File").Select(Function(t) t.FileName).ToArray()
Dim arr(dirs.Length + files.Length - 1) As String
dirs.CopyTo(arr, 0)
files.CopyTo(arr, dirs.Length)
e.Children = arr
Else
Dim ftpFileInfo = CType(e.Node, FTPFileInfo)
Dim listFileAndFolder = GetListFileFolderFTP(ftpFileInfo.FileName)
If ftpFileInfo.Type.Equals("Folder") Then
e.Children = listFileAndFolder
Else
e.Children = New Object() {}
End If
End If
'If ftpClient.DirectoryExists(path) Then
' Dim dirs() As String = listFileAndFolder.Where(Function(s) s.Type = "Folder").Select(Function(t) t.FileName).ToArray()
' Dim files() As String = listFileAndFolder.Where(Function(s) s.Type = "File").Select(Function(t) t.FileName).ToArray()
' Dim arr(dirs.Length + files.Length - 1) As String
' dirs.CopyTo(arr, 0)
' files.CopyTo(arr, dirs.Length)
' e.Children = arr
'Else
' e.Children = New Object() {}
'End If
Catch
e.Children = New Object() {}
End Try
End If
Cursor.Current = current
End Sub
Private Sub tree_filemanager_VirtualTreeGetCellValue(sender As Object, e As DevExpress.XtraTreeList.VirtualTreeGetCellValueInfo) Handles tree_filemanager.VirtualTreeGetCellValue
Dim di = e.Node
If e.Column Is colName Then
If di Is PATH_ROOT Then
e.CellData = di.ToString()
Else
'Dim ftpFileInfo = CType(di, FTPFileInfo)
e.CellData = New DirectoryInfo(di.ToString()).Name
End If
End If
If e.Column Is colType Then
If di Is PATH_ROOT Then
e.CellData = "Root"
Return
End If
If Not IsFile(New DirectoryInfo(di.ToString())) Then
e.CellData = "Folder"
Else
e.CellData = "File"
End If
End If
If e.Column Is colSize Then
If IsFile(New DirectoryInfo(di.ToString())) Then
e.CellData = ftpClient.GetFileSize(di.ToString())
Else
e.CellData = Nothing
End If
End If
End Sub
Private Function IsFile(ByVal info As DirectoryInfo) As Boolean
Try
Return info.Extension.Length > 0
Catch
Return False
End Try
End Function
Dim index As Integer = 3
Private Sub tree_filemanager_GetStateImage(sender As Object, e As DevExpress.XtraTreeList.GetStateImageEventArgs) Handles tree_filemanager.GetStateImage
If e.Node.GetDisplayText("Type") = "Folder" Then
e.NodeImageIndex = If(e.Node.Expanded, 1, 0)
ElseIf e.Node.GetDisplayText("Type") = "File" Then
Dim b = e.Node.GetDisplayText("Name")
Dim existFileExtension = listMyImageCollection.Any(Function(x) x.FileExtension = Path.GetExtension(e.Node.GetDisplayText("Name")))
If Not existFileExtension Then
ImageCollection.AddImage(FileIconFromExtensionHelper.FileIconLoader.GetFileIcon(e.Node.GetDisplayText("Name"), False).ToBitmap())
Dim myImage = New MyImageCollection()
myImage.FileExtension = Path.GetExtension(e.Node.GetDisplayText("Name"))
index = index + 1
myImage.Index = index
listMyImageCollection.Add(myImage)
End If
Dim myIndex = listMyImageCollection.Where(Function(x) x.FileExtension = Path.GetExtension(e.Node.GetDisplayText("Name"))).FirstOrDefault().Index
e.NodeImageIndex = myIndex
Else
e.NodeImageIndex = 3
End If
End Sub
Private Sub tree_filemanager_CustomDrawNodeCell(sender As Object, e As DevExpress.XtraTreeList.CustomDrawNodeCellEventArgs) Handles tree_filemanager.CustomDrawNodeCell
If e.Column Is Me.colSize Then
If e.Node.GetDisplayText("Type") = "File" Then
e.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far
Dim size As Int64 = Convert.ToInt64(e.Node.GetValue("Size"))
e.CellText = If(size = 0, "0 Byte", FileHelper.ToPrettySize(size))
Else
e.CellText = String.Format("<{0}>", e.Node.GetDisplayText("Type"))
End If
End If
If e.Column Is Me.colName Then
If e.Node.GetDisplayText("Type") = "File" Then
e.Appearance.Font = New Font(e.Appearance.Font, FontStyle.Bold)
End If
End If
End Sub
Private Sub tree_filemanager_AfterCheckNode(sender As Object, e As DevExpress.XtraTreeList.NodeEventArgs) Handles tree_filemanager.AfterCheckNode
If e.Node.CheckState = CheckState.Checked Then
If e.Node.GetValue(1) Is "File" Then
MsgBox("Checked: File - " & FullNameByNode(e.Node, 0))
End If
If e.Node.GetValue(1) Is "Folder" Or e.Node.GetValue(1) Is "Drive" Then
MsgBox("Checked: Folder - " & FullNameByNode(e.Node, 0))
End If
End If
If e.Node.CheckState = CheckState.Unchecked Then
If e.Node.GetValue(1) Is "File" Then
MsgBox("Unchecked: File - " & FullNameByNode(e.Node, 0))
End If
If e.Node.GetValue(1) Is "Folder" Or e.Node.GetValue(1) Is "Drive" Then
MsgBox("Unchecked: Folder - " & FullNameByNode(e.Node, 0))
End If
End If
End Sub
Private Function FullNameByNode(ByVal node As TreeListNode, ByVal columnId As Integer) As String
Dim ret As String = node.GetValue(columnId).ToString()
Do While node.ParentNode IsNot Nothing
node = node.ParentNode
ret = String.Concat(node.GetValue(columnId), "\").TrimEnd("\"c) & "\" & ret
Loop
Return ret
End Function
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
'Dim nodes As List(Of TreeListNode) = tree_filemanager.GetNodeList()
tree_filemanager.ExpandAll()
For Each node As TreeListNode In tree_filemanager.GetNodeList()
'MsgBox(node.GetDisplayText(0))
'node.SetValue("duongdan", FullNameByNode(node, 1)) ' Lấy nguyên đường dẫn
node.SetValue("duongdan", FullNameByNode(node, 0))
node.SetValue("tenfile", node.GetDisplayText("Name"))
node.SetValue("id", 1)
node.SetValue("daky", 0)
node.SetValue("nguoinhan", "")
node.SetValue("lantai", 0)
node.SetValue("nguoitao", "Tự động")
node.SetValue("ngaytao", Now())
node.SetValue("nguoisua", "")
Next
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
'tree_filemanager.ExpandToLevel(1)
loadCustomPath = True
tree_filemanager.DataSource = New Object()
tree_filemanager.ExpandToLevel(1)
End Sub
End Class
Ở bài viết này, mình sử dụng thư viện Fluent FTP để làm việc với FTP.
Các bạn, có thể tìm hiểu thêm về thư viện Fluent FTP ở đây.
Thanks for watching!