急急急！！！VB求助！关于list ,很急啊,真的很急。在线等。

Question

Private Sub Image4_Click()
If Right(List2.List(List2.ListIndex), 3) = "doc" Then
FileName = App.Path & "\document\" & List1.List(List1.ListIndex) & "\" & List2.List(List2.ListIndex)
OLE2.SourceDoc = FileName
OLE2.Action = 1
OLE2.Action = 7
End If
End Sub
意思是，我用2个LIST，递进显示文件名称。然后通过上述代码，我想打开选中的文件。结果显示标记无法打开文件。
试过很多方法了，最后发现是List1.List(List1.ListIndex)出错，若用真实名称替换List1.List(List1.ListIndex)则可行。
我试了If List1.List(List1.ListIndex) = “新建文件夹" Then Text2.Text = "相同"
结果不相等。
其余正常，就是这个坎过不去，急急急！在线等！

Answer 1

首先，请再查一遍你那个文件路径，我认为这块有点问题。app.path是当前你所保存的这个工程或是你打开的VB系统的默认目录。document这好像有问题。
还有就是文件列表中前2个只是数字，后面没有后缀，可能也不行。不防先用后2个先试一下。
各人见解！呵呵

Answer 2

If List1.Text = “新建文件夹" Then Text2.Text = "相同"

Answer 3

查看一下:
FileName的内容是否正确?