【HSP3】絶対パスを相対パスに変換

指定したパスを基準とした絶対パスを相対パスに変換するスクリプトです。

指定したパスを基準とした絶対パスを相対パスに変換するスクリプトです。

#uselib "Shlwapi.dll"
#func PathRelativePathToA "PathRelativePathToA" var,str,int,str,int
#func PathRelativePathToW "PathRelativePathToW" var,wptr,int,wptr,int
#define FILE_ATTRIBUTE_DIRECTORY 0x10
#define FILE_ATTRIBUTE_NORMAL 0x80

	frompath = "C:\\test\\hsp\\test\\test.txt"
	topath = "C:\\test\\hsp3\\hogehoge\\hsp.txt"
	
	sdim outpath, 260
	PathRelativePathToA outpath, frompath, FILE_ATTRIBUTE_DIRECTORY, topath, FILE_ATTRIBUTE_NORMAL
	
	mes "From    : "+frompath
	mes "To      : "+topath
	mes "相対パス: "+outpath