就是想让LISTBOX里面选中的边成要打开的路径啊      
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub Command1_Click()

    ShellExecute hwnd, "Open", "e:\123\", "", "", 1
End Sub                          ↑这里是路径
                        

大家9999我吧~~~

这里不是路径..是执行命令.
List1.Text

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub Command1_Click()

    ShellExecute hwnd, "list1.text", "", "", "", 1
End Sub        

ShellExecute hwnd, "open", "list1.list", "", "", 1

都不可以啊汗汗汗~~~~~~~

[[italic] 本帖最后由 の魂で 于 2007-12-14 12:33 编辑 [/italic]]

你在窗体上放个Command控件,在它的Click事件中运行msgbox list1.list
看看是什么东东?不是你要得到的"路径"吧???
把一楼的代码换成下面的

Private Sub Command1_Click()
'当然,你的1.xls或2.xls一定是在e:\123目录之下喽
    ShellExecute hwnd, "Open", "e:\123\" & list1.list, "", "", 1'注意&符号在英文状态下输入
End Sub

VB中判断目录要特别注意路径问题,比如其自带的App.Path,返回的是程序文件本身的绝对路径,但在不同的操作系统中,返回值不同,有的系统最后一字符是“\”，有的却没有。为了避免这种情况意外地发生，一般可以在 Sub Main()中定义。如

Public sPath  As String'在模块中定义一个全局变量
Sub main()程序从这里开始运行
  sPath = IIf(Right(App.Path, 1) = "\", App.Path, App.Path & "\")
  '以后在引用中就可以这样地引用了:
  's = Path & "moban\xxx.xls"
  's = Path & "123.doc"
''************
 'form1.show
End Sub

ShellExecute hwnd, "open", "e:\123\" & list1.Text, "", "", 1

哇~~~感谢那~~我要哈好学学~~我素个新手还请大家多教教哈~