VFP 愛用者社區

[小賴]

使用 FILE(FileName) 函數 ; 測試 FileName(含路徑)是否存在 :
IF ! FILE(FileName)
FileName 檔案不存在
ENDIF

[nelsonchuang]

adir()

[rich5858]

謝謝大大提式...

我馬上測試 ~

[syntech]

FILE( 你要的檔案的完整路徑+名稱)

有點懷疑你有沒有真的了解別人回給你什麼.

[rich5858]

N 大及各位大大,
謝謝您們...
我完成了...

可能我口才不好...您們聽不懂....
呼~ 好險 N 大聽懂了...

下面網址就是我要完成的東西...
http://www.dumpt.com/img/viewer.php?file=movsubxyn4p0q0w9w92p.jpg

因我很偷懶...不想用正歸方式把檔案名稱寫到資料庫去讀...
謝謝您們...我會常上來學習...
謝謝~

****************************************
set talk off

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

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

*** 先判斷檔案是否存在...

IF ADIR(MYML,M1)#0
*** 有此檔...再 COPY TO 指定路徑的暫存檔
COPY FILE(M1) TO C:\ACCAPP

cCurrentProcedure = SYS(16,1)
nPathStart = AT(":",cCurrentProcedure)- 1
nLenOfPath = RAT("\", cCurrentProcedure) - (nPathStart) + 1
SET DEFAULT TO (SUBSTR(cCurrentProcedure, nPathStart, nLenofPath))

*** 選擇所要開啟的 pdf 檔

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

DO CASE
CASE EMPTY(PDF_file)
Messagebox("並未選擇要開啟的PDF檔",1+32,"訊息視窗")
THISFORM.ACCTEXTBOX1.VALUE=SPACE(
THISFORM.ACCTEXTBOX1.SETFOCUS()
RETURN
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,"訊息視窗")
THISFORM.ACCTEXTBOX1.VALUE=SPACE(
THISFORM.ACCTEXTBOX1.SETFOCUS()
RETURN
ENDCASE

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

ShellExecute(0, "Open", LCURL, "", "", 1)
THISFORM.ACCTEXTBOX1.VALUE=SPACE(
THISFORM.ACCTEXTBOX1.SETFOCUS()
RETURN

ELSE

**** 當找不到檔案

?? CHR(7)
=MESSAGEBOX("無此客戶編號 ! 是否繼續 ?",4+48,"訊息視窗")
THISFORM.ACCTEXTBOX1.VALUE=SPACE(
THISFORM.ACCTEXTBOX1.SETFOCUS()
RETURN

ENDIF


***

[小賴]

想不出什麼理由, 放棄FILE()函數不用而是使用ADIR() ...

[rich5858]

謝 賴大...
您教的我也測了...都ok~
(這麼仔細...若我再不會就是白吃 >.< )　

只是 N大 是我的恩師．．．
常只寫個指令的頭...要我自己去查...
不知不覺...學到更多~

真是謝謝您們...

[nelsonchuang]

不一定要用我的方式啊,我只是建議．如果這樣就是恩師(我知道是客套話啦~),覺得很沈重...
小賴問:為什麼不用File,我也很納悶...
納悶的原因,在於File在某些情況下，是會誤判的，而這是個人的經驗法則的結論（很久以前的事，但我忘了是什麼情形），
用File沒什麼不好，但是你不曉得何時它會給你出問題．
至於Adir（），我也不是這樣子用．．．rich反倒是給我上了一課.
等我有空(應該是沒什麼機會,呵),我再回頭來再試Adir()的用法.

[朱育興]

[215001]

我想可能是 File() 函數,若未加上檔案路徑時,會自動到PATH路徑去找檔案,以至於偶爾得到非預期的結果吧
所以才會讓nelsonchuang 兄以為File()誤判吧 !

所以我都習慣用 File("完整路徑檔名")的方式,簡單一列ok

比較不同:
set default to C:\TEST
? FILE("Command.com") ============> .T. (可能永遠都傳回 .T. 值)
? FILE("C:\Test\Command.com") ========> .F.

[nelsonchuang]

我記得的是...你們說的狀況，我都有試過了，我纔會改成adir() ，我的個性是很頑強的人，
一個東西，我會試到無路可走才放棄，adir()，是我無路可走時的選項罷了..

[syntech]

請使用者換一個目錄就行了,
為了不知道什麼時候發生的特例,死了幾百萬個腦細胞,
不太划算.

[KKKLYNN]

用file()就可以檢查了