主题：数组添加到集合报错，求助

Dim pth() As String
Dim Liststr As List(of String)
Dim n As Integer
If nd IsNot Nothing And nd.nodes IsNot Nothing Then
   
    Dim str1 As String = e.Form.controls("TextBox1").value
   
    pth = str1.Split("\")
    messagebox.show(pth(0))   ‘这句没问题，弹出了对话框，结果是c:
    Liststr.AddRange(pth)
    messagebox.show("hao")   '这句没弹出来就报错，如下图

 

此主题相关图片如下：qq截图20170406122015.jpg

解决了，用的pth.Length