主题：提取根目录

请教老师，如何用代码提取比如上传文件中的根目录到另外一列中，因为不同行单元格里的根目录是有不同的，无法用字符方法提取

 

例如：

 

已上传文件       提取跟目录

/AA/文件A1.doc       /AA/

/AAB/文件2.pdf    /AAB/

/B/文件C3. xls       /B/

请教老师，根据指导的代码，我变动了一下，仅提文件名，这样写代码虽然能提出文件名了，但也报错

 

Dim rt As Row = Tables("测试C").Current
Dim s As String = rt("入档文件")
rt("文件名") = s.Split("/")(2)

 

 

 

详细错误信息：

调用的目标发生了异常。

从字符串“/RQXMXX/VB.docx”到类型“Integer”的转换无效。

输入字符串的格式不正确。

这个代码不会有这种提示

已删除BIN了，重启，老师现在报错  请老师再指导指导

错误所在事件：表，测试C，DataColChanged
详细错误信息：
调用的目标发生了异常。
索引超出了数组界限。

 

根据表，测试B 勾选入档逻辑列，表，测试C就增加行，并跨表引用 表，测试B 的数据                现在想实现 表，测试C增加行后，入档文件的文件名前就不加前缀的根目录，要重新配置另外一个根目录通过FTP上传到数据库中

 

表，测试B代码    此表的待入档文件带根目录 

Select Case e.DataCol.name
    Case "入档"       
        Dim dr22 As DataRow = DataTables("测试C").Find("项目编号 = '" & e.DataRow("项目编号") & "'")
        If dr22 Is Nothing Then
            If e.DataRow("入档") = True  Then
                dr22 = DataTables("测试C").AddNew()
                dr22("项目编号") = e.DataRow("项目编号")
                dr22("入档文件") = e.DataRow("待入档文件")
            End If
        End If
End Select