急，在线等

Private Sub Image4_Click()
If Right(List2.List(List2.ListIndex), 3) = "doc" Then
'FileName = CStr(App.Path) & "\document\" & CStr(List1.List(List1.ListIndex)) & "\" & CStr(List2.List(List2.ListIndex))
Text1.Text = List2.List(List2.ListIndex)
FileName = App.Path & "\document\" & List1.List(List1.ListIndex) & "\" & Text1.Text
If CStr(List1.List(List1.ListIndex)) = CStr("新建文件夹") Then Text2.Text = "shide"
OLE2.SourceDoc = FileName
OLE2.Action = 1
OLE2.Action = 7
End If
End Sub
--------------------编程问答-------------------- --------------------编程问答-------------------- 现在的人，在线等，也不知道叫别人干嘛。。。
就光光的贴下代码。。。
真是无语。 --------------------编程问答-------------------- 顶2楼兄弟，最起码大概介绍一下你要实现什么功能吧！

补充：.NET技术 ,  VB.NET