shell函数传递参数的有关问题

shell函数传递参数的问题！
我利用shell调用别的exe程序，因为路径不固定，所以我用filename来取得各个路径的值以后，在开始调用。

Shell(filename, AppWinStyle.NormalFocus, True) 


现在的问题是，我目前需要调用的一个程序需要传递参数进去，我需要调用的程序是"C:\Program Files\Windows NT\hypertrm.exe"，传递的参数是d:\jhg.ht。

如果我Shell("""C:\Program Files\Windows NT\hypertrm.exe""d:\jhg.ht", AppWinStyle.NormalFocus, True)这样来写，是可以成功完成的，但是由于路径不固定，所以不能用C:\Program Files\Windows NT\hypertrm.exe这样来写死，但是我改成Shell("""filename""d:\jhg.ht", AppWinStyle.NormalFocus, True) 又老是执行不成功，提示找不到文件，我想应该是程序把"filename"当成了filename这个字符串，而不是一个变量来处理了，有什么办法解决吗？

[解决办法]
把Shell( " " "filename " "d:\jhg.ht ", AppWinStyle.NormalFocus, True) 改成如下：

VB.NET code

Shell(""" & filename & "" d:\jhg.ht",   AppWinStyle.NormalFocus,   True)
[解决办法]
VB.NET code
    Private Sub ButtonTest_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonTest.Click        ExcuteShell("cmd /k", "dir", "c:\", "/s")    End Sub    Private Sub ExcuteShell(ByVal ParamArray paras() As String)        Dim pathName As String = String.Join(" ", paras)        Microsoft.VisualBasic.Shell(pathName, AppWinStyle.NormalNoFocus, True)    End Sub