大哥大姐吗！帮我看看这段代码那里出错了..........

[清风树下]

If Me.File_Path.Text.Trim.Length = 0 Then
MessageBox.Show("您还没有选择Word文件，请选择！", "提示", MessageBoxButtons.OK, MessageBoxIcon.Error)
Me.File_Path.Focus()
Exit Sub
End If

Dim FilePath As String = Me.File_Path.Text

'连接服务器
MsgBox("用户名：" & Sys_Server_User & "密码：" & Sys_Server_Password & "IP地址：" & Sys_Server_Ip)

Try
Dim coption As New ConnectionOptions
coption.Username = CStr(Sys_Server_User.Trim)
coption.Password = CStr(Sys_Server_Password.Trim)
Dim scope As ManagementScope
scope = New ManagementScope("\\" & CStr(Sys_Server_Ip.Trim), coption)
scope.Connect()
MsgBox("登入服务器成功！")
Catch ex As Exception
MsgBox("无法登入服务器！", MsgBoxStyle.OKOnly, "提示")
End Try
Dim fi As New FileInfo(FilePath)
fi.CopyTo("\\" & Sys_Server_Ip & "\d$\新建文件夹\technic.doc", True)
MessageBox.Show("新文件已经创建成功！！", "提示", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
Me.Close()

[pxjhy]

你得说说什么地方报错嘛！

[Overriding]

Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
把原始的异常抛出来看看就清楚了。

[清风树下]

老是说“无法登入服务器！”这是怎么回事呀！

[tiaoci]

是不是

scope = New ManagementScope("\\" & CStr(Sys_Server_Ip.Trim), coption)

应当改成

scope = New ManagementScope("\\\\" & CStr(Sys_Server_Ip.Trim), coption)

?

[tiaoci]

看得出来你是要写 \\ip地址

所以应当写成 "\\\\"

[tiaoci]

哦，看错板块了，原来是 VB.NET，不好意思，嘻嘻

[清风树下]

不行呀！

[cegcegceg]

有没有权限啊,大小写要区分
另外
Catch ex As Exception
MsgBox("无法登入服务器！", MsgBoxStyle.OKOnly, "提示")
这句执行之后,应该中断执行,不应该在继续拷贝文件了.

[Qim]

upup

[清风树下]

还是不行呀！不是吧！