VFP 愛用者社區

[jtcom01]

如標題..在程式編輯沒問題.在vfp下執行沒問題..但..離開vfp執行時就會出現檔案不存在的訊息..
我的作法是..將你的程式存成xx.prg
命令工具.click中 do xx.prg
maa=GetVolNO("c:\")
請不吝指教..謝謝..

FUNCTION GetVolNO
LPARAMETERS m.rootpath

DECLARE GetVolumeInformation IN win32api STRING, STRING @, ;
INTEGER, INTEGER @, INTEGER @, INTEGER @, STRING @, INTEGER

m.volname = SPACE(255)
m.volnamelen = LEN(m.volname)
m.volumeserialnumber = 0
m.maxfilenamelen = 0
m.filesystemflags = 0
m.filesystemname = SPACE(255)
m.fsnamelen = LEN(m.filesystemname)

=GetVolumeInformation(m.rootpath, @m.volname, m.volnamelen, ;
@m.volumeserialnumber, @m.maxfilenamelen, ;
@m.filesystemflags, @m.filesystemname, m.fsnamelen)

RETURN m.volumeserialnumber

[syntech]

你是說你連如何讓你的程式找到某個PRG都不知道怎麼作?

[jtcom01]

在編輯時..加入程式碼-程式..這樣對嗎?謝謝!

[ckp6250]

斯斯有二種，『讓你的程式找到某個PRG的方法』也有二種！
一、
在 do xx.prg 的上一行
加上一行 Set Procedure To c:\xx\xx.prg [某選項參數]

二、
do c:\xx\xx.prg

[jtcom01]

謝謝兩位先進的指導..