fileexists

pfcmain.pbl   >   pfc_u_rte   >   fileexists

Name	Datatype
ls_title	string

event fileexists;//////////////////////////////////////////////////////////////////////////////
//
//	Event:  			fileexists
//
//	(Arguments:		
//	filename			Name of the file that already exists.)
//
//	(Returns:  		Integer
//						 0 Continue processing.
//						-1 Stop processing.)
//
//	Description:  Prompt user to whether to save or existing file.
//
//////////////////////////////////////////////////////////////////////////////
//	
//	Revision History
//
//	Version
//	5.0   Initial version
//
//////////////////////////////////////////////////////////////////////////////
//
//	Copyright © 1996-1997 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_title

if not ib_ignorefileexists then
	ls_title = gnv_app.iapp_object.displayname
	if IsNull (ls_title) or Len (ls_title) = 0 then
		ls_title = "File Exists"
	end if

	if of_MessageBox ("pfc_replacefile", gnv_app.iapp_object.displayname, &
		"The file " + filename + " already exists.~r~n~r~nReplace existing file?", &
			exclamation!, yesno!, 2) = 1 then
		return 0
	else
		return -1
	end if
end if

return 0
end event

Name	Owner
systemfunctions.isnull	systemfunctions
systemfunctions.len	systemfunctions
pfc_u_rte.of_messagebox	pfc_u_rte

Full name
demopfc