InstallShield高级应用文件操作

主要包含三个：

1 检查文件是否存在；

2 获得目录的前一级目录；

3 获得文件名称；

//检查文件是否存在，若不存在则返回FALSE
function BOOL ExistFile(szFileFullPath)
BOOL bExists;
STRING szFilePath,szFileName,svResult;
begin
bExists = FALSE;
szFilePath =szFileFullPath;
szFileName ="";
GetFileName(szFilePath,szFileName);
GetPreDir(szFilePath);
if(szFileName != "") then
if(FindFile(szFilePath,szFileName,svResult) = 0) then
bExists =TRUE;
endif;
endif;
return bExists;
end;

//获得目录的前一级目录
function GetPreDir(szDir)
number iLen,i;
STRING szSubStr;
begin
szSubStr = szDir;
i =1;
iLen = StrLength(szDir);
if(iLen>5) then
while(i<iLen)
if(szDir[iLen -i] = "\\") then
StrSub (szSubStr,szDir,0,iLen -i);
i = iLen;
endif;
i++;
endwhile;
szDir =szSubStr;
endif;
end;
//获得文件名称
function GetFileName(szFileFullPath,szFileName)
number iLen,i;
begin
szFileName ="";
iLen = StrLength(szFileFullPath);
i =iLen-1;
while(i>0)
if(szFileFullPath[i] = "\\") then
StrSub (szFileName,szFileFullPath,i+1,iLen - i);
return;
endif;
i--;
endwhile;
end;