FiveTech Software tech support forums

Code: Select all

//****
*FUNCTION BurnCDInXP()
//****
FUNCTION main()
LOCAL cBurnPath
//
IF  (oCD := XPBurnObj()  != NIL )
   oFSO := CreateObject( "Scripting.FileSystemObject" ) // If we get here we're in XP and this shouldn't fail...
   //
   WITH OBJECT ( oCD )
    *  :ClearFiles()                                     // Erases ALL files from burning area...
      //
   *   MakeDir( cBurnPath := ( :BurnArea + "\Backup" ) ) // Build your directory structure...
   *   MakeDir( cBurnPath += "\companyname" )
      //
   *   :AddFile( "c:\work\prg\burncd\XPBurnObj.dll" )                     // This method add the file to the root of the CD..
     * oFSO:CopyFile( "u:\yourfile.zip", cBurnPath + "\backup.ext" )
                                                        // Copy to the directory you just created...
      //
      :StartBurn()                                      // Invokes the XP Burning wizard...
   END
ENDIF
//
RETURN (.T.)

//***
FUNCTION XPBurnObj()
//***
   LOCAL oBurn
   //
   IF Os_IsWinXP()
      TRY
         oBurn := CreateObject( "BaydenBurn.XPBurn" )
         IF !( oBurn:Equipped )
            oBurn := NIL
         ENDIF
      CATCH
      END
   ENDIF
   //
   RETURN ( oBurn )