Table Of Contents

Index

ComAcceptFileProgram

Example:

   ComAcceptFileProgram = Loc MyAcceptName

   ;- Always overwrite file

   Procedure MyAcceptName
      if ExistFile ComFullFileName
         DelFile ComFullFileName
      endif
      Return True
   EndProc

   ;----- Ask to overwrite existing file

   Procedure MyAcceptName
   var Ch
      if ExistFile ComFullFileName
         DoubleLineBox
         BoxBorderColor LCyan Mag
         BoxInsideColor Yellow Mag
         InverseColor Yellow Red
         DrawBox 31 7 47 3
         UseArrows Off
         Write ' File ' ComFileName ' exists. Replace it? (Y/n) '
         Ch = UpperCase(ReadKey)
         EraseTopWindow
         if Ch = 'N'
            Return False
         else
            DelFile ComFullFileName
            Return True
         endif
      endif
      Return True
   EndProc

Category:	Modem

Table Of Contents

Index