Hi,
I have code to save file (see below) but I dont know how to check if a
file with the same name already exists in that folder to warn user.
Any help please.
oSaveAsDialog:=SaveAsDialog{ , CSVName()}
oSaveAsDialog:Caption:="Save As"
oSaveAsDialog:SetStyle(OFN_ALLOWMULTISELECT,FALSE)
oSaveAsDialog:InitialDirectory := aPath[1]
oSaveAsDialog:SetFilter({"*.CSV"},{"CSV Only"})
action:= oSaveAsDialog:Show()
uFileName := oSaveAsDialog:FileName
nPos := RAt('.',uFileName)
IF uFileName != NULL_STRING
cExt := Left(uFileName,nPos) //Get file name and path left of
extension
oSelf:cFileName := cExt+'CSV' //Force CSV on extension if user
enters something else
lFileSelected := TRUE
ELSE
lFileSelected := FALSE
ENDIF
RETURN lFileSelected
