VFP 愛用者社區

[KKKLYNN]

使用

COPY *.DBF 正常
COPY *.DCB 正常
copy *.sct to c:\OK資料 此列出錯
copy *.scx to c:\OK資料 此列出錯

COPY *.FPX 正常

等等多類型的檔案
卻出現 FILE IS IN USED

請問何處出錯?
以上敬請協助
謝謝!

[syntech]

看起來像有些FORM還開著的樣子.

[小桑•無痕]

COPY 前先關閉所有的 Form

試試看 CLEAR ALL

[KKKLYNN]

就只有一個form(還是出錯!但是以前是正常!這星期才開始)
只有
sct
scx
pjt
pjx

四類出錯


本機備份 按鈕

THISFORM.COMMANDGROUP1.COMMAND12.CAPTION='處理中'
THISFORM.COMMANDGROUP1.COMMAND1.ENABLED=.F.
THISFORM.COMMANDGROUP1.COMMAND2.ENABLED=.F.
THISFORM.COMMANDGROUP1.COMMAND3.ENABLED=.F.
THISFORM.COMMANDGROUP1.COMMAND4.ENABLED=.F.
THISFORM.COMMANDGROUP1.COMMAND5.ENABLED=.F.
THISFORM.COMMANDGROUP1.COMMAND6.ENABLED=.F.
THISFORM.COMMANDGROUP1.COMMAND7.ENABLED=.F.
THISFORM.COMMANDGROUP1.COMMAND11.ENABLED=.F.
THISFORM.COMMANDGROUP1.COMMAND12.ENABLED=.F.
THISFORM.COMMANDGROUP1.COMMAND13.ENABLED=.F.

&&DELE FILE D:\高昕\*.*

&© FILE d:\日昕\*.* TO D:\高昕

DELE FILE d:\高昕\*.DCX
DELE FILE d:\高昕\*.CDX
DELE FILE d:\高昕\*.FPT
DELE FILE d:\高昕\*.DBF
DELE FILE d:\高昕\*.DCT
DELE FILE d:\高昕\*.DBC

DELE FILE d:\高昕\*.sct
DELE FILE d:\高昕\*.scx
DELE FILE d:\高昕\*.fxp
DELE FILE d:\高昕\*.vcx
DELE FILE d:\高昕\*.vct

DELE FILE d:\高昕\*.prg
DELE FILE d:\高昕\*.pjt
DELE FILE d:\高昕\*.pjx

DELE FILE d:\高昕\*.frt
DELE FILE d:\高昕\*.frx

COPY FILE D:\日昕\*.DCX TO D:\高昕\*.DCX
COPY FILE D:\日昕\*.CDX TO D:\高昕\*.CDX
COPY FILE D:\日昕\*.FPT TO D:\高昕\*.FPT
COPY FILE D:\日昕\*.DBF TO D:\高昕\*.DBF
COPY FILE D:\日昕\*.DCT TO D:\高昕\*.DCT
COPY FILE D:\日昕\*.DBC TO D:\高昕\*.DBC

COPY FILE D:\日昕\*.scx TO D:\高昕\*.scx
COPY FILE D:\日昕\*.sct TO D:\高昕\*.sct
COPY FILE D:\日昕\*.pjx TO D:\高昕\*.pjx
COPY FILE D:\日昕\*.pjt TO D:\高昕\*.pjt

COPY FILE D:\日昕\*.fxp TO D:\高昕\*.fxp
COPY FILE D:\日昕\*.vcx TO D:\高昕\*.vcx
COPY FILE D:\日昕\*.vct TO D:\高昕\*.vct

COPY FILE D:\日昕\*.prg TO D:\高昕\*.prg

COPY FILE D:\日昕\*.frt TO D:\高昕\*.frt
COPY FILE D:\日昕\*.frx TO D:\高昕\*.frx

MESSAGEBOX("已將 資料與程式 複製備份至備份資料夾!"+CHR(13)+"請確認!",48,"高昕科技權限")

THISFORM.COMMANDGROUP1.COMMAND12.CAPTION='本機備份'
THISFORM.COMMANDGROUP1.COMMAND1.ENABLED=.T.
THISFORM.COMMANDGROUP1.COMMAND2.ENABLED=.T.
THISFORM.COMMANDGROUP1.COMMAND3.ENABLED=.T.
THISFORM.COMMANDGROUP1.COMMAND4.ENABLED=.T.
THISFORM.COMMANDGROUP1.COMMAND5.ENABLED=.T.
THISFORM.COMMANDGROUP1.COMMAND6.ENABLED=.T.
THISFORM.COMMANDGROUP1.COMMAND7.ENABLED=.T.
THISFORM.COMMANDGROUP1.COMMAND11.ENABLED=.T.
THISFORM.COMMANDGROUP1.COMMAND12.ENABLED=.T.
THISFORM.COMMANDGROUP1.COMMAND13.ENABLED=.T.

[bigear]

我有個問題
為什麼要把 .scx 擺在客戶那裡 ?
原始碼送給客戶嗎 ?

有一個可能性
某個 form 並不在你的專案裡面

可以做一個小小測試就知道我有沒有猜錯了
將該 form 刪除或是更名
如果程式執行該視窗有出現 error 就表示我沒猜錯

試試看吧

[garfield]

就我的了解 , KKKLYNN , 是電腦室的人員, 程式是公司自用的.
我在想他的問題, 可能是用 terminal 連到主機後,
去開啟project及form, 然後就不正常斷線,
造成檔案一直處於開啟狀態,
造成copy的問題, 這跟程式一點關係都沒有.

[bigear]

表達能力差，先說抱歉....

我要表達的也是
當該 form 不在專案裡面
該專案組譯的時候 form 自然就不會再 "程式" 裡面
當該 "程式" 在執行到該 "視窗" 的時候，因為該 "form" 並沒有在該 "程式" 裡面
所以就會執行到該 .scx
然而在 COPY FILE 的時候就出現 error 因為檔案已經 use 了
如果將該 .scx 刪除或更名
"程式" 連 .scx 都找不到就會出現找不到檔案
因為 "程式" 無須執行 .scx
又如果樓主執行的不是 "程式" 那........當我什麼都沒說................


只是將我的看法表達清楚一點，沒有其他意思~~

[rixw83]

嗯 !! 同意，應該是該 "FORM" 並未在專案編譯時 "包含" 在執行檔中。
我這樣說應該對吧!!

[KKKLYNN]

但我在做complie時又無出現錯誤?
所以我才覺得很奇怪!
以上謝謝

[bigear]

[KKKLYNN]

按鈕內容就只有很單純的指令
如上層內容
由於scx大約有120個,要一個COPY才可確認是哪個SCX
想到就有些懶


我這支程式是我專用地
用來進行與SERVER檔案交換或更新(SERVER上只有DBC,DBC,CDX....,EXE)
另就是將交換下來地檔案存到另一台PC作備份用(備份所有的檔案,問題是出在這裡)

謝謝啦

[小桑•無痕]

我覺得....可能是「來源」或「目的」的檔案被其他人使用(開啟中)

[KKKLYNN]

改用

DECLARE INTEGER ShellExecute IN shell32;
　　INTEGER hwnd,;
　　STRING　lpOperation,;
　　STRING　lpFile,;
　　STRING　lpParameters,;
　　STRING　lpDirectory,;
　　INTEGER nShowCmd

WAIT WIND "複製中..." NOWAIT

=ShellExecute(0,"Open","XCOPY.EXE","D:\日昕 D:\高昕 /t","",0)

WAIT CLEAR

卻跟我說 參數太多
不知哪出錯?
以上謝謝!