VB锁定文件夹问题

对于文件加密解密，特别是文件夹加密解密，一直以来都没有完美解决。原因很简单，在windows设计的时候就没有考虑到这个。所以要想把一个文件加密，人们想了很多办法，最早的是隐藏，就是设置隐藏属性，然而显示隐藏文件几乎所有人都知道，于是有的人开始在驱动器里开辟出一部分来，存放，这样就好比屋子里有个密室，虽然可以躲过大多数人的搜查，但通过扫描磁盘磁道，柱面，还是可以找到。后来有人又利用软件来看守，就是发现你打开了他看守的文件，或文件夹就进行相关的 关闭，错误提示 *** 作。最后文件加密归到压缩解压缩上面来了，就是把文件 或 文件夹 压缩成一个需要密码来揭开的压缩包，当需要用的时候，在输入密码后解压到一个临时位置并运行，这种方法安全的同时是 解压的 时间，并且解压后运行程序完毕还要记着删除.

一般的程序打不开。但360粉碎机可以粉碎…… 下面的1.txt这个路径自己改改

Private Sub Command1_Click()

On Error Resume Next

Dim A As String

Dim i As Long

Open "D:\1.txt" For Input As #1

i = 1

Do While Not EOF(1)

Line Input #1, A

i = i + 1

Open A For Binary Lock Read Write As #i

Loop

Close #1

End Sub

Open "c:\1.xls" For Binary Lock Read Write As #1

就这一行代码就行了..

补充: 你动动脑筋就行了呀.. 甚至可以直接先改此文件的名字为以1.sss , 然后在程序中进行 *** 作, form unload时,将文件改回为1.xls

---