[VB.NET] การล็อคและปลดล็อคโฟลเดอร์

thongkorn

โค้ดชุดนี้เป็น Demostrate เพื่อทำการทดสอบ การล็อคและปลดล็อคโฟลเดอร์ ในการแสดงผลของไฟล์ภาพออกมา โดยการใช้ Namespace System.Security ลักษณะการทำงาน คือเป็นการตั้งค่า Permission ด้วยโค้ดโปรแกรม ในการโหลดไฟล์ภาพมาแสดงผลจะต้องปลดล็อคโฟลเดอร์ก่อน จากนั้นก็ทำการล็อคโฟลเดอร์ใหม่อีกครั้ง ทำให้ไม่สามารถเปิดเข้าไปดูไฟล์ต่างๆในโฟลเดอร์ได้นั่นเอง ...



มาดูโค้ดกันเถอะ ...

1. Imports System.IO
   
2. Imports System.Security.AccessControl
   
3. 
   
4. Public Class frmLockUnlockFolder
   
5. 
   
6.     Dim strPath As String = Application.StartupPath.ToLower.Replace("bin\debug", "").Replace("bin\release", "") & "Images"
   
7. 
   
8.     '// START HERE
   
9.     Private Sub frmLockUnlockFolder_Load(sender As Object, e As System.EventArgs) Handles Me.Load
   
10.         Label1.Text = ""
    
11.         With PictureBox1
    
12.             .SizeMode = PictureBoxSizeMode.StretchImage
    
13.             .Image = Image.FromFile(strPath & "people.png") '\\ Initialize to show sample image.
    
14.         End With
    
15.         '// Start Lock or set permission with code.
    
16.         Call LockFolder()
    
17.     End Sub
    
18. 
    
19.     '// Browse any folder.
    
20.     Private Sub btnFolderBrowse_Click(sender As System.Object, e As System.EventArgs) Handles btnFolderBrowse.Click
    
21.         Dim dlgFolderBrowse As New FolderBrowserDialog
    
22.         dlgFolderBrowse.SelectedPath = strPath
    
23.         '// If users select cancel then exit sub.
    
24.         If dlgFolderBrowse.ShowDialog() = Windows.Forms.DialogResult.Cancel Then Exit Sub
    
25.         '//
    
26.         If Microsoft.VisualBasic.Right(dlgFolderBrowse.SelectedPath, 1) <> "" Then dlgFolderBrowse.SelectedPath = dlgFolderBrowse.SelectedPath & ""
    
27.         strPath = dlgFolderBrowse.SelectedPath
    
28.         Try
    
29.             '// Create ImageList dynamically.
    
30.             Dim img As New ImageList
    
31.             With img
    
32.                 .ImageSize = New Point(128, 128)
    
33.                 .ColorDepth = ColorDepth.Depth32Bit
    
34.             End With
    
35. 
    
36.             '// Before displaying the image, the folder must be Unlock first.
    
37.             Call UnlockFolder()
    
38. 
    
39.             Dim itemFolder As New List(Of ListViewItem)
    
40.             For Each imgFile In Directory.GetFiles(dlgFolderBrowse.SelectedPath.ToString())
    
41.                 If imgFile.Contains(".png") Or imgFile.Contains(".jpg") Or imgFile.Contains(".bmp") Or imgFile.Contains(".gif") Then
    
42.                     img.Images.Add(Image.FromFile(imgFile))
    
43.                     itemFolder.Add(New ListViewItem(Path.GetFileName(imgFile)) With {.ImageIndex = img.Images.Count - 1})
    
44.                 End If
    
45.             Next
    
46.             With ListView1
    
47.                 .Items.Clear()
    
48.                 .View = View.LargeIcon
    
49.                 .LargeImageList = img
    
50.                 .Items.AddRange(itemFolder.ToArray())
    
51.             End With
    
52. 
    
53.         Catch ex As Exception
    
54.             MessageBox.Show(ex.Message, "Report Status", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
    
55.         End Try
    
56.         '// When the image is displayed then Lock the folder again.
    
57.         Call LockFolder()
    
58.     End Sub
    
59. 
    
60.     Private Sub ListView1_MouseClick(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles ListView1.MouseClick
    
61.         Dim item As ListViewItem = ListView1.HitTest(e.Location).Item
    
62.         If item IsNot Nothing Then
    
63.             Me.PictureBox1.Image = Image.FromFile(strPath & item.Text)
    
64.             Label1.Text = "Image : " & strPath & item.Text
    
65.         End If
    
66.     End Sub
    
67. 
    
68.     Private Sub ListView1_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles ListView1.SelectedIndexChanged
    
69.         'For Each item As ListViewItem In ListView1.SelectedItems
    
70.         'MessageBox.Show(item.Text)
    
71.         'Next
    
72.     End Sub
    
73. 
    
74.     ' / ------------------------------------------------------------------------------------------
    
75.     '// Set Permission for lock/unlock folder with code.
    
76.     Private Sub LockFolder()
    
77.         Dim fs As FileSystemSecurity = File.GetAccessControl(strPath)
    
78.         fs.AddAccessRule(New FileSystemAccessRule(Environment.UserName, FileSystemRights.FullControl, AccessControlType.Deny))
    
79.         File.SetAccessControl(strPath, fs)
    
80.     End Sub
    
81. 
    
82.     Private Sub UnlockFolder()
    
83.         Dim fs As FileSystemSecurity = File.GetAccessControl(strPath)
    
84.         fs.RemoveAccessRule(New FileSystemAccessRule(Environment.UserName, FileSystemRights.FullControl, AccessControlType.Deny))
    
85.         File.SetAccessControl(strPath, fs)
    
86.     End Sub
    
87.     ' / ------------------------------------------------------------------------------------------
    
88. 
    
89.     Private Sub frmLockUnlockFolder_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
    
90.         Call UnlockFolder()    '// Unlock before the end of the program.
    
91.         Me.Dispose()
    
92.         GC.SuppressFinalize(Me)
    
93.         Application.Exit()
    
94.     End Sub
    
95. 
    
96.     Private Sub btnExit_Click(sender As System.Object, e As System.EventArgs) Handles btnExit.Click
    
97.         Me.Close()
    
98.     End Sub
    
99. End Class

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

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