作者albb0920 (albb)
看板EZsoft
标题Re: [请益] 关於随身碟启动软体的问题
时间Wed Dec 19 18:32:57 2007
※ 引述《cleic (非自然)》之铭言：
: ※ 引述《cleic (非自然)》之铭言：
: : 想请教PCMan大,xcopy有办法写成VBScript吗
: : 比如:
: : @ECHO
: : xcopy "TargetDIR\data" \data2 /S /C /I /Q
: : exit
: : --
: : ◆ From: 140.113.89.119
: 推 albb0920:试试用 Shell() 函数 12/19 11:17
: 我查询之後找到以下语法
: 不知道是不是a大所说的Shell() 函数
: Set ws = CreateObject("WScript.Shell")
: ws.Exec("xcopy.exe TargetDIR\data data2 /S /C /I /Q")
: 这会与
: @ECHO
: xcopy "TargetDIR\data" \data2 /S /C /I /Q
: exit
: 有相同结果
: 但仍会跑出DOS视窗
: 有其他语法能如PCMan大之前的语法
: Set sh = CreateObject("WScript.Shell")
: sh.Run ".\程式\PCMAN\pcman.exe"
: sh.Run ".\程式\MSN\msn.exe"
: 将
: @echo off
: start xxx\FirefoxPortable.exe
: start xxx\ThunderbirdPortable.exe
: start xxx\PCMan.exe
: 的DOS视窗完全背景执行吗
: 还是有其他的方法呢
: 对VBScript不熟>"<
对VB熟会方便很多XD
刚刚查了一下，你应该用 WScript.Shell 的 Run
Run(Command as string,[WindowStyle],[WaitOnReturn])
所以应该用 sh.Run "xcopy xcopy "TargetDIR\data" \data2 /S /C /I /Q",0
0 vbHide 隐藏所开启的应用程式视窗。
1 vbNormalFocus 正常开启应用程式。
2 vbMinimizedFocus 应用程式视窗开启後缩到最小。
3 vbMaximizedFocus 应用程式视窗开启後放到最大。
4 vbNormalNoFocus 正常开启应用程式，但原先的工作视窗仍保持驻点 ( Focus )。
6 vbMinimizedNoFocus 应用程式视窗开启後缩到最小，但原先的工作视窗仍保持驻点
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 203.64.26.28