VFP 愛用者社區

[sthuang66]

又來麻煩各位先進
在公司是windows server 2003作業系統下VFP8學長寫的precedure主要是利用7 zip 去解壓縮檔案

PROCEDURE DECOMPRESS1(DFILE,DPATH,DPSW)
LOCAL X,Y,Z
X=DFILE
IF LEN(ALLTRIM(DPATH))>0
Y=' -o'+DPATH
ELSE
Y=''
ENDIF
IF LEN(ALLTRIM(DPSW))>0
Z=' -p'+DPSW
ELSE
Z=''
ENDIF

WSHSHELL = CREATEOBJECT("WScript.Shell")

F='C:\Program Files\7-Zip\7z.exe e -y '+X+Y+Z
RC = WSHSHELL.RUN((F),2,.T.)

ENDPROC
----------------------------------------------------------------------
但是copy 回家裡的win7 64 bit VFP9用時卻會出現以下圖片的錯誤訊息
錯誤在RC = WSHSHELL.RUN((F),2,.T.) 這行
有爬文一下!會不會是WScript版本不同所致!???或是7 zip版本的問題!! 請教各位有無這種狀況!!
還是有更好的辦法?謝謝各位的指教

[perry]

F='"C:\Program Files\7-Zip\7z.exe" e -y '+X+Y+Z
RC = WSHSHELL.RUN(F)

[sthuang66]

謝謝Perry兄指教 RC=WSHSHELL.RUN(F) 還是不行
我改用 RUN/N3 &F 可以了

[perry]

F='"c:\program files\winrar\winrar.exe " a '+'tst tsk21.prg'
RC= WSHSHELL.RUN(F)

個人用 winrar 測可用@@

以下2組有安裝該軟體,則可開啟 PDF 檔案
tt_fi='"d:\pdf-xchange viewer\PDFXCVIEW.exe" '+tmp_file
Q_RUN.RUN(tt_fi)

tt_fi='"c:\progra~1\foxit reader\foxit reader.exe" '+tmp_file
Q_RUN.RUN(tt_fi)
progra~1 是老舊的寫法 第1個 c:\program f... 資料夾 = ='''

凡有長路徑檔名 像 foxit reader 都要用雙引號包覆起來,windows 才找的到.
例如:tt_fi='"d:\pdf-xchange viewer\PDFXCVIEW.exe" '+'"c:\program files\foxit reader\a.pdf"'

如果要用到參數,還是用 Run or ! 方式比較簡單省事!!

[syntech]

我同意 perry 兄的看法及作法.

現在用的是 perry 兄的作法,
而且也傳了一堆參數.

[sthuang66]

之前因為被抽離這個問題!!沒關注PERRY和SYNTECH的回答!!最近有遇到類似的案子! {雙引號包覆起來 }真的很重要! 按照你們的提示我一下就解決問題了!!!感恩不盡!! vfp的學習除了公司學長的教導外!!在論壇真的太多高手不吝指導讓我受益良多!實力也精進不少!!

[syntech]

因為我們吃過的 降血壓,降血脂,糖尿病,安眠藥,咖啡,提神飲料,.... 等等比較多的關係

[ckp6250]

[syntech]