用hook禁止或提示用户不能修改（删除、移动、重命名）指定的某文件夹

Question

注意不是事后检测。以下为高手 supergreenbean (超级绿豆 - 良药苦口,不吃也得吃) 的文章，但是小弟不才不知道怎么调用，（付代码下载） 另：是不是还有其他文章啊，他这是（一），还有（二）（三）吗？我不知道地址，麻烦各位高手告诉我如何调用或其他内容地址，豆豆高手啊你不潜水出来拉小弟一把
系列专题：【附源码】Windows Shell接口之VB实现（一）：ICopyHook接口 
http://community.csdn.net/Expert/topic/3105/3105437.xml?temp=.3113367

Answer 1

后面没有写了，因为实在太懒了，hoho~
不过你可以去我blog上看看其他的东西玩耍玩耍至于控制的话，你只要判断传进来的文件夹名，然后返回True或者False就可以了阿

Answer 2

大哥你总算出山了哈，先谢谢
不过我真的很笨的：
我不清楚该怎样填写调用CopyCallback函数时的参数，pszSrcFile是全路径还是就是文件夹名哦，还有其他参数我都不知道？我试着直接在函数内做判断好象没效果哦
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)还有你的blog，怎么找啊？告诉我地址吧:)

Answer 3

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