>***************************************** >* 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 >