[5分]在WIN8 或 WIN8.1 系统下不能创建文件夹

        Dim strPath As String
        strPath = "D:\系统文件\数据文件"
                   MkDir strPath      '创建指定文件夹函数
            MsgBox "创建指定文件夹成功!", vbExclamation, "提示"

上面的代码在XP,WIN7系统里都可以创建。但为什么在WIN8 或 WIN8.1 系统就不能创建呢？请哪位老师指点指点！