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

如果隐藏文件管理底端命令，自己用按钮如何写代码实现相同功能？

CommandVisible

逻辑型，是否在FileManager的底端显式增加、删除、清除、打开等命令。
如：e.Form.Controls("FileManager1").CommandVisible = True

OpenEnabled

逻辑型，是否允许用户单击打开命令调用第三方程序来打开文件。
如：e.Form.Controls("FileManager1").OpenEnabled = False

谢谢，如果隐藏底端命令，自己再增加“按钮”实现相同功能，如何写“增加、删除、清除、看图、打开”代码。毕竟有时我们想把底端不相干的命令显示出来，比如，在文本管理中，就不用“看图”命令，狐爸没有提供隐藏某个命令的属性，而只是一起显示或隐藏。

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

 

增加命令：

 

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