VFP 愛用者社區

[rich5858]

高手大大...幫我一下...
GETFILE() 可否指定開啟路徑及限定前幾碼相同的PDF檔案

***** 程式 ****
** 畫面先輸入客戶編號(ACCNO) ...
*** 我只要開啟 SUBSTR(THISFORM.ACCNO.VALUE,1,5)

*** 下面是我寫好...可選擇開啟 pdf 檔 ...但如何指定...請幫幫我..謝謝!

PDF_file = GETFILE('PDF', '選擇或取消', '選擇', 0, '請選擇要開啟的PDF檔')

DO CASE
CASE EMPTY(PDF_file)
Messagebox("並未選擇要開啟的PDF檔",1+32,"訊息視窗")
QUIT
OTHERWISE
ENDCASE

lcUrl = "file://"+PDF_file

oPDF=CREATEOBJECT("wscript.shell")

if VARTYPE(oPDF) <> "O"
= MESSAGEBOX("PDF沒有安裝或損壞或因為記憶體不足而無法使用!",64,"提示")
return
endif

DO CASE
CASE EMPTY(PDF_file)
Messagebox("並未選擇要讀入的PDF檔",1+32,"訊息視窗")
QUIT
OTHERWISE
ENDCASE

DECLARE INTEGER ShellExecute IN "Shell32.dll" ;
INTEGER hwnd, STRING lpVerb, STRING lpFile, ;
STRING lpParameters, STRING lpDirectory, LONG nShowCmd

ShellExecute(0, "Open", LCURL, "", "", 1)

[rich5858]

不好意思...
因為有位 N 大幫我解決了取前幾碼相同的問題了...(用COPY FILE 把同一類客戶資料先COPY 到暫存資料夾...)
到時只要用 GETFILE 就可開啟這資料夾來選擇要的檔案即可.

但現在該如何指定 GETFILE 一開啟的路徑是我設的暫存檔呢?
N 大可以再幫我嗎?

***
** 先清除暫存檔
DELE FILE C:\ACCTEMP\*.PDF

*** 設原始大資料庫路徑
M1= 'G:\PDF\'+SUBSTR(THISFORM.ACCTEXTBOX1.VALUE,4,5)+'*.PDF'

*** COPY TO 暫存檔
COPY FILE &M1 TO C:\ACCTEMP

****set path to c:\acctemp ****請問要如何設定???
PDF_file = GETFILE('PDF', '選擇或取消', '選擇', 0, '請選擇要開啟的PDF檔')

DO CASE
CASE EMPTY(PDF_file)
Messagebox("並未選擇要開啟的PDF檔",1+32,"訊息視窗")
QUIT
OTHERWISE
*? "你選擇要開啟的PDF檔是 "+PDF_file
ENDCASE

*set path to c:\accapp

lcUrl = "file://"+PDF_file

oPDF=CREATEOBJECT("wscript.shell")

if VARTYPE(oPDF) <> "O"
= MESSAGEBOX("PDF沒有安裝或損壞或因為記憶體不足而無法使用!",64,"提示")
return
endif

DO CASE
CASE EMPTY(PDF_file)
Messagebox("並未選擇要讀入的PDF檔",1+32,"訊息視窗")
QUIT
OTHERWISE
*? "你選擇要讀入的PDF檔是 "+PDF_file
ENDCASE

DECLARE INTEGER ShellExecute IN "Shell32.dll" ;
INTEGER hwnd, STRING lpVerb, STRING lpFile, ;
STRING lpParameters, STRING lpDirectory, LONG nShowCmd

ShellExecute(0, "Open", LCURL, "", "", 1)

[nelsonchuang]

請先參考cd ,sys()有關目錄的指令,試著作作看,應該很快解決...
記住,如果你怕小孩迷路,最好的方式,讓他知道回家的路..

[rich5858]

太感謝 Ｎ 大了~~
我總算解決了我的問題...謝謝!!!