程序调用2

[sendquestion]

2004-11-09 23:50:27) 大千世界的海
我想调用RNAstructure.exe，但它只提供DOS batch files格式的数据接口，
/RNAstructure /fold -s rna.seq -c rna.ct
说明：rna.seq 和rna.ct是两个文件（前者输入文件后者为输出文件，不用管它）

我现的要循环调用它(D:\Program Files\RNAstructure 4.11\RNAstructure.exe)
但不知如何在VB中写调用代码，请指教！！
我现用的是这个代码，但前提是我的程序只能放在(D:\Program Files\RNAstructure 4.11\)下,但若我
指明路径，却又找不到文件，或只是调用了程序，但并没有完成任务。（在资源管理器中出现，但并不完成任务）

Private Sub File2_DblClick()
For acc = 0 To File2.ListCount - 1
File2.Selected(acc) = True
fn11 = File2.Path & "\" & File2.FileName
fn22 = Left$(fn11, Len(fn11) - 4) & ".ct"
Shell ("\RNAstructure.exe/fold -s " & fn11 & " -c " & fn22)
ProgressBar1.Visible = False
Next acc
ok2 = MsgBox(" 已经搞定了!!!!!!! ", 0, "保存完成")
End Sub

[lyxhappy]

UP

[lxcc]

Shell App.Path & "\RNAstructure.exe/fold -s " & fn11 & " -c " & fn22

[Andy__Huang]

Shell App.Path & "\RNAstructure.exe",vbNormalFocus

[a达哥a]

Private Sub File2_DblClick()
For acc = 0 To File2.ListCount - 1
File2.Selected(acc) = True
fn11 = File2.Path & "\" & File2.FileName
fn22 = Left$(fn11, Len(fn11) - 4) & ".ct"
Call Shell("""D:\Program Files\RNAstructure 4.11\RNAstructure.exe""" & " /fold -s " & fn11 & " -c " & fn22)
ProgressBar1.Visible = False
Next acc
ok2 = MsgBox(" 已经搞定了!!!!!!! ", 0, "保存完成")
End Sub

[helanshan]

1、用相对路径，前面已说。
2、用Shell执行你的.exe时，VB程序不等Shell执行完就会再次执行循环，所以只是调用了程序，但并没有完成任务。。

[JERRY_LIU]

兄台是否有考虑到，该程式只能接受路径名8.3格式？（主档名8码，扩展名三码，中间不能有空格）

[gg137zeus]

up

[sendquestion]

相对路径如何使用呀？
大虾帮忙！！

[sendquestion]

笔误

[韧恒]

回答那贴，接这贴分，有意思！^_^

[莫情莫钱]

u\p

[sendquestion]

songyaowu已帮我搞定
谢谢各位