主题：文件管理器底端增加、删除、清除、打开等命令怎么写？

以下代码没有测试过，只是提供思路，请自行调试：

 

增加命令：

 

Dim v As String = tables("XXX").Current("文件")

If v > "" Then

   v = V & vbcrlf & "你选择的文件"
Else

   v = "你选择的文件"

End If

Tables("XXX").Current("文件") = V

 

删除命令：

 

Dim fl As String  = e.Form.Controls("FileManager1").SelectedItem

Dim v As String = tables("XXX").Current("文件")
Dim fls() As String = V.Replace(vbcr,"").Split(vblf)

v = ""

For i As integer =0 To fls.Length - 1

    if fls(i) = fl Then

       Continue for

    Else

       if v >"" then

         v = v & vbcrlf & fls(i)

      Else

        v= fls(i)

    end if

Next

tables("XXX").Current("文件") = v