VB 禁止创建文件

来源：百度知道 编辑：UC知道 时间：2024/05/31 23:21:05
VB 怎么样可以实现一个目录下 禁止创建文件呢？ 比如 锁定123这目录 然后123这目录用什么方法也不能创建文件 谁知道？100分啊
大哥大姐们，我说的是禁止创建文件， 你们说创建就删除，问题我这目录里还有其他文件呢

VB暂时实现不了

禁止创建文件不容易做到，不过你可以变通一下，如果有文件被创建，就立刻删除。
Dim r As String
Do
DoEvents
r = Dir("c:\123\*.*", vbNormal)
If r <> "" Then Kill "c:\123\" + r
Loop

运行后，程序随时监控c:\123，只要发现有文件，就Kill之。

你太死心眼了，你就不会稍微改一下吗？我改了一下，也测试了。应该好用了。

先添加一个Timer1
Private Sub Form_Load()
Timer1.Interval = 1000 '每秒钟执行一次删除操作
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
On Error Resume Next
Kill "C:\123\*.*" '如果存在任何文件，则删除之
End Sub

100分很了不起呀？VB实现不了。
文件过滤驱动。

将这个目录下的属性改乐.

'你可以变通一下,如果你的文件夹占用的内存不大的话，你可以将这些文件复制到C盘或者其它的地方，然后使用Timer空间每隔一段时间将这个文件夹删掉，在将C盘的文件复制进来就可以做到禁止创建新的文件了.代码我就不写的，很简单的。