下面是一些方法.
Dim Wsh
Set Wsh = WScript.CreateObject("WScript.Shell")
WScript.Sleep(60000)
Wsh.Run chr(34) & "C:\Program Files\1.bat" & chr(34),,True
Set Wsh=NoThing
WScript.quit
如果那个目录下只有 Microsoft office 这样的一个目录.
而不是 Microsoft office 和 Microsoft visual studio. 这样的几个差不多的目录.
c:\Microsoft office\word.exe
可以这样
a=strpath
b=split(a,"\")
newpath=""
for n=0 to ubound(a)
if instr(1,b(n)," ")>0 then '目录名有空格
b(n)=left(b(n),6) & "~1" '把 Microsoft office改成 Micros~1 .
end if
if n=ubound(a) then '是最后的文件名
newpath=newpath & b(n)
else
newpath= newpath & b(n) & "\"
end if
next
这个 newpath 就是可执行的全路径了.
也就是把 C:\microsoft office\word.exe 换成 c:\micros~1\word.exe
如果有空格，加双引号就可以了
没有空格，也不影响使用
例如 filename = """"+filename+""""
