主题：弧表能不能窗口显示文件

现在问题是不清楚到底想怎样。你把问题总结一下，做一个例子，上传，说明输入什么，做什么操作，然后得到什么。

说说的东西，要在你的例子里体现出来。

 看了一下，可以这样做，你就不需要设置存放目录了，比如在 第七列设置成存放目录

Select Case e.DataCol.Name
    Case "第一列"
        Dim data As String = e.DataRow("第一列")
        Dim str As String = ""
        Dim arys() As String = data.Replace("|;", chr(13)).Split(chr(13))
        For Each ary As String In arys
            Dim idx As Integer = ary.IndexOf(":")
            If idx > -1 Then
                str += e.DataRow("第七列") & "\" & ary.SubString(0, idx) & ".tbi" & vbcrlf
            End If
        Next      
        e.DataRow("第二列") = str
    Case "第三列"
        Dim str As String = ""
        Dim data As String = e.DataRow("第三列")
        If data <> Nothing Then
            For Each f As String In FileSys.GetFiles(data)
                str += f & vbcrlf
            Next
        End If
        e.DataRow("第四列") = str
    Case "第七列"
        Dim data As String = e.DataRow("第一列")
        Dim str As String = ""
        Dim arys() As String = data.Replace("|;", chr(13)).Split(chr(13))
        For Each ary As String In arys
            Dim idx As Integer = ary.IndexOf(":")
            If idx > -1 Then
                str += e.DataRow("第七列") & "\" & ary.SubString(0, idx) & ".tbi" & vbcrlf
            End If
        Next      
        e.DataRow("第二列") = str
End Select

和之前的的数据？

是说，取这个目录下 淘宝助理5数据包20140422092130 的数据？

 回复33楼，帮你做一半，另一半自己改一改哈。

Dim str As String = "I:\各个狐表系统\速卖通文件管理系统\商品库\淘宝助理5数据包20140422092130\contentPic\加肥加大码衣服短袖桖361"
Dim idx As Integer = str.IndexOf("\淘宝助理")
If idx > -1 Then
    str = str.SubString(0, idx)
End If
msgbox(str)

比如原本的代码是这样

Select Case e.DataCol.Name
    Case "第三列"
        Dim str As String = ""
        Dim data As String = e.DataRow("第三列").replace("[").replace("]")
        If data <> Nothing Then
            If FileSys.DirectoryExists(data)
                For Each f As String In FileSys.GetFiles(data)
                    str += f & vbcrlf
                Next
            End If
        End If
        e.DataRow("第四列") = str
End Select

改成这样

Select Case e.DataCol.Name
    Case "第三列"
        Dim str As String = ""
        Dim data As String = e.DataRow("第三列").replace("[").replace("]")
        If data <> Nothing Then
            Dim idx As Integer = data.IndexOf("\淘宝助理")
            If idx > -1 Then
                data = data.SubString(0, idx)
            End If
            If FileSys.DirectoryExists(data)
                For Each f As String In FileSys.GetFiles(data)
                    str += f & vbcrlf
                Next
            End If
        End If
        e.DataRow("第四列") = str
End Select