[KB功能解说] 如何自存储卷检索完整路径？

lynn.yu

适用产品版本
Sage X3 V7、PU8、PU9、PU10


模块
管理


问题概要
你在存储卷中有一个文件“[ATT]myfile.txt”，你想要获得它的完整路径。


详细信息
解决方法
下面这个小示例会检索你文件的完整路径，只需更改文件名即可。

#GBE sample program to convert volume in full path

Local Char MESSAGE(200)
Local Char FULPATH(200)
Local Char PATH(200)
Local Integer ZSTATUS

PATH="[ATT]/myfile.txt"

If left$(PATH,1)="["
ZSTATUS = func ASYRSTO.CTL_VOLFIL(2,PATH,FULPATH,0,MESSAGE)
If ZSTATUS <0
Gosub ERFIC
Endif
PATH= FULPATH
Endif
infbox "path ="-PATH-" message ="-MESSAGE

#I provide a wrong volume name to get the message
PATH="[ZZZ]/myfile.txt"

If left$(PATH,1)="["
ZSTATUS = func ASYRSTO.CTL_VOLFIL(2,PATH,FULPATH,0,MESSAGE)
If ZSTATUS <0
Gosub ERFIC
Endif
PATH= FULPATH
Endif
infbox "path ="-PATH-" message ="-MESSAGE

end

$ERFIC
infbox "process your error"
return