怎么把vfp的绝对路径改成相对路径？

2025-02-22 21:27:47

推荐回答（3个）

回答1：

在Appdoc1.Application.Documents.Open("E:\vfp\综合实例\T1.doc")前加入:
PUBLIC LCNowpath
LCNowpath=right(justpath(sys(16)),RAT("\",sys(16))-AT("\",sys(16))+2) && 获取当前路径
SET PATH to &LCNowpath &&设置搜索路径

把绝对路径改成相对路径:
Appdoc1.Application.Documents.Open("&LCNowpath\T1.doc") &&加入相对路径&LCNowpath

回答2：

在工具的选项中进行设置默认目录

回答3：

Appdoc1.Application.Documents.Open(sys(5)+sys(2003)+'\T1.doc")