[KB功能解说] 如何自存储卷检索完整路径？
[b]适用产品版本[/b]Sage X3 V7、PU8、PU9、PU10
[b]模块[/b]
管理
[b]问题概要[/b]
你在存储卷中有一个文件“[ATT]myfile.txt”，你想要获得它的完整路径。
[b]详细信息[/b]
[b]解决方法[/b]
下面这个小示例会检索你文件的完整路径，只需更改文件名即可。
#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
页:
[1]