当前位置: 代码迷 >> VFP >> 请教vf中如何点击一个按钮,运行DOS命令
  详细解决方案

请教vf中如何点击一个按钮,运行DOS命令

热度:3128   发布时间:2013-02-26 00:00:00.0
请问vf中怎么点击一个按钮,运行DOS命令
dos命令运行是这样的:
先将fbinst.exe放在D盘目录下:然后运行cmd,输入d:回车

d:\>fbinst --hdlist "(hd%N) %I %SG [%P]" --USB >hdl.ini


这样就可以在d盘目录生成一个hdl.ini

现在我想在VF的表单中点击一个按钮就可以实现这个功能。代码如下:

Declare Integer ShellExecute In "Shell32.dll" Integer HWnd,String lpVerb,String lpFile,String 

lpParameters,String lpDirectory,Long nShowCmd
=Shellexecute(0,"Open","d:\fbinst.exe","fbinst --hdlist '(hd%N) %I %SG [%P]' --USB  

>hdl.ini","",1)

或者:ox=Createobject("wscript.shell")  
ox.Run("d:\fbinst.exe hdlist '(hd%N) %I %SG [%P]' --USB >hdl.ini",0,1)
Release ox
Messagebox('操作完成!',64,'信息提示')  

并没有生成这个文件hdl.ini啊。请问这个点击运行的代码有什么问题呢?

------解决方案--------------------------------------------------------
建议:
d:\>fbinst --hdlist "(hd%N) %I %SG [%P]" --USB >hdl.ini
变更为
d:\>fbinst --hdlist "(hd%N) %I %SG [%P]" --USB >d:\hdl.ini

------解决方案--------------------------------------------------------
run /n3 d:\fbinst.exe --hdlist>hdlist.txt
------解决方案--------------------------------------------------------
你的代码没太大的问题,参考2楼给的建议,注意相对路径与绝对路径的区别,理解程序运行时的当前路径等概念,其实你要的功能可以直接用Run或!运行Dos命令就可以了,不用调Api那么麻烦。
------解决方案--------------------------------------------------------
run
  相关解决方案