VB-文件夹保护

h = CreateFile(

                    "D:\文件夹",

                    GENERIC_READ,

                     0  ,   NULL,

                     OPEN_EXISTING,

                     File_flag_backup_semantics,

                     NULL

                    )

注：

GENERIC_READ：&H80000000

OPEN_EXISTING：3

File_flag_backup_semantics：&H2000000

 

此API是以独占方式打开文件夹，所以用户不能删除、更改、打开此文件夹。