高分求教：createdirectory 函数能不能在映射盘上建议文件夹，如果不能，应该如何建立？

[zhysecond]

想在网络映射盘（比如Z：盘）上建立一个文件夹，而且要求是在用户未登录时能过windows的任务计划自动建立，不知道有什么方法可以在网络映射盘上建立文件夹。

[rainstormmaster]

//createdirectory 函数能不能在映射盘上建议文件夹

可以，只要有足够的权限

[zhysecond]

比如本机上建立了另一台服务器上一共享文件夹映射：S: \\192.168.1.1\work
以下是我的代码：
Private Declare Function CreateDirectory Lib "kernel32" Alias "CreateDirectoryA" (ByVal lpPathName As String, lpSecurityAttributes As SECURITY_ATTRIBUTES) As Long

Private Type SECURITY_ATTRIBUTES
nLength As Long
lpSecurityDescriptor As Long
bInheritHandle As Long
End Type

Dim Security As SECURITY_ATTRIBUTES
Dim Ret As Long
Dim aa As Long

aa = Shell("net use S: \\192.168.1.1\work 12345/user:administrator")
Ret = CreateDirectory("S:\abc", Security)

但执行完并不没建立该文件夹
不知为何？

[rainstormmaster]

aa = Shell("net use S: \\192.168.1.1\work 12345/user:administrator")
的执行需要一段时间，导致
Ret = CreateDirectory("S:\abc", Security)
执行失败

[rainstormmaster]

修改为：
aa = Shell("net use S: \\192.168.1.1\work 12345/user:administrator")
Do While Dir("s:") = ""
DoEvents
Loop
MkDir "S:\ABC"

[zhzhq800204]

学习

[zhysecond]

RE：rainstormmaster(暴风雨 v2.0)，你有试过吗？我试了不行。程序会死循环的

[rainstormmaster]

//rainstormmaster(暴风雨 v2.0)，你有试过吗？我试了不行。程序会死循环的

我试过

如果：
aa = Shell("net use S: \\192.168.1.1\work 12345/user:administrator")
执行成功的话，不会陷入死循环