帮我看看我的代码哪里错了？

Question

Dim a As String
a = App.Path + "\zp"     'a="C:\Program Files\sky2006(考试系统)\zp"
If Dir(a) = "" Then '如果文件不存在就创建文件
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CreateFolder (a) '创建文件
Dim RetVal As Long
    RetVal = Shell("net share AAA=" & a & "", 0) '设置文件夹共享
    If RetVal = 0 Then
        MsgBox ("Error")
    End If
End If
为什么我写的代码不能让文件夹共享呢？可几创建文件夹

Answer 1

用有admin权限的账户运行这个程序就可以了

Answer 2

C:\Program Files\
和windows
这些个目录的权限有区别我program可以建立　估计你是ntfs不一样
把C:\Program Files\设为everyone可读可写看看

Answer 3

实际上你这个程序已经可以完成你的功能了因为你生成以后运行路径应该是让他们自己设的不应该在Program Files下运行　反而应该是你 D:\1\考试系统
这样的目录

Answer 4

系统是允许共享文件
那请问怎么 让他在   Program Files下运行

Answer 5

我program可以建立　估计你是ntfs不一样
把C:\Program Files\设为everyone可读可写看看