brian@[EMAIL PROTECTED]
wrote:
> 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
Brian,
Windows will do this for you if you set the appropriate flag
oSAD:= SaveAsDialog{SELF,"ExpSBGoogle.TXT" }
oSAD:SetStyle(OFN_NOCHANGEDIR,TRUE)
oSAD:SetStyle(OFN_PATHMUSTEXIST, TRUE)
oSAD:SetStyle(OFN_HIDEREADONLY, TRUE)
oSAD:SetStyle(OFN_OVERWRITEPROMPT,TRUE) // THIS IS THE ONE !!
HTH
--
Paul
|
