***************************************** * Copy/Backup .SCX forms and .EXE files * ***************************************** PUBLIC proj_drive proj_dir USE projdbfs IN 0 SHARED SELECT projdbfs SCAN SELECT projdbfs pathname = projdbfs.proj_drive+":\"+ALLT(projdbfs.proj_dir)+"\"+ALLT(projdbfs.proj_name)+".PJX" IF FILE(pathname) USE (pathname) IN 0 SHARED ALIAS proj_file ELSE MESSAGEBOX("Project not found at expected location. Verify the project name, drive, and directory for accuracy.",64,"Data Dictionary") RETURN ENDIF SELECT proj_file SCAN IF proj_file.type = "K" FormName = SUBSTR(ALLT(proj_file.name),1,Len(ALLT(proj_file.name))-5) formpath = projdbfs.proj_drive+":\"+ALLT(projdbfs.proj_dir)+"\"+ALLT(FormName)+".SCX" IF FILE(formpath) destpath = "D:\BACKUP\"+ALLT(projdbfs.proj_dir)+"\"+ALLT(FormName)+".SCX" COPY FILE (formpath) TO (destpath) ENDIF ENDIF IF proj_file.type = "P" ProgName = SUBSTR(ALLT(proj_file.name),1,Len(ALLT(proj_file.name))-5) progpath = projdbfs.proj_drive+":\"+ALLT(projdbfs.proj_dir)+"\"+ALLT(ProgName)+".EXE" IF FILE(progpath) destpath = "D:\BACKUP\"+ALLT(projdbfs.proj_dir)+"\"+ALLT(ProgName)+".EXE" COPY FILE (progpath) TO (destpath) ENDIF ENDIF ENDSCAN SELECT proj_file USE ENDSCAN SELECT projdbfs USE