If nd.Checked AndAlso nd.level = 1 Then Dim ary() As String = nd.fullpath.split("\")
QQClient.Send(ary(0) & "." & ary(1),Date.Now & "-" & User.name & "-" & "留言:" & vbcrlf & e.Form.Controls("TextBox1").text,True)
End If