本人现欲实现通过在程序中给定用户名和密码,来完全控制某个目录(可读可写可删除),用WNetAddConnection2 API函数进行连接,得到的值不是0而是1326,请问这个1326返回的是什么错误,怎么样才能返回0值?很急!在此先谢过!!
我的程序如下:Function ConnectToServer(ByVal sServer As String, ByVal sUser As String, ByVal sPassword As String) As Boolean
    '** 建立与服务器的系统连接
    '** 连接成功,返回True
    '** 连接失败,返回False
    Dim lngResult As Long
    Dim nr As NETRESOURCE
    nr.dwType = RESOURCETYPE_ANY
    nr.lpLocalName = ""
    nr.lpRemoteName = sServerNETCONNECT:
    lngResult = WNetAddConnection2(nr, sPassword, sUser, CONNECT_UPDATE_PROFILE)
    If lngResult = 0 Then
        ConnectToServer = True
    ElseIf lngResult = 1219 Then
        lngResult = WNetCancelConnection2(sServer, CONNECT_UPDATE_PROFILE, True)
        If lngResult = 0 Then
            GoTo NETCONNECT     '重新执行
        Else
             ConnectToServer = False
        End If
    Else
       ConnectToServer = False
    End If
End FunctionSub Connect()
    Dim lngResult As Long
    Dim isConnect As Boolean    isConnect = ConnectToServer(strCadastralTempSerer, "mydata", "mydata")
             
    If isConnect = True Then
        ……
    Else
        lngResult = WNetCancelConnection2(strCadastralTempSerer, CONNECT_UPDATE_PROFILE, True)
    End If
End Sub