of_assemblepath

pfcapsrv.pbl   >   pfc_n_cst_filesrv   >   of_assemblepath

Name	Datatype
ls_Path	string

public function string of_assemblepath (string as_drive, string as_dirpath, string as_filename, string as_ext);//////////////////////////////////////////////////////////////////////////////
//	Public Function:  of_AssemblePath
//	Arguments:		as_Drive					The disk drive from the path.
//						as_DirPath				The directory path.
//						as_FileName				The name of the file.
//						as_Ext					The file extension.
//	Returns:			String - The fully-qualified directory path.
//	Description:	Assemble a fully-qualified directory path from its component parts.
//////////////////////////////////////////////////////////////////////////////
//	Rev. History:	Version
//						5.0   Initial version
//////////////////////////////////////////////////////////////////////////////
//	Copyright © 1996-1999 Sybase, Inc. and its subsidiaries.  All rights reserved.  Any distribution of the 
// PowerBuilder Foundation Classes (PFC) source code by other than Sybase, Inc. and its subsidiaries is prohibited.
//////////////////////////////////////////////////////////////////////////////
string	ls_Path

// Set the Drive and Path.
ls_Path = Trim(as_Drive) + Trim(as_DirPath)

// Make sure the separator is included.
If Right(ls_Path, 1) <> is_Separator Then	ls_Path = ls_Path + is_Separator

// Add the filename.
ls_Path = ls_Path + Trim(as_FileName)

// Add the Extension.
If Trim(as_Ext) <> "" Then	ls_Path = ls_Path + "." + Trim(as_Ext)

// Return the assembled path.
Return ls_Path
end function

Name	Owner
pfc_n_cst_filesrv.of_AssemblePath	pfc_n_cst_filesrv

Name	Owner
systemfunctions.right	systemfunctions
systemfunctions.trim	systemfunctions