文件夹锁定使用vb 2010

Question

Imports System.IO

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim last As String
        FolderBrowserDialog1.ShowDialog()
        TextBox1.Text = FolderBrowserDialog1.SelectedPath
        last = Path.GetFileName(FolderBrowserDialog1.SelectedPath)
        TextBox2.Text = last
        TextBox1.Text = TextBox1.Text.Replace(".{2559a1f2-21df-11d4-bdaf-00c04f60b9f0}", "")
        TextBox2.Text = TextBox2.Text.Replace(".{2559a1f2-21df-11d4-bdaf-00c04f60b9f0}", "")

    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim text1 As String = ".{2559a1f2-21df-11d4-bdaf-00c04f60b9f0}"
        Shell("cmd / c" & "ren " & TextBox1.Text & " " & TextBox2.Text & text1)
        Shell("cmd / c" & "attrib +s +h " & TextBox1.Text & ".{2559a1f2-21df-11d4-bdaf-00c04f60b9f0}*.*" & "/S /D")
        Shell("cmd / c" & "attrib +s +h " & TextBox1.Text & ".{2559a1f2-21df-11d4-bdaf-00c04f60b9f0}" & "/S /D")
        MessageBox.Show("locked")
    End Sub
End Class

我试图用vb.net锁定文件夹，但这段代码不能让我满意，为什么?

注意:没有错误，但代码没有使文件夹锁定

Answer 1

对不起，如果我没有你想要的答案，但是:

出于安全原因，您不应该通过将文件夹重命名为
来锁定它。{2559a1f2-21df-11d4-bdaf-00c04f60b9f0}
给它一个隐藏属性。

人们可以编写一个程序来逆转这种情况:
给它一个非隐藏属性，然后将其重命名为

如果是保存秘密/机密/个人数据，我建议使用BitLocker(仅限windows的终极/企业版)或加密的WinRar存档(AES-256)或TrueCrypt。

他们加密你的文件，而不是隐藏它。

另一个安全建议:
撕碎你的秘密/机密/个人文件，而不是从回收站删除它们!文件恢复软件可以像删除它们一样简单地恢复它们