前几天有一个朋友问我这个问题，我给出的方法是用程序把这个文件open，但是后来发现用这个方法虽然可以防止文件被删除，但是同时消耗的资源也太多了，所以后来我想监控一下系统信息，谁知道，删除文件的信息怎么也没找到，不知大家还有什么其他的方法可以实现这个功能，同时问一下WINSOCKET控件事件的触发循序，为什么一端穿完信息后关闭，另一端却先接到关闭信息而不是我发送的信息呢

有些文件如果是 readonly 可读的情况下,在删之前要先下 setattr 改变它的属性为 normal SetAttr "??.exe", vbNormal

不是删除文件，而是不让他删

SetAttr "??.exe", vbReadOnlyvbHidden 是隐藏

hook全局？发现是你禁止的那个文件，则拦截下命令...........

我现在的问题就是获得消息时，文件已经删除了，而且，用监控所有系统信息更占资源

我也想知，VB干不了这事吧？

别老说VB干不了什么，OK，有的时候多从自己身上找下原因，这个是是完全可以实现的，从前有N多人说VB不可以使用汇编，实践证明也是可以的，我从前下到过相应的代码，不过现在不知道跑到哪里去了，找到就发上来

如果有就太好了，先多谢您！我是想实现禁止删除磁盘中所有文件这种功能的

顶！ Deane·King找到代码了么 ？

调用debug……

代后的后代汗一个…………针对名字………………名字还搞回文的…………

请11L详细说下好么？

怀疑是windows的文件保护问题,可以在网上找一个关闭windows文件保护的注册表文件,导入后重启就可以删除了,另外VB也能用API进行注册表的修改的~~~~~~~~~~

Public Function CopyCallback(。。。。。。。。。。。。。。。。。。。 On Error Resume Next If pszSrcFile = "f:\123456789" Then '我加了这句 Dim sMsg As String Dim sSrcFile As String, sDestFile As String sSrcFile = StrFromPtr(pszSrcFile, fUnicode) if sSrcFile="C:\ABC" then '如果发生改变的文件夹名是我们监测的，那么就返回False，取消操作 CopyCallback=false exit function end if