vb中用mkdir在服务器上建立一目录，提示错误，为什么？

Question

vb中用mkdir在服务器上建立一目录，提示错误，为什么？
   其中sharepath是一个在服务器中已经完全共享的目录
   Public Const SharePath = "\\pudasoft2\sharetemp\databak" 
    
    If direxists(SharePath) = False Then
        MkDir SharePath   '这一句提示错误，路径访问错误。
    End If
\\pudasoft2\sharetemp\databak用资源管理器是可以打开的。

Answer 1

\\pudasoft2\sharetemp\databak用资源管理器是可以打开的
==============
它是可以打开的？ 那就是已经存在喽。那么建立一个已存在的目录自然报错了。在建立前应该先DIR一下，没有再建立。

Answer 2

Private Declare Function CreateDirectory Lib "kernel32" Alias "CreateDirectoryA" (ByVal lpPathName As String, lpSecurityAttributes As SECURITY_ATTRIBUTES) As Long
'创建目录
Private Function CreateDir(ByVal Dir As String) As Boolean
Dim Sa As SECURITY_ATTRIBUTES
CreateDir = False
If Len(Dir) < 3 Then Exit Function
If CreateDirectory(Dir, Sa) > 0 Then
    CreateDir = True
Else
    MkDir Dir
    CreateDir = True
End If
End Function