[VB.NET] โค้ดการสำรองข้อมูลหลายๆไฟล์ ทั้งแบบอัตโนมือและอัตโนมัติตามค่าเวลาที่ตั้งเอาไว้

thongkorn

แจ้งเตือนสถานะการทำงานโดยใช้ Popup Notification แทน


เมื่อโปรแกรมทำงานให้ทำการซ่อนไอคอนของโปรแกรมไปไว้ที่ System Tray


Add References ... Krypton Toolkit และ Tulpep.NotificationWindow ...


การแก้ไข Inherits เพื่อใช้งานรูปแบบ Theme ของ Kryton Toolkit ...

โค้ดการสำรองข้อมูลหลายๆไฟล์ ทั้งแบบอัตโนมือ (กดปุ่ม Backup เอง) และแบบอัตโนมัติตามค่าเวลาที่ตั้งเอาไว้ แอดมินได้ทำฟอร์มเอาไว้ 2 ชุด เพื่อความสะดวกในการนำไปใช้งานได้ทันที หรือเพื่อศึกษาการทำงานของโค้ดชุดนี้ ... สำหรับ frmAutoBackupTest.vb เอาไว้ทดสอบการใช้งานในระดับวินาที (15 - 60 วินาที) ส่วน frmAutoBackup.vb สำหรับการใช้งานจริง ในระดับชั่วโมง (1 - 24 ชั่วโมง) หรือสามารถลองปรับค่า Interval ในการเกิด Tick ของ Timer เพื่อปรับระยะเวลาการทดสอบให้น้อยลงจากเดิมเลยก็ได้ครับ ...

- หากกดปุ่ม Minimized ตัวโปรแกรมจะปิดหน้าจอลงไปเก็บไว้ที่ System Tray และการแจ้งเตือนจะใช้ Popup Notification แทนการใช้งาน MessageBox เพื่อไม่ให้รบกวนการทำงานของผู้ใช้

- นอกจากนี้ยังป้องกันการสำรองไฟล์ข้อมูลเพื่อไม่ให้ไฟล์ต้นทางและปลายทางอยู่ตำแหน่งเดียวกัน และหากไม่มีไฟล์ข้อมูลต้นทาง หรือโฟลเดอร์ปลายทาง ก็จะทำการลบออกไปจากแถวรายการของ ListView Control ...

- การเก็บข้อมูลของการสำรองไฟล์ และระยะเวลา จะเก็บเอาไว้ที่ไฟล์ INI (Initialized) มีชื่อว่า Config.ini ...

- โปรแกรมสามารถรันหรือทำงานได้อัตโนมัติ เมื่อ Windows Start ขึ้นมาทำงานในทุกๆครั้ง เพื่ออำนวยความสะดวกให้กับผู้ใช้งาน โดยไม่ต้องมากดรันโปรแกรมเอาเอง

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

1. Imports System.IO
   
2. Imports System.Text
   
3. Imports System.Runtime.InteropServices
   
4. Imports System.Windows.Forms
   
5. Imports Microsoft.Win32
   
6. 
   
7. '// .Net Framework from 4.0+
   
8. '// https://www.nuget.org/packages/Tulpep.NotificationWindow
   
9. Imports Tulpep.NotificationWindow
   
10. 
    
11. Public Class frmAutoBackup
    
12.     '// ตำแหน่งเก็บไฟล์ Config.ini
    
13.     Private iniPath As String = MyPath(Application.StartupPath) & "\Config.ini"
    
14.     '// Path เก็บไฟล์ Image
    
15.     Private imagePath = MyPath(Application.StartupPath) & "Images"
    
16.     '// Path เก็บไอคอนเพื่อใช้กับ System Tray
    
17.     Private IconPath As String = MyPath(Application.StartupPath) & "Images"
    
18.     '// ฟอนต์ของ Notifiaction
    
19.     Private TitleFont As New Font("Tahoma", 15, FontStyle.Bold)
    
20.     Private ContentFont As New Font("Tahoma", 12, FontStyle.Regular)
    
21. 
    
22.     ' ==== Notify Icon ====
    
23.     Private WithEvents TrayIcon As NotifyIcon
    
24.     Private WithEvents TrayMenu As ContextMenuStrip
    
25.     '// ==== Timer ตั้งเวลา ====
    
26.     Private WithEvents tmr As New Timer()
    
27.     Private BackupInterval As Integer = 1   '// หน่วยชั่วโมง (1 – 24) เมื่อนำไปใช้งานจริง
    
28.     Private ElapsedTime As Integer = 0        '// นับเวลาที่ผ่านไป
    
29. 
    
30.     '// ---------------------------------------------------------------------------------------------------
    
31.     '// สร้าง CheckBox แบบ Run Time เพื่อกำหนดให้รันโปรแกรมตอน Start Windows
    
32.     Dim chkStartup As New CheckBox()
    
33.     '// สร้าง ComboBox ในการตั้งเวลา
    
34.     Dim cmbInterval As New ComboBox
    
35. 
    
36. #Region "INI"
    
37.     '// --------------------------------------------------------------------------------------
    
38.     '// APIs for Read/Write INI File.
    
39.     <DllImport("kernel32.dll", CharSet:=CharSet.Unicode, SetLastError:=True)>
    
40.     Private Shared Function WritePrivateProfileString(
    
41.             lpAppName As String,
    
42.             lpKeyName As String,
    
43.             lpString As String,
    
44.             lpFileName As String) As Long
    
45.     End Function
    
46. 
    
47.     <DllImport("kernel32.dll", CharSet:=CharSet.Unicode, SetLastError:=True)>
    
48.     Private Shared Function GetPrivateProfileString(
    
49.             lpAppName As String,
    
50.             lpKeyName As String,
    
51.             lpDefault As String,
    
52.             lpReturneDstring As StringBuilder,
    
53.             nSize As Integer,
    
54.             lpFileName As String) As Integer
    
55.     End Function
    
56. 
    
57.     Private Sub WriteIni(section As String, key As String, value As String, filePath As String)
    
58.         WritePrivateProfileString(section, key, value, filePath)
    
59.     End Sub
    
60. 
    
61.     Private Function ReadIni(section As String, key As String, defaultValue As String, filePath As String) As String
    
62.         Dim sb As New StringBuilder(1024)
    
63.         GetPrivateProfileString(section, key, defaultValue, sb, sb.Capacity, filePath)
    
64.         Return sb.ToString()
    
65.     End Function
    
66. #End Region
    
67. 
    
68.     '// --------------------------------------------------------------------------------------
    
69. #Region "NOTIFICATION"
    
70.     '// Popup Notification
    
71.     Private Sub Notification(
    
72.                             ByVal img As String,
    
73.                             ByVal BodyColor As System.Drawing.Color,
    
74.                             ByVal TitleText As String,
    
75.                             ByVal TitleColor As System.Drawing.Color,
    
76.                             ByVal ContentText As String,
    
77.                             ByVal ContentColor As System.Drawing.Color
    
78.                             )
    
79.         Dim Popup As PopupNotifier = New PopupNotifier()
    
80.         Dim bitmap As Bitmap
    
81.         Try
    
82.             bitmap = Image.FromFile(imagePath & img)
    
83.             With Popup
    
84.                 .Image = bitmap
    
85.                 .BodyColor = BodyColor
    
86.                 .TitleText = TitleText
    
87.                 .TitleColor = TitleColor
    
88.                 .TitleFont = TitleFont
    
89.                 .ContentText = ContentText
    
90.                 .ContentColor = ContentColor
    
91.                 .ContentFont = ContentFont
    
92.                 .Popup()
    
93.             End With
    
94.         Catch ex As Exception
    
95.             MessageBox.Show(ex.Message)
    
96.         End Try
    
97.     End Sub
    
98. #End Region
    
99. 
    
100.     '// ---------------------------------------------- ImageList เก็บ Icon ----------------------------------------------
     
101.     Private imgList As New ImageList()
     
102. 
     
103.     '// เก็บคอลัมน์ล่าสุดที่กด กับลำดับการเรียง
     
104.     Private SortColumn As Integer = -1
     
105.     Private SortOrder As SortOrder = SortOrder.None
     
106. 
     
107.     '// --------------------------------------------------------------------------------------
     
108.     '// S T A R T . . . H E R E
     
109.     '// --------------------------------------------------------------------------------------
     
110.     Private Sub frmAutoBackup_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
     
111.         Me.MinimumSize = New Point(884, 603)    '// กำหนดขนาดของฟอร์มต่ำสุด
     
112.         '// ImageList สำหรับ Icon
     
113.         imgList.ImageSize = New Size(22, 22)    '// จะมีผลต่อความสูงของแถวในตัว ListView
     
114.         imgList.ColorDepth = ColorDepth.Depth32Bit
     
115.         lvwFile.SmallImageList = imgList
     
116. 
     
117.         '// ตั้งค่าให้กับ CheckBox เพื่อให้พื้นหลังกลมกลืนกับ ToolStrip
     
118.         chkStartup.Text = "Run on Windows Startup"
     
119.         chkStartup.Font = New Font("Tahoma", 10, FontStyle.Regular)
     
120.         chkStartup.BackColor = Color.Transparent
     
121.         Dim host As New ToolStripControlHost(chkStartup)
     
122.         ToolStrip1.Items.Add(host)
     
123.         '// Add Event Handler เพื่อกำหนดค่าการเปิดโฟลเดอร์อัตโนมัติ เมื่อ Start Windows
     
124.         AddHandler chkStartup.CheckedChanged, AddressOf chkStartup_CheckedChanged
     
125. 
     
126.         '// ตั้งค่า ComboBox เพื่อเก็บค่าเวลา
     
127.         cmbInterval.Name = "cmbInterval"
     
128.         cmbInterval.DropDownStyle = ComboBoxStyle.DropDownList
     
129.         cmbInterval.ItemHeight = 10 '// จำกัดการแสดงผล 10 Items
     
130.         cmbInterval.IntegralHeight = False
     
131.         cmbInterval.Width = 60
     
132.         '// ------------------------ ใช้กับงานจริงให้นับ 1 - 24 ชั่วโมง --------------------------
     
133.         '// เพิ่มค่า 1 - 24 ชั่วโมง
     
134.         For i As Integer = 1 To 24
     
135.             cmbInterval.Items.Add(i.ToString())
     
136.         Next
     
137.         cmbInterval.SelectedIndex = 0   '// ค่าเริ่มต้น = 1 ชั่วโมง
     
138.         BackupInterval = CInt(cmbInterval.SelectedItem)
     
139.         '// === สร้าง Label ต่อท้าย ===
     
140.         Dim lblHours As New ToolStripLabel("Hours.")
     
141.         '// ------------------------------------------------------------------------------------------
     
142. 
     
143.         '=== เพิ่มลงใน ToolStrip ===
     
144.         ToolStrip1.Items.Add(New ToolStripSeparator())
     
145.         ToolStrip1.Items.Add(New ToolStripLabel("Interval:"))
     
146.         host = New ToolStripControlHost(cmbInterval)
     
147.         ToolStrip1.Items.Add(host)
     
148.         ToolStrip1.Items.Add(lblHours)
     
149.         '=== ดักจับเหตุการณ์เปลี่ยนค่า ===
     
150.         AddHandler cmbInterval.SelectedIndexChanged, AddressOf cmbInterval_SelectedIndexChanged
     
151. 
     
152.         '// เปิด OwnerDraw สำหรับการปรับฟอนต์ใน Column Header ของ ListView Control
     
153.         '// โค้ดที่เกี่ยวข้องจะอยู่ทางด้านล่างสุด
     
154.         lvwFile.OwnerDraw = True
     
155.         Call InitializeListView()
     
156.         Call AdjustListViewColumnWidths()
     
157. 
     
158.         '// โหลดจาก Config.ini
     
159.         Call LoadConfig()
     
160.         Call SaveConfig()   '// บันทึกค่าเวลาด้วย
     
161. 
     
162.         '// -------------------------------------------- IMPORTANT --------------------------------------------
     
163.         '// Computer\HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Run
     
164.         '// ทดสอบการกำหนดให้ Run ตอน Start Windows
     
165.         If IsStartupEnabled() Then
     
166.             chkStartup.Checked = True
     
167.             'tsbBackupFile.PerformClick()    '// สั่งโปรแกรมให้สำรองข้อมูลทันที
     
168.         Else
     
169.             chkStartup.Checked = False
     
170.         End If
     
171. 
     
172.         '// สร้าง System Tray
     
173.         Call InitTrayIcon()
     
174.         '// ตั้งค่า Timer ให้เกิดการ Tick ทุกๆ 1 วินาที
     
175.         '// หากให้เวลาเร็วขึ้นโดยไม่ต้องรอให้ครบ 1 ชม. ก็ปรับลดค่า Interval ลง
     
176.         tmr.Interval = 1000
     
177.         tmr.Start()
     
178.         '// ปิดหน้าจอลงไปเก็บไว้ใน System Tray พร้อมกับการแจ้งเตือน
     
179.         'Me.WindowState = FormWindowState.Minimized
     
180.     End Sub
     
181. 
     
182. #Region "TIMER"
     
183.     '// ----------------------------------------- เมื่อใช้งานจริงให้หน่วยนับเป็นชั่วโมง ---------------------------------
     
184.     Private Sub tmr_Tick(sender As Object, e As EventArgs) Handles tmr.Tick
     
185.         ElapsedTime += 1
     
186.         '// แปลงชั่วโมงที่เลือกเป็นวินาที
     
187.         '// 1000 millisecond = 1 Second, 60 Seconds = 1 Minute, 60 Minute = 1 Hour. (3,600 Seconds)
     
188.         Dim targetSeconds As Integer = BackupInterval * 3600
     
189.         If ElapsedTime >= targetSeconds Then
     
190.             ElapsedTime = 0
     
191.             '// === เรียกทำงาน Backup Data ===
     
192.             Call tsbBackupFile_Click(Nothing, Nothing)
     
193.         End If
     
194.     End Sub
     
195. 
     
196.     Private Sub cmbInterval_SelectedIndexChanged(sender As Object, e As EventArgs)
     
197.         If cmbInterval.SelectedItem IsNot Nothing Then
     
198.             BackupInterval = CInt(cmbInterval.SelectedItem)
     
199.             ElapsedTime = 0  '// รีเซ็ตเวลาใหม่ทุกครั้งที่เปลี่ยน
     
200.             Call SaveConfig()   '// บันทึกค่าใหม่
     
201.         End If
     
202.     End Sub
     
203.     '// ---------------------------------------------------------------------------------------------------------------------
     
204. #End Region
     
205. 
     
206. #Region "STARTUP"
     
207.     '// --------------------------------------------------------------------------------------
     
208.     '// Add Event Handler เพื่อกำหนดให้โปรแกรมทำงานตอน Start Windows หรือไม่
     
209.     '// --------------------------------------------------------------------------------------
     
210.     Private Sub chkStartup_CheckedChanged(sender As System.Object, e As System.EventArgs)
     
211.         If chkStartup.Checked Then
     
212.             '// Run on Windows Start
     
213.             Call SetStartup(True)
     
214.         Else
     
215.             Call SetStartup(False)
     
216.         End If
     
217.     End Sub
     
218. 
     
219.     '// ============= สร้างค่าใน Registry เพื่อให้รันตอน Startup =============
     
220.     '// หาก enable กำหนดเป็น True จะทำการ Registry เพื่อให้โปรแกรม Run ตอน Start Windows
     
221.     '// หาก enable กำหนดเป็น False จะทำการลบ Registry ออกไป
     
222.     '// Computer\HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Run
     
223.     Private Sub SetStartup(enable As Boolean)
     
224.         Try
     
225.             Using key As RegistryKey = Registry.CurrentUser.OpenSubKey(
     
226.                 "Software\Microsoft\Windows\CurrentVersion\Run", True)
     
227.                 If key Is Nothing Then
     
228.                     MessageBox.Show("ไม่สามารถเข้าถึง Registry ได้", "รายงานความผิดพลาด", MessageBoxButtons.OK, MessageBoxIcon.Error)
     
229.                     Return
     
230.                 End If
     
231.                 If enable Then
     
232.                     key.SetValue("AutoBackup", Application.ExecutablePath)
     
233.                 Else
     
234.                     '// ลบค่าออก ถ้าไม่ต้องการให้รันอัตโนมัติ
     
235.                     If key.GetValue("AutoBackup") IsNot Nothing Then key.DeleteValue("AutoBackup")
     
236.                 End If
     
237.             End Using
     
238.         Catch ex As Exception
     
239.             MessageBox.Show("เกิดข้อผิดพลาดในการตั้งค่า Startup: " & ex.Message, "รายงานความผิดพลาด", MessageBoxButtons.OK, MessageBoxIcon.Error)
     
240.         End Try
     
241.     End Sub
     
242. 
     
243.     '// ---------------------- ทดสอบค่า Run on Windows Start ----------------------
     
244.     Private Function IsStartupEnabled() As Boolean
     
245.         Try
     
246.             Using key As RegistryKey = Registry.CurrentUser.OpenSubKey(
     
247.                 "Software\Microsoft\Windows\CurrentVersion\Run", False) '// อ่านอย่างเดียว (ReadOnly)
     
248.                 If key Is Nothing Then Return False '// ไม่สามารถเปิด Registry ได้ (ถือว่าไม่ได้ตั้งค่า)
     
249. 
     
250.                 '// ตรวจสอบว่ามีค่า "OpenMultipleFolder" หรือไม่
     
251.                 Dim value As Object = key.GetValue("AutoBackup")
     
252.                 If value IsNot Nothing Then
     
253.                     '// ตรวจสอบว่าค่าที่เก็บเป็นพาธของโปรแกรมตัวเองหรือไม่
     
254.                     Dim ProgramPath As String = Application.ExecutablePath
     
255.                     Dim RegistryPath As String = value.ToString()
     
256. 
     
257.                     '// เปรียบเทียบแบบไม่สนใจตัวพิมพ์ใหญ่/เล็ก และตัด quote ออกถ้ามี
     
258.                     Dim CleanRegistryPath As String = RegistryPath.Replace("""", "")
     
259.                     Return String.Equals(CleanRegistryPath, ProgramPath, StringComparison.OrdinalIgnoreCase)
     
260.                 Else
     
261.                     Return False
     
262.                 End If
     
263.             End Using
     
264.         Catch ex As Exception
     
265.             '// ถ้าเกิดข้อผิดพลาด เช่น สิทธิ์ไม่พอ ถือว่าไม่ได้ตั้งค่า รีเทิร์นค่า False กลับไป
     
266.             'MessageBox.Show("Error checking startup: " & ex.Message)
     
267.             Return False
     
268.         End Try
     
269.     End Function
     
270. #End Region
     
271. 
     
272. #Region "TRAYICON"
     
273.     Private Sub InitTrayIcon()
     
274.         '// โหลด Icon ที่เราเตรียมไว้
     
275.         Dim iconBackup As Icon = New Icon(Path.Combine(IconPath, "backupdisk.ico"))
     
276.         Dim iconAbout As Icon = New Icon(Path.Combine(IconPath, "about.ico"))
     
277.         Dim iconExit As Icon = New Icon(Path.Combine(IconPath, "exit.ico"))
     
278.         Dim appIcon As Icon = New Icon(Path.Combine(IconPath, "backup.ico")) '// ไอคอนหลักของโปรแกรม
     
279.         '// สร้าง ContextMenu สำหรับ System Tray
     
280.         TrayMenu = New ContextMenuStrip()
     
281. 
     
282.         ' === เมนู Backup Data ===
     
283.         Dim mnuBackup As New ToolStripMenuItem("Backup Data", iconBackup.ToBitmap())
     
284.         AddHandler mnuBackup.Click, AddressOf mnuBackup_Click
     
285.         TrayMenu.Items.Add(mnuBackup)
     
286. 
     
287.         ' === เมนู About Me ===
     
288.         Dim mnuAbout As New ToolStripMenuItem("About Me", iconAbout.ToBitmap)
     
289.         AddHandler mnuAbout.Click, AddressOf mnuAbout_Click
     
290.         TrayMenu.Items.Add(mnuAbout)
     
291. 
     
292.         ' === Separator ===
     
293.         TrayMenu.Items.Add(New ToolStripSeparator())
     
294. 
     
295.         ' === เมนู Exit ===
     
296.         Dim mnuExit As New ToolStripMenuItem("Exit", iconExit.ToBitmap)
     
297.         AddHandler mnuExit.Click, AddressOf mnuExit_Click
     
298.         TrayMenu.Items.Add(mnuExit)
     
299. 
     
300.         '// สร้าง NotifyIcon
     
301.         TrayIcon = New NotifyIcon()
     
302.         TrayIcon.Icon = appIcon
     
303.         TrayIcon.Text = "Backup Application"
     
304.         TrayIcon.ContextMenuStrip = TrayMenu
     
305.         TrayIcon.Visible = True
     
306.     End Sub
     
307. 
     
308.     '// ดับเบิ้ลคลิกที่ TrayIcon เพื่อ Restore กลับมา
     
309.     Private Sub TrayIcon_DoubleClick(sender As Object, e As EventArgs) Handles TrayIcon.DoubleClick
     
310.         Me.Show()
     
311.         Me.WindowState = FormWindowState.Normal
     
312.     End Sub
     
313. 
     
314.     '// === Event ของเมนู ===
     
315.     Private Sub mnuBackup_Click(sender As Object, e As EventArgs)
     
316.         '// เรียกใช้งานเหตุการณ์ Backup Data
     
317.         'tsbBackupFile.PerformClick()
     
318.         Me.Show()
     
319.         Me.WindowState = FormWindowState.Normal
     
320.     End Sub
     
321. 
     
322.     Private Sub mnuAbout_Click(sender As Object, e As EventArgs)
     
323.         'Dim frm As New frmAboutMe()
     
324.         'frm.ShowDialog()
     
325.         MessageBox.Show("About Me")
     
326.     End Sub
     
327. 
     
328.     Private Sub mnuExit_Click(sender As Object, e As EventArgs)
     
329.         TrayIcon.Visible = False
     
330.         Me.Close()
     
331.     End Sub
     
332. #End Region
     
333. 
     
334. #Region "LISTVIEW"
     
335.     '// --------------------------------------------------------------------------------------
     
336.     '// ตั้งค่าเริ่มต้นให้กับ ListView Control
     
337.     Sub InitializeListView()
     
338.         With lvwFile
     
339.             .View = View.Details
     
340.             .MultiSelect = False
     
341.             .HideSelection = False
     
342.             .FullRowSelect = True
     
343.             .GridLines = True
     
344.             .Columns.Clear()
     
345.             .Columns.Add("Source File", lvwFile.Width - 300)
     
346.             .Columns.Add("Destination Folder", 280)
     
347.         End With
     
348.     End Sub
     
349. 
     
350.     '// ดับเบิ้ลคลิ๊กเพื่อแก้ไขรายการแถวใน ListView Control
     
351.     Private Sub lvwFile_DoubleClick(sender As Object, e As EventArgs) Handles lvwFile.DoubleClick
     
352.         tsbEditFile.PerformClick()
     
353.     End Sub
     
354. 
     
355.     '// เมื่อคลิ๊กส่วนหัว (Column) ของ ListView จะทำการจัดเรียงข้อมูลไอเทม ListView
     
356.     Private Sub lvwFile_ColumnClick(sender As Object, e As ColumnClickEventArgs) Handles lvwFile.ColumnClick
     
357.         '// ถ้ากดซ้ำที่คอลัมน์เดิมสลับ ASC/DESC การจัดเรียงจากน้อยไปมาก หรือ มากไปน้อย
     
358.         If e.Column = SortColumn Then
     
359.             If SortOrder = SortOrder.Ascending Then
     
360.                 SortOrder = SortOrder.Descending
     
361.             Else
     
362.                 SortOrder = SortOrder.Ascending
     
363.             End If
     
364.         Else
     
365.             SortColumn = e.Column
     
366.             SortOrder = SortOrder.Ascending
     
367.         End If
     
368.         '// เรียกไปยังคลาส ListViewItemComparer
     
369.         lvwFile.ListViewItemSorter = New ListViewItemComparer(e.Column, SortOrder)
     
370.         lvwFile.Sort()
     
371.     End Sub
     
372. 
     
373.     '// ฟังก์ชันปรับความกว้างคอลัมน์ให้เต็มพื้นที่ว่าง
     
374.     Private Sub AdjustListViewColumnWidths()
     
375.         If lvwFile.Columns.Count = 0 Then Return
     
376.         If Me.WindowState = FormWindowState.Minimized Then
     
377.             Me.Hide()
     
378.             'TrayIcon.ShowBalloonTip(1000, "กำลังทำงาน", "โปรแกรมถูกย่อไปที่ System Tray", ToolTipIcon.Info)
     
379.             Call Notification("Info.png", Color.FromArgb(255, 193, 7), "INFORMATION", Color.Black, "โปรแกรมกำลังทำงานและถูกย่อไปที่ System Tray.", Color.Black)
     
380.         End If
     
381.         '// ใช้ ClientSize.Width — คือพื้นที่ใช้งานจริงของ ListView
     
382.         Dim AvailableWidth As Integer = lvwFile.ClientSize.Width
     
383.         '// รวมความกว้างของคอลัมน์ที่ไม่ต้องการให้ขยาย (ยกเว้นคอลัมน์ที่ 1)
     
384.         Dim FixedWidth As Integer = 0
     
385.         For i As Integer = 0 To lvwFile.Columns.Count - 1
     
386.             If i <> 1 Then ' คอลัมน์ที่ 1 คือคอลัมน์ที่จะขยาย
     
387.                 FixedWidth += lvwFile.Columns(i).Width
     
388.             End If
     
389.         Next
     
390.         '// คำนวณพื้นที่ที่เหลือสำหรับคอลัมน์ที่ 1
     
391.         Dim RemainingWidth As Integer = AvailableWidth - FixedWidth
     
392.         '// ป้องกันไม่ให้คอลัมน์แคบเกินไป
     
393.         If RemainingWidth < 50 Then RemainingWidth = 50
     
394.         '// ตั้งความกว้างของคอลัมน์ที่ 1
     
395.         lvwFile.Columns(1).Width = RemainingWidth
     
396.     End Sub
     
397. 
     
398.     '// เหตุการณ์การปรับขนาดจอ จะปรับระยะของหลักใน ListView ให้อัตโนมัติ
     
399.     Private Sub frmAutoBackup_Resize(sender As Object, e As System.EventArgs) Handles Me.Resize
     
400.         Call AdjustListViewColumnWidths()
     
401.     End Sub
     
402. 
     
403.     '// --------------------------------------------------------------------------------------
     
404.     '// TIPS: การปรับฟอนต์ในส่วนของ Column Header ของ ListView Control
     
405.     '// วาด Header
     
406.     '// --------------------------------------------------------------------------------------
     
407.     Private Sub lvwFile_DrawColumnHeader(sender As Object, e As DrawListViewColumnHeaderEventArgs) Handles lvwFile.DrawColumnHeader
     
408.         Using HeaderFont As New Font("Tahoma", 10, FontStyle.Bold)
     
409.             e.Graphics.FillRectangle(SystemBrushes.ControlDark, e.Bounds) '// พื้นหลัง SystemBrushes.Control
     
410.             TextRenderer.DrawText(e.Graphics, e.Header.Text, HeaderFont, e.Bounds, Color.Black, TextFormatFlags.VerticalCenter Or TextFormatFlags.VerticalCenter)
     
411.         End Using
     
412.     End Sub
     
413. 
     
414.     '// วาด Item (ให้ระบบจัดการเอง)
     
415.     Private Sub lvwFile_DrawItem(sender As Object, e As DrawListViewItemEventArgs) Handles lvwFile.DrawItem
     
416.         e.DrawDefault = True
     
417.     End Sub
     
418. 
     
419.     '// วาด SubItem (ให้ระบบจัดการเอง)
     
420.     Private Sub lvwFile_DrawSubItem(sender As Object, e As DrawListViewSubItemEventArgs) Handles lvwFile.DrawSubItem
     
421.         e.DrawDefault = True
     
422.     End Sub
     
423.     '// --------------------------------------------------------------------------------------
     
424. #End Region
     
425. 
     
426. #Region "TOOLSTRIP"
     
427.     '// ปุ่ม Add เพื่อเปิด Popup ฟอร์ม frmSelectFileFolder
     
428.     Private Sub tsbAddFile_Click(sender As Object, e As EventArgs) Handles tsbAddFile.Click
     
429.         Dim f As New frmSelectFileFolder()
     
430.         If f.ShowDialog() = DialogResult.OK Then
     
431.             Try
     
432.                 Dim Src As String = f.txtFile.Text
     
433.                 Dim Dst As String = f.txtFolder.Text
     
434.                 '// --- ดึง Icon ของไฟล์ ---
     
435.                 Dim ic As Icon = Nothing
     
436.                 If File.Exists(Src) Then
     
437.                     ic = Icon.ExtractAssociatedIcon(Src)
     
438.                     If Not imgList.Images.ContainsKey(Src) Then
     
439.                         imgList.Images.Add(Src, ic)
     
440.                     End If
     
441.                 Else
     
442.                     '// ไฟล์ไม่เจอให้ใช้ Default Icon
     
443.                     If Not imgList.Images.ContainsKey("missing") Then
     
444.                         imgList.Images.Add("missing", SystemIcons.WinLogo)
     
445.                     End If
     
446.                 End If
     
447.                 '// --- เพิ่มข้อมูลลง ListView ---
     
448.                 Dim item As New ListViewItem(Src)   '// ใช้ Full Path แทน FileName
     
449.                 If ic IsNot Nothing Then
     
450.                     item.ImageKey = Src
     
451.                 Else
     
452.                     item.ImageKey = "missing"
     
453.                 End If
     
454.                 item.Tag = Src      '// เก็บ path เต็มไว้ใน Tag
     
455.                 item.SubItems.Add(Dst)  '// คอลัมน์ที่สอง = โฟลเดอร์ปลายทาง
     
456.                 lvwFile.Items.Add(item)
     
457.                 '// --- บันทึกลง Config.INI ---
     
458.                 Call SaveConfig()
     
459.             Catch ex As Exception
     
460.                 MessageBox.Show("เกิดข้อผิดพลาด: " & ex.Message, "รายงานสถานะ", MessageBoxButtons.OK, MessageBoxIcon.Error)
     
461.             End Try
     
462.         End If
     
463.     End Sub
     
464. 
     
465.     '// ปุ่ม Edit แก้ไขรายการบนฟอร์ม frmSelectFileFolder
     
466.     Private Sub tsbEditFile_Click(sender As Object, e As EventArgs) Handles tsbEditFile.Click
     
467.         If lvwFile.SelectedItems.Count = 0 Then Exit Sub
     
468.         Dim sel As ListViewItem = lvwFile.SelectedItems(0)
     
469. 
     
470.         Dim f As New frmSelectFileFolder()
     
471.         f.txtFile.Text = sel.Tag.ToString()     '// ใช้ path เต็ม
     
472.         f.txtFolder.Text = sel.SubItems(1).Text
     
473. 
     
474.         If f.ShowDialog() = DialogResult.OK Then
     
475.             Dim newSrc As String = f.txtFile.Text
     
476.             Dim newDst As String = f.txtFolder.Text
     
477.             sel.Text = newSrc   '// ใช้ Full Path
     
478.             sel.Tag = newSrc
     
479.             sel.SubItems(1).Text = newDst
     
480.             '// อัพเดทไอคอนใหม่
     
481.             If File.Exists(newSrc) Then
     
482.                 Dim ic As Icon = Icon.ExtractAssociatedIcon(newSrc)
     
483.                 If Not imgList.Images.ContainsKey(newSrc) Then
     
484.                     imgList.Images.Add(newSrc, ic)
     
485.                 End If
     
486.                 sel.ImageKey = newSrc
     
487.             Else
     
488.                 sel.ImageKey = "missing"
     
489.             End If
     
490.             '// บันทึกลงใน INI
     
491.             Call SaveConfig()
     
492.         End If
     
493.     End Sub
     
494. 
     
495.     '// ปุ่ม Remove ลบรายการออกจาก ListView
     
496.     Private Sub tsbRemoveFile_Click(sender As Object, e As EventArgs) Handles tsbRemoveFile.Click
     
497.         If lvwFile.SelectedItems.Count = 0 Then Exit Sub
     
498.         Dim sel As ListViewItem = lvwFile.SelectedItems(0)
     
499.         Dim fullPath As String = sel.Tag.ToString()   '// Full Path เก็บอยู่ใน Tag
     
500.         Dim result As DialogResult = MessageBox.Show(
     
501.             "คุณต้องการลบรายการนี้ออกหรือไม่?" & Environment.NewLine & fullPath,
     
502.             "ยืนยันการลบ",
     
503.             MessageBoxButtons.YesNo,
     
504.             MessageBoxIcon.Question,
     
505.             MessageBoxDefaultButton.Button2
     
506.         )
     
507.         If result = DialogResult.Yes Then
     
508.             lvwFile.Items.Remove(sel)
     
509.             '// บันทึกลงใน INI
     
510.             Call SaveConfig()
     
511.         End If
     
512.     End Sub
     
513. 
     
514.     '// ปุ่ม Backup คัดลอกไฟล์
     
515.     Private Sub tsbBackupFile_Click(sender As Object, e As EventArgs) Handles tsbBackupFile.Click
     
516.         '// ตรวจสอบก่อนว่ามีไฟล์ใน ListView หรือไม่
     
517.         If lvwFile.Items.Count = 0 Then
     
518.             'MessageBox.Show("ยังไม่มีรายการไฟล์สำหรับสำรองข้อมูล", "Report Status", MessageBoxButtons.OK, MessageBoxIcon.Warning)
     
519.             Call Notification("Warning.png", Color.Red, "WARNING", Color.Black, "ยังไม่มีรายการไฟล์สำหรับสำรองข้อมูล.", Color.Black)
     
520.             Exit Sub
     
521.         End If
     
522.         '// เริ่มทำการสำรองไฟล์ (วนถอยหลังเพื่อสามารถลบได้)
     
523.         For i As Integer = lvwFile.Items.Count - 1 To 0 Step -1
     
524.             Dim item As ListViewItem = lvwFile.Items(i)
     
525.             Dim Source As String = item.Tag.ToString()
     
526.             Dim DestFolder As String = item.SubItems(1).Text
     
527. 
     
528.             '// ตรวจสอบว่ามีไฟล์ต้นทางและโฟลเดอร์ปลายทางหรือไม่
     
529.             If Not File.Exists(Source) OrElse Not Directory.Exists(DestFolder) Then
     
530.                 '// ถ้าไม่เจอต้องลบรายการออกจากแถวใน ListView และบันทึกข้อมูลลงไฟล์ INI ใหม่อีกรอบ
     
531.                 lvwFile.Items.RemoveAt(i)
     
532.                 Call SaveConfig()
     
533.                 Continue For
     
534.             End If
     
535. 
     
536.             Try
     
537.                 Dim DestFile As String = Path.Combine(DestFolder, Path.GetFileName(Source))
     
538.                 File.Copy(Source, DestFile, True)
     
539.             Catch ex As Exception
     
540.                 '// ไม่ต้องโชว์ Error
     
541.                 'MessageBox.Show(ex.Message, "Report Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
     
542.             End Try
     
543.         Next
     
544.         'MessageBox.Show("Backup Completed!", "Report Status", MessageBoxButtons.OK, MessageBoxIcon.Information)
     
545.         Call Notification("Success.png", Color.FromArgb(40, 167, 69), "SUCCESS", Color.Black, "การสำรองข้อมูลเสร็จสิ้นสมบูรณ์.", Color.Black)
     
546.         ElapsedTime = 0
     
547.     End Sub
     
548. #End Region
     
549. 
     
550. #Region "CONFIG"
     
551.     '// ------------------------------------ โหลดจาก Config.ini ------------------------------------
     
552.     Private Sub LoadConfig()
     
553.         lvwFile.Items.Clear()
     
554.         Dim idx As Integer = 1
     
555.         Do
     
556.             Dim Src As String = ReadIni("BackupData", "SourceFile" & idx, "", iniPath).Replace("""", "")
     
557.             Dim Dest As String = ReadIni("BackupData", "DestinationFile" & idx, "", iniPath).Replace("""", "")
     
558. 
     
559.             If String.IsNullOrWhiteSpace(Src) OrElse String.IsNullOrWhiteSpace(Dest) Then Exit Do
     
560. 
     
561.             Dim iconKey As String = Src
     
562.             If Not imgList.Images.ContainsKey(iconKey) Then
     
563.                 Try
     
564.                     If File.Exists(Src) Then
     
565.                         Dim ic As Icon = Icon.ExtractAssociatedIcon(Src)
     
566.                         imgList.Images.Add(iconKey, ic)
     
567.                     Else
     
568.                         If Not imgList.Images.ContainsKey("missing") Then
     
569.                             imgList.Images.Add("missing", SystemIcons.WinLogo)
     
570.                         End If
     
571.                         iconKey = "missing"
     
572.                     End If
     
573.                 Catch ex As Exception
     
574.                     If Not imgList.Images.ContainsKey("missing") Then
     
575.                         imgList.Images.Add("missing", SystemIcons.WinLogo)
     
576.                     End If
     
577.                     iconKey = "missing"
     
578.                 End Try
     
579.             End If
     
580.             '// ใช้ Full Path แสดงใน ListView
     
581.             Dim item As New ListViewItem(Src)
     
582.             item.ImageKey = iconKey
     
583.             item.Tag = Src
     
584.             item.SubItems.Add(Dest)
     
585.             lvwFile.Items.Add(item)
     
586.             idx += 1
     
587.         Loop
     
588.         '// โหลดค่าช่วงเวลา Timer จาก Config
     
589.         Dim intervalStr As String = ReadIni("Timer", "Interval", "1", iniPath)
     
590.         Dim intervalVal As Integer
     
591.         If Integer.TryParse(intervalStr, intervalVal) Then
     
592.             BackupInterval = intervalVal   '// หน่วยนับเป็นชั่วโมง
     
593.             '// ------------------------------------------------------------------------------
     
594.             '// อัปเดต ComboBox cmbInterval ถ้ามีอยู่
     
595.             For i As Integer = 0 To cmbInterval.Items.Count - 1
     
596.                 If cmbInterval.Items(i).ToString() = intervalVal.ToString() Then
     
597.                     cmbInterval.SelectedIndex = i
     
598.                     Exit For
     
599.                 End If
     
600.             Next
     
601.         End If
     
602.     End Sub
     
603. 
     
604.     '// ------------------------------------ บันทึกลง Config.ini ------------------------------------
     
605.     Private Sub SaveConfig()
     
606.         '// ลบ Section เก่าทั้งหมดก่อน
     
607.         WriteIni("BackupData", Nothing, Nothing, iniPath)
     
608. 
     
609.         '// เขียนใหม่ตาม ListView ที่เหลือ
     
610.         For i As Integer = 0 To lvwFile.Items.Count - 1
     
611.             Dim Src As String = lvwFile.Items(i).Tag.ToString()
     
612.             Dim Dest As String = lvwFile.Items(i).SubItems(1).Text
     
613. 
     
614.             WriteIni("BackupData", "SourceFile" & (i + 1), """" & Src & """", iniPath)
     
615.             WriteIni("BackupData", "DestinationFile" & (i + 1), """" & Dest & """", iniPath)
     
616.         Next
     
617.         '// เขียนค่า Timer Interval
     
618.         If cmbInterval.SelectedItem IsNot Nothing Then
     
619.             WriteIni("Timer", "Interval", cmbInterval.SelectedItem.ToString(), iniPath)
     
620.         Else
     
621.             '// การใช้งานจริงมีหน่วยนับเป็นชั่วโมง
     
622.             WriteIni("Timer", "Interval", BackupInterval.ToString(), iniPath)  '// หน่วยนับเป็นชั่วโมง
     
623.         End If
     
624.     End Sub
     
625. #End Region
     
626. 
     
627.     Private Sub tsbExit_Click(sender As System.Object, e As System.EventArgs) Handles tsbExit.Click
     
628.         Me.Close()
     
629.     End Sub
     
630. 
     
631.     '// Event ตอนปิดฟอร์มหลัก
     
632.     Private Sub frmBackypData_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
     
633.         Try
     
634.             If TrayIcon IsNot Nothing Then
     
635.                 TrayIcon.Visible = False
     
636.                 TrayIcon.Dispose()
     
637.             End If
     
638.         Catch
     
639.         End Try
     
640.     End Sub
     
641. 
     
642.     '// เผื่อกรณีปิดโปรแกรมด้วย Application.Exit
     
643.     Protected Overrides Sub Finalize()
     
644.         Try
     
645.             If TrayIcon IsNot Nothing Then
     
646.                 TrayIcon.Visible = False
     
647.                 TrayIcon.Dispose()
     
648.             End If
     
649.         Finally
     
650.             MyBase.Finalize()
     
651.         End Try
     
652.     End Sub
     
653. 
     
654. 
     
655. #Region "FUNCTION"
     
656.     '// --------------------------------------------------------------------------------
     
657.     '// Get my project path
     
658.     '// AppPath = C:\My Project\bin\debug
     
659.     '// Replace "\bin\debug" with ""
     
660.     '// Return : C:\My Project\
     
661.     Function MyPath(ByVal AppPath As String) As String
     
662.         Dim p = AppPath.ToLower().Replace("\bin\debug", "").Replace("\bin\release", "").Replace("\bin\x86\debug", "").Replace("\bin\x86\release", "")
     
663.         '// Chr(92) คือ ASCII Code ของเครื่องหมาย Back Slash
     
664.         If Not p.EndsWith(Chr(92)) Then p &= Chr(92)
     
665.         Return p
     
666.     End Function
     
667. #End Region
     
668. 
     
669. End Class

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

โค้ดในการเบราซ์ไฟล์และกำหนดโฟลเดอร์ปลายทางในการสำรองข้อมูล ... frmSelectFileFolder.vb

1. Imports System.IO
   
2. 
   
3. Public Class frmSelectFileFolder
   
4. 
   
5.     Private Sub btnBrowseFile_Click(sender As Object, e As EventArgs) Handles btnBrowseFile.Click
   
6.         Using ofd As New OpenFileDialog
   
7.             ofd.Filter = "All Files (*.*)|*.*"
   
8.             If ofd.ShowDialog() = DialogResult.OK Then
   
9.                 txtFile.Text = ofd.FileName
   
10.             End If
    
11.         End Using
    
12.     End Sub
    
13. 
    
14.     Private Sub btnBrowseFolder_Click(sender As Object, e As EventArgs) Handles btnBrowseFolder.Click
    
15.         Using fbd As New FolderBrowserDialog
    
16.             fbd.Description = "เลือกโฟลเดอร์ที่ต้องการ"
    
17.             If fbd.ShowDialog() = DialogResult.OK Then
    
18.                 txtFolder.Text = fbd.SelectedPath
    
19.             End If
    
20.         End Using
    
21.     End Sub
    
22. 
    
23.     '// --------------------------------------------------------------------------------------
    
24.     Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
    
25.         If txtFile.Text.Trim = "" Or txtFolder.Text.Trim = "" Then
    
26.             MessageBox.Show("กรุณาเลือกไฟล์และโฟลเดอร์ปลายทาง", "รายงานสถานะ", MessageBoxButtons.OK, MessageBoxIcon.Warning)
    
27.             Exit Sub
    
28.         End If
    
29. 
    
30.         '// ตรวจสอบว่า Source กับ Destination เป็นโฟลเดอร์เดียวกันหรือไม่
    
31.         Dim sourceFile As String = txtFile.Text.Trim
    
32.         Dim destFolder As String = txtFolder.Text.Trim
    
33. 
    
34.         Try
    
35.             Dim sourceFolder As String = Path.GetDirectoryName(sourceFile)
    
36.             '// เปรียบเทียบแบบ Case-Insensitive และตัด \ ท้ายออกก่อนเทียบ
    
37.             If String.Equals(sourceFolder.TrimEnd(""c), destFolder.TrimEnd(""c), StringComparison.OrdinalIgnoreCase) Then
    
38.                 MessageBox.Show("ไม่สามารถเลือกโฟลเดอร์ปลายทางที่ตรงกับโฟลเดอร์ของไฟล์ต้นทางได้", "รายงานสถานะ", MessageBoxButtons.OK, MessageBoxIcon.Error)
    
39.                 Exit Sub
    
40.             End If
    
41.         Catch ex As Exception
    
42.             MessageBox.Show("เกิดข้อผิดพลาดในการตรวจสอบโฟลเดอร์: " & ex.Message, "รายงานสถานะ", MessageBoxButtons.OK, MessageBoxIcon.Error)
    
43.             Exit Sub
    
44.         End Try
    
45.         Me.DialogResult = DialogResult.OK
    
46.         Me.Close()
    
47.     End Sub
    
48. 
    
49.     Private Sub btnCancel_Click(sender As Object, e As EventArgs) Handles btnCancel.Click
    
50.         Me.DialogResult = DialogResult.Cancel
    
51.         Me.Close()
    
52.     End Sub
    
53. 
    
54.     Private Sub frmSelectFileFolder_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    
55.         Me.Height = 195
    
56.         Me.MinimumSize = New Size(Me.Width, 195)
    
57.     End Sub
    
58. 
    
59.     Private Sub frmSelectFileFolder_Resize(sender As Object, e As System.EventArgs) Handles Me.Resize
    
60.         '// ถ้าความสูงไม่เท่ากับค่าที่ต้องการปรับกลับทันที เพื่อไม่ให้ความสูงของฟอร์มเกินที่กำหนด
    
61.         If Me.Height <> 195 Then Me.Height = 195
    
62.     End Sub
    
63. 
    
64.     Private Sub txtFile_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtFile.KeyPress
    
65.         e.Handled = True
    
66.     End Sub
    
67. 
    
68.     Private Sub txtFolder_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtFolder.KeyPress
    
69.         e.Handled = True
    
70.     End Sub
    
71. End Class

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

โค้ดในการจัดเรียงข้อมูลบนตัว ListView Control ... ListViewItemComparer.vb

1. '// คลาสสำหรับจัดเรียงข้อมูลจากการคลิ๊กเมาส์ที่ส่วนหัวหรือหลักของ ListView
   
2. Public Class ListViewItemComparer
   
3.     Implements IComparer
   
4. 
   
5.     Private col As Integer
   
6.     Private order As SortOrder
   
7. 
   
8.     Public Sub New(column As Integer, sortOrder As SortOrder)
   
9.         col = column
   
10.         order = sortOrder
    
11.     End Sub
    
12. 
    
13.     Public Function Compare(x As Object, y As Object) As Integer Implements IComparer.Compare
    
14.         Dim lviX As ListViewItem = CType(x, ListViewItem)
    
15.         Dim lviY As ListViewItem = CType(y, ListViewItem)
    
16.         Dim result As Integer = String.Compare(lviX.SubItems(col).Text, lviY.SubItems(col).Text)
    
17.         If order = SortOrder.Descending Then result = -result
    
18.         Return result
    
19.     End Function
    
20. End Class

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

ดาวน์โหลดโค้ดฉบับเต็ม VB.NET (2010) + .Net Framework 4.0 ได้ที่นี่ ...