On Thu, 10 Apr 2008 05:05:57 -0700 (PDT), "brian@[EMAIL PROTECTED]
"
<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
If File(uFileName)
MessageBox{"File already exists"}
Endif
....
> 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
|
