home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 October A / Pcwk10a98.iso / Corel / Ventura8 / Ventura / Scripts / FindUnusedFiles.csc < prev    next >
Text File  |  1998-07-08  |  43KB  |  934 lines
  1. REM Finds unused files in VENTURA 8 publications [CorelSCRIPT 8]
  2. REM FindUnusedFiles.csc  March, 1998
  3. REM ⌐ 1998 Corel Corporation. All rights reserved.
  4.  
  5. REM **************************************************************************************
  6. REM This script searches the open Ventura publication for unused picture and text files.
  7. REM The user is prompted for the type of files to search for (picture, text, or both).
  8. REM The user is then promted for the scope of the search (entire pub or current chapter).
  9. REM If a publication is not open, the user is prompted to open one or exit the wizard.
  10. REM A list of unused files is displayed (picture and text files are displayed separately).
  11. REM The user has the option of saving this list to a file, or deleting all unused files, 
  12. REM or just leaving them alone.
  13. REM **************************************************************************************
  14.  
  15. ' Create a temporary folder to provide a path for the include files
  16. '  -this enables the include files to be located 
  17. #addfol "..\..\Scripts"
  18. #include "ScpConst.csi"
  19. #include "VPConst.csi"
  20.  
  21. ' Embed bitmaps if script is to be compiled into exe or csb formats
  22. ' -this will eliminate the need to include these files
  23. #ADDRESBMP IntroBMP "Bitmaps\IntroBMP.bmp"
  24. #ADDRESBMP Step2BMP "Bitmaps\Step2BMP.bmp"
  25. #ADDRESBMP LastBMP "Bitmaps\LastBMP.bmp"
  26.  
  27. 'Constants for Dialog Return Values
  28. GLOBAL CONST DIALOG_RETURN_CANCEL% = 2
  29. GLOBAL CONST DIALOG_RETURN_NEXT% = 3
  30. GLOBAL CONST DIALOG_RETURN_BACK% = 4
  31. GLOBAL CONST DIALOG_RETURN_BROWSE% = 5
  32.  
  33. 'Constants for type of files to look for
  34. GLOBAL CONST BOTH_FILES% = 0
  35. GLOBAL CONST PICTURE_FILES% = 1
  36. GLOBAL CONST TEXT_FILES% = 2
  37.  
  38. 'Constants for scope of the search
  39. GLOBAL CONST SEARCH_ENTIRE_PUB% = 0
  40. GLOBAL CONST SEARCH_CHAPTER% = 1
  41.  
  42. '/////FUNCTION & SUBROUTINE DECLARATIONS/////////////////////////////////////////////////
  43. DECLARE SUB RegQuery()
  44. DECLARE FUNCTION ShowIntro() AS INTEGER
  45. DECLARE FUNCTION GetFileType() AS INTEGER
  46. DECLARE SUB FindFiles(TypeOfFile%)
  47. DECLARE SUB CreateListOfFiles(TypeOfFile AS BOOLEAN, NameOfFile AS STRING, CurrentChapter$)
  48. DECLARE FUNCTION ShowUnusedFiles() AS INTEGER
  49. DECLARE FUNCTION ShowFinish() AS INTEGER
  50. DECLARE FUNCTION RemoveUnusedFiles() AS INTEGER
  51. DECLARE FUNCTION SaveToFile(FileListFile$) AS BOOLEAN
  52.  
  53.  
  54. '/////GLOBAL VARIABLES & CONSTANTS////////////////////////////////////////////////////////
  55. GLOBAL CONST MAXFILES% = 100                    'Maximum number of files
  56. GLOBAL UnusedPictureFiles$(MAXFILES%, 2)        'List of unused picture files, and the chapter in which they belong
  57. GLOBAL UnusedPictureFilesCount%                'Total number of unused picture files
  58. GLOBAL SelectedUnusedPictureFiles$(MAXFILES%, 2)    'List of unused picture files selected for deletion, and the chapter in which they belong
  59. GLOBAL SelectedUnusedPictureFilesCount%            'Total number of picture files selected for deletion
  60. GLOBAL UnusedTextFiles$(MAXFILES%, 2)            'List of unused text files, and the chapter in which they belong
  61. GLOBAL UnusedTextFilesCount%                    'Total number of unused text files
  62. GLOBAL SelectedUnusedTextFiles$(MAXFILES%, 2)    'List of unused text files selected for deletion, and the chapter in which they belong
  63. GLOBAL SelectedUnusedTextFilesCount%            'Total number of text files selected for deletion
  64.  
  65. GLOBAL VenturaRoot$                            'Root directory of Ventura from registry
  66. GLOBAL FileType%                            'Type of tag to search for (0-BOTH; 1-Picture; 2-Text)
  67. GLOBAL SearchType%                            'Scope of the search (0-publication; 1-current chapter only)
  68.  
  69.  
  70. '/////LOCAL DECLARATIONS//////////////////////////////////////////////////////////////////
  71. CONST MAXSTEP% = 7        'maximum number of pages in the Wizard
  72. DIM DialogReturn%        'identifies user's selection for next step in Wizard
  73. DIM NextStep%            'specifies which page appears next in the Wizard
  74.  
  75.  
  76. ' **************************************************************************************
  77. ' MAIN
  78. ' **************************************************************************************
  79. ON ERROR GOTO ErrorHandler
  80.  
  81. RegQuery            'get root directory where Ventura is installed
  82.  
  83. 'this section controls traversal through the dialog pages
  84. NextStep% = 1
  85. DO
  86.     SELECT CASE NextStep%
  87.         CASE 1: DialogReturn% = ShowIntro()        'Show Intro dialog
  88.         CASE 2: DialogReturn% = GetFileType()        'Get type of file to look for (0-BOTH; 1-Picture; 2-Text)
  89.             IF FileType%=BOTH_FILES AND UnusedPictureFilesCount% < 1 AND UnusedTextFilesCount% < 1 THEN 
  90.                 FindFiles(PICTURE_FILES)        'Get list of unused picture files        
  91.                 FindFiles(TEXT_FILES)        'Get list of unused text files
  92.             ENDIF
  93.             IF FileType%=PICTURE_FILES AND UnusedPictureFilesCount% < 1 THEN FindFiles(PICTURE_FILES)    'Get list of unused picture files
  94.             IF FileType%=TEXT_FILES AND UnusedTextFilesCount% < 1 THEN FindFiles(TEXT_FILES)        'Get list of unused text files
  95.     
  96.         CASE 3    'Display list of unused picture files
  97.             IF FileType%=PICTURE_FILES AND UnusedPictureFilesCount% > 0 THEN         
  98.                 DialogReturn% = ShowUnusedFiles()
  99.             ENDIF
  100.  
  101.         CASE 4    'Display list of unused text files
  102.             IF FileType%=TEXT_FILES AND UnusedTextFilesCount% > 0 THEN         
  103.                 DialogReturn% = ShowUnusedFiles()
  104.             ENDIF
  105.  
  106.         CASE 5    'Display list of unused picture and text files
  107.             IF FileType%=BOTH_FILES THEN        'Display list of unused files
  108.                 IF UnusedPictureFilesCount% > 0 THEN 
  109.                     FileType%=PICTURE_FILES    :    DialogReturn% = ShowUnusedFiles() 
  110.                 ENDIF
  111.                 IF UnusedTextFilesCount% > 0 THEN
  112.                     FileType%=TEXT_FILES    :    DialogReturn% = ShowUnusedFiles()
  113.                 ENDIF
  114.                 FileType% = BOTH_FILES        'Need to reset FileType to it's correct state for next function to use
  115.             ENDIF
  116.  
  117.         CASE 6: DialogReturn% = ShowFinish()        
  118.  
  119.         CASE 7: DialogReturn% = RemoveUnusedFiles()        'Remove unused picture files from pub
  120.     END SELECT
  121.     NextStep% = NextStep% + DialogReturn%
  122. LOOP UNTIL NextStep% = MAXSTEP + 1
  123.  
  124. ExitScript:
  125. STOP
  126.  
  127. ErrorHandler:
  128. SELECT CASE ErrNum
  129.     CASE 800
  130.         MESSAGE "FATAL ERROR" & CHR(13) & "Script will now exit."
  131.         RESUME AT ExitScript
  132.     CASE ELSE
  133.         MESSAGE "ERROR: " & STR(ErrNum) & CHR(13) & "Script will now exit."
  134.         RESUME AT ExitScript
  135.     END SELECT
  136.  
  137.  
  138. ' *******************************************************************************
  139. ' RegQuery
  140. ' This subroutine queries the Registry to determine the root directory where 
  141. ' Ventura is installed.
  142. ' *******************************************************************************
  143. SUB RegQuery
  144. ON ERROR GOTO ErrorHandler
  145.  
  146.     'get Ventura config directory
  147.     VentDir$ = REGISTRYQUERY(HKEY_LOCAL_MACHINE,VENTURA_REGQUERY_CONST,"ConfigDir")     
  148.     
  149.     'isolate Ventura root directory from Ventura config directory
  150.     first% = 1
  151.     pos% = 1
  152.     DO WHILE first <> 0
  153.         first = INSTR(VentDir$, "\", first )
  154.         IF first <> 0 THEN
  155.             pos = first
  156.             first = first + 1
  157.         END IF
  158.     LOOP
  159.     VenturaRoot$ = LEFT(VentDir$, pos - 1)     'root directory where Ventura is installed
  160.  
  161. EXIT SUB
  162. ErrorHandler:
  163.     MESSAGE "Error reading registry:" & CHR(13) & RegString$
  164.     ErrNum = 800
  165. END SUB
  166.  
  167.  
  168. ' *******************************************************************************
  169. ' ShowIntro
  170. ' This function displays the introduction dialog.
  171. ' 
  172. ' PARAMS: None
  173. '
  174. ' RETURNS: ShowIntro AS INTEGER - Integer indicating dialog return value.
  175. ' *******************************************************************************
  176. FUNCTION ShowIntro%
  177. BEGIN DIALOG OBJECT IntroDialog 290, 180, "Find Unused Files Wizard", SUB IntroDialogEventHandler
  178.     PUSHBUTTON  181, 160, 46, 14, .NextButton, "&Next >"
  179.     CANCELBUTTON  234, 160, 46, 14, .CancelButton
  180.     PUSHBUTTON  135, 160, 46, 14, .BackButton, "< &Back"
  181.     TEXT  95, 10, 185, 20, .Text2, "This wizard will find all the unused picture or text files in the current publication."
  182.     TEXT  95, 40, 185, 12, .Text3, "To begin finding unused files, click Next."
  183.     IMAGE  10, 10, 75, 130, .IntroImage
  184.     GROUPBOX  10, 150, 270, 5, .LineGroupBox
  185. END DIALOG
  186.  
  187. IntroDialog.SetStyle STYLE_INVISIBLE
  188. IntroDialog.IntroImage.SetImage "#IntroBMP"
  189. IntroDialog.IntroImage.SetStyle STYLE_IMAGE_CENTERED
  190.  
  191.     IntroRet%=DIALOG(IntroDialog)
  192.     IF IntroRet% = DIALOG_RETURN_CANCEL THEN STOP    
  193.     IF IntroRet% = DIALOG_RETURN_NEXT THEN ShowIntro% = 1        
  194.  
  195. END FUNCTION
  196.  
  197. ' *******************************************************************************
  198. ' IntroDialogEventHandler
  199. ' This subroutine responds to user interface with the introduction dialog.
  200. ' 
  201. ' PARAMS: BYVAL ControlID% - Integer indicating the dialog control that is 
  202. '                            generating a dialog event.
  203. '        BYVAL Event% - Integer indicating the dialog event that has occurred.
  204. ' *******************************************************************************
  205. SUB IntroDialogEventHandler(BYVAL ControlID%, BYVAL Event%)
  206.     IF Event% = EVENT_INITIALIZATION THEN         
  207.         IntroDialog.BackButton.Enable FALSE 
  208.         IntroDialog.SetStyle STYLE_VISIBLE
  209.     ENDIF
  210.     IF Event% = EVENT_MOUSE_CLICK THEN     
  211.         SELECT CASE ControlID%
  212.             CASE IntroDialog.NextButton.GetID()
  213.                 IntroDialog.CloseDialog DIALOG_RETURN_NEXT
  214.             CASE IntroDialog.CancelButton.GetID()
  215.                 IntroDialog.CloseDialog DIALOG_RETURN_CANCEL
  216.         END SELECT
  217.     ENDIF
  218. END FUNCTION
  219.  
  220.  
  221. ' *******************************************************************************
  222. ' GetFileType
  223. ' This function displays the tag type dialog and prompts the user for the type of
  224. ' tag to look for (paragraph, character, or both).
  225. ' 
  226. ' PARAMS: None
  227. '
  228. ' RETURNS: GetFileType AS INTEGER - Integer indicating dialog return value.
  229. ' *******************************************************************************
  230. FUNCTION GetFileType%
  231. BEGIN DIALOG OBJECT FileTypeDialog 290, 180, "Find Unused Files Wizard", SUB FileTypeDialogEventHandler
  232.     OPTIONGROUP .FileTypeOptionGroup
  233.         OPTIONBUTTON  115, 40, 65, 12, .BothOptionButton, "&All files"
  234.         OPTIONBUTTON  115, 55, 65, 12, .PictureFilesOption, "&Picture files"
  235.         OPTIONBUTTON  115, 70, 65, 12, .TextFilesOption, "&Text files"
  236.     OPTIONGROUP .SearchOptionGroup
  237.         OPTIONBUTTON  115, 108, 74, 12, .EntirePubOptionButton, "&Entire publication"
  238.         OPTIONBUTTON  115, 122, 76, 12, .CurrentChapterOptionButton, "&Current chapter"
  239.     PUSHBUTTON  135, 160, 46, 14, .BackButton, "< &Back"
  240.     PUSHBUTTON  181, 160, 46, 14, .NextButton, "&Search"
  241.     CANCELBUTTON  234, 160, 46, 14, .CancelButton
  242.     TEXT  95, 10, 185, 12, .Text1, "What type of files would you like to search for?"
  243.     GROUPBOX  95, 30, 185, 58, .GroupBox1, "File Type:"
  244.     GROUPBOX  95, 95, 185, 45, .GroupBox2, "Search:"
  245.     IMAGE  10, 10, 75, 130, .FileTypeImage
  246.     GROUPBOX  10, 150, 270, 5, .LineGroupBox
  247. END DIALOG
  248.  
  249.     FileTypeDialog.SetStyle STYLE_INVISIBLE
  250.     FileTypeDialog.FileTypeImage.SetImage "#Step2BMP"
  251.     FileTypeDialog.FileTypeImage.SetStyle STYLE_IMAGE_CENTERED
  252.     FileTypeDialog.SetStyle STYLE_VISIBLE
  253.  
  254.     FileTypeRet%=DIALOG(FileTypeDialog)
  255.     SELECT CASE FileTypeRet%
  256.         CASE DIALOG_RETURN_CANCEL    
  257.             STOP
  258.         CASE DIALOG_RETURN_NEXT        
  259.             FileTypeDialog.SetVisible FALSE
  260.             FileType% = FileTypeDialog.FileTypeOptionGroup.GetValue()
  261.             SearchType% = FileTypeDialog.SearchOptionGroup.GetValue()
  262. REM             ClearFileList
  263.             GetFileType = 1
  264.         CASE DIALOG_RETURN_BACK        
  265.             GetFileType = -1
  266.     END SELECT
  267. END FUNCTION
  268.  
  269.  
  270. ' *******************************************************************************
  271. ' FileTypeDialogEventHandler
  272. ' This subroutine responds to user interface with the file type dialog.
  273. ' 
  274. ' PARAMS: BYVAL ControlID% - Integer indicating the dialog control that is 
  275. '                            generating a dialog event.
  276. '        BYVAL Event% - Integer indicating the dialog event that has occurred.
  277. ' *******************************************************************************
  278. SUB FileTypeDialogEventHandler(BYVAL ControlID%, BYVAL Event%)
  279.     IF Event% = EVENT_INITIALIZATION  THEN        
  280.         FileTypeDialog.SetStyle STYLE_VISIBLE
  281.     ENDIF
  282.  
  283.     IF Event% = EVENT_MOUSE_CLICK THEN         
  284.         SELECT CASE ControlID%
  285.             CASE FileTypeDialog.NextButton.GetID()        
  286.                 BEGINWAITCURSOR
  287.                 WITHOBJECT OBJECT_VENTURA8
  288.                 ENDWAITCURSOR
  289.                     'Make sure there is an open pub
  290.                     IF .CountWindows() = 0 THEN
  291.                         PubMsg$ = "You need an open publication to run this script." & CHR(13) & "Open one now?"
  292.                         MsgVal% = MESSAGEBOX(PubMsg$, "WARNING", MB_YES_NO OR MB_STOP_ICON)
  293.                         IF MsgVal% = MSG_YES THEN         'Yes, open a pub
  294.                             SETCURRFOLDER VenturaRoot$
  295.                             PubName$ = GETFILEBOX("Publication files (*.VP*)|*.VP*", , , ,"*.vp*", VenturaRoot$ & "\Ventura\Samples" )
  296.                             IF PubName$ <> "" THEN
  297.                                 .SetVisible TRUE
  298.                                 .FileOpen PubName$, , TRUE, 1, TRUE, FALSE
  299.                                 FileTypeDialog.closedialog DIALOG_RETURN_NEXT
  300.                             ENDIF
  301.                         ELSE
  302.                             'STOP
  303.                         ENDIF
  304.                     ELSE
  305.                         PubName$=.PublicationName()
  306.                         FileTypeDialog.closedialog DIALOG_RETURN_NEXT
  307.                     ENDIF
  308.                 END WITHOBJECT
  309.  
  310.             CASE FileTypeDialog.BackButton.GetID()        
  311.                 FileTypeDialog.closedialog DIALOG_RETURN_BACK
  312.             CASE FileTypeDialog.CancelButton.GetID()        
  313.                 FileTypeDialog.closedialog DIALOG_RETURN_CANCEL    
  314.         END SELECT
  315.     ENDIF
  316. END SUB
  317.  
  318.  
  319. ' *******************************************************************************
  320. ' ShowUnusedFiles
  321. ' This function displays the results of the unused paragraph tag search.
  322. '
  323. ' PARAMS: None
  324. '
  325. ' RETURNS: ShowUnusedFiles AS INTEGER - Integer indicating dialog return value.
  326. ' *******************************************************************************
  327. FUNCTION ShowUnusedFiles%
  328. BEGIN DIALOG OBJECT UnusedFilesDialog 290, 180, "Find Unused Files Wizard", SUB UnusedFilesDialogEventHandler     '"Corel VENTURA Conversion Wizard - Done"
  329.     PUSHBUTTON  135, 160, 46, 14, .BackButton, "< &Back"
  330.     PUSHBUTTON  181, 160, 46, 14, .NextButton, "&Next >"
  331.     CANCELBUTTON  234, 160, 46, 14, .CancelButton
  332.     PUSHBUTTON  122, 40, 46, 14, .SelectButton, "Se&lect >>"
  333.     PUSHBUTTON  122, 55, 46, 14, .DeselectButton, "<< &Deselect"
  334.     PUSHBUTTON  122, 80, 46, 14, .SelectAllButton, "Select &All"
  335.     PUSHBUTTON  122, 95, 46, 14, .DeselectAllButton, "D&eselect All"
  336.     PUSHBUTTON  122, 120, 46, 14, .SaveButton, "&Save list..."
  337.     LISTBOX  10, 35, 100, 100, .UnusedFilesListBox
  338.     LISTBOX  10, 35, 100, 100, .ChapsListBox
  339.     LISTBOX  180, 35, 100, 100, .SelectedUnusedFilesListBox
  340.     LISTBOX  180, 35, 100, 100, .SelectedChapsListBox
  341.     TEXT  10, 5, 269, 12, .Text2, "Which picture files would you like to delete? "
  342.     TEXT  10, 20, 79, 12, .Text4, "Unused picture files:"
  343.     TEXT  90, 20, 20, 12, .UnusedFilesCount, ""
  344.     TEXT  180, 20, 75, 12, .Text5, "Files to be deleted:"
  345.     TEXT  258, 20, 20, 12, .SelectedUnusedFilesCount, ""
  346.     GROUPBOX  10, 150, 270, 5, .LineGroupBox
  347.     TEXT  11, 139, 264, 12, .StatusText, "No files selected"
  348. END DIALOG
  349.     
  350.     UnusedFilesDialog.SetStyle STYLE_INVISIBLE
  351.     UnusedFilesDialog.ChapsListBox.SetStyle STYLE_INVISIBLE
  352.     UnusedFilesDialog.SelectedChapsListBox.SetStyle STYLE_INVISIBLE
  353.     UnusedFilesDialog.StatusText.SetStyle STYLE_SUNKEN
  354.  
  355.     UnusedFilesDialogRet% = DIALOG(UnusedFilesDialog)
  356.     
  357.     SELECT CASE UnusedFilesDialogRet%
  358.         CASE DIALOG_RETURN_CANCEL        
  359.             STOP
  360.         CASE DIALOG_RETURN_NEXT        
  361.             ShowUnusedFiles = 1
  362.         CASE DIALOG_RETURN_BACK         
  363.             IF FileType%=PICTURE_FILES THEN 
  364.                 ShowUnusedFiles = -1
  365.             ELSE
  366.                 ShowUnusedFiles = -2
  367.             ENDIF
  368.     END SELECT
  369.     
  370. END FUNCTION
  371.  
  372. ' *******************************************************************************
  373. ' UnusedFilesDialogEventHandler
  374. ' This subroutine responds to user interface with the unused files dialog.
  375. ' 
  376. ' PARAMS: BYVAL ControlID% - Integer indicating the dialog control that is 
  377. '                            generating a dialog event.
  378. '        BYVAL Event% - Integer indicating the dialog event that has occurred.
  379. ' *******************************************************************************
  380. SUB UnusedFilesDialogEventHandler(BYVAL ControlID%, BYVAL Event%)
  381. DIM i%
  382. DIM SaveStatus AS BOOLEAN
  383. STATIC SelectedUnusedFilesCount%
  384. STATIC UnusedFilesCount%
  385.  
  386.     IF Event% = EVENT_INITIALIZATION THEN         
  387.         UnusedFilesDialog.UnusedFilesCount.SetStyle STYLE_RIGHT_JUSTIFY
  388.         UnusedFilesDialog.SelectedUnusedFilesCount.SetStyle STYLE_RIGHT_JUSTIFY
  389.  
  390.         SELECT CASE FileType%
  391.             CASE PICTURE_FILES%
  392.                 UnusedFilesCount% = UnusedPictureFilesCount%
  393.                 SelectedUnusedFilesCount% = SelectedUnusedPictureFilesCount%
  394.                 FOR i% = 1 TO UnusedFilesCount%
  395.                     UnusedFilesDialog.UnusedFilesListBox.AddItem UnusedPictureFiles(i%, 1)
  396.                     UnusedFilesDialog.ChapsListBox.AddItem UnusedPictureFiles(i%, 2)
  397.                 NEXT i%
  398.                 FOR i% = 1 TO SelectedUnusedFilesCount%
  399.                     UnusedFilesDialog.SelectedUnusedFilesListBox.AddItem SelectedUnusedPictureFiles(i%, 1)
  400.                     UnusedFilesDialog.SelectedChapsListBox.AddItem SelectedUnusedPictureFiles(i%, 2)
  401.                 NEXT i%
  402.                 UnusedFilesDialog.Text2.SetText "Which picture files would you like to delete?"
  403.                 UnusedFilesDialog.Text4.SetText "Unused picture files:"
  404.  
  405.             CASE TEXT_FILES%
  406.                 UnusedFilesCount% = UnusedTextFilesCount%
  407.                 SelectedUnusedFilesCount% = SelectedUnusedTextFilesCount%
  408.                 FOR i% = 1 TO UnusedFilesCount%
  409.                     UnusedFilesDialog.UnusedFilesListBox.AddItem UnusedTextFiles$(i%, 1)
  410.                     UnusedFilesDialog.ChapsListBox.AddItem UnusedTextFiles$(i%, 2) 
  411.                 NEXT i%
  412.                 FOR i% = 1 TO SelectedUnusedFilesCount%
  413.                     UnusedFilesDialog.SelectedUnusedFilesListBox.AddItem SelectedUnusedTextFiles$(i%, 1)
  414.                     UnusedFilesDialog.SelectedChapsListBox.AddItem SelectedUnusedTextFiles$(i%, 2)
  415.                 NEXT i%
  416.                 UnusedFilesDialog.Text2.SetText "Which text files would you like to delete?"
  417.                 UnusedFilesDialog.Text4.SetText "Unused text files:"
  418.  
  419.         END SELECT
  420.         IF UnusedFilesCount < 1 THEN
  421.             UnusedFilesDialog.Text2.SetText "There are no unused files."
  422.             UnusedFilesDialog.SelectButton.Enable FALSE
  423.             UnusedFilesDialog.DeselectButton.Enable FALSE
  424.             UnusedFilesDialog.SelectAllButton.Enable FALSE
  425.             UnusedFilesDialog.DeselectAllButton.Enable FALSE
  426.             UnusedFilesDialog.SaveButton.Enable FALSE
  427.         ENDIF
  428.  
  429.         UnusedFilesDialog.UnusedFilesListBox.SetSelect 1
  430.         UnusedFilesDialog.UnusedFilesCount.SetText UnusedFilesDialog.UnusedFilesListBox.GetItemCount()
  431.         UnusedFilesDialog.SelectedUnusedFilesCount.SetText UnusedFilesDialog.SelectedUnusedFilesListBox.GetItemCount()
  432.         UnusedFilesDialog.StatusText.SetText  UnusedFilesDialog.UnusedFilesListBox.GetItem(1)
  433.         UnusedFilesDialog.SetStyle STYLE_VISIBLE
  434.     ENDIF
  435.  
  436.     IF Event% = EVENT_MOUSE_CLICK THEN         
  437.         SELECT CASE ControlID%
  438.             CASE UnusedFilesDialog.NextButton.GetID()        
  439.                 'build list of appropriate files
  440.                 SELECT CASE FileType%
  441.                     CASE PICTURE_FILES%
  442.                         SelectedUnusedPictureFilesCount% = UnusedFilesDialog.SelectedUnusedFilesListBox.GetItemCount()
  443.                         REDIM SelectedUnusedPictureFiles$(SelectedUnusedPictureFilesCount, 2)                    'redimension array to accomodate all selected files
  444.                         FOR i% = 1 TO SelectedUnusedPictureFilesCount%                                    'FOR all items in selected files list
  445.                             SelectedUnusedPictureFiles$(i%, 1) = UnusedFilesDialog.SelectedUnusedFilesListBox.GetItem(i%)    'add selection to FilesList
  446.                             SelectedUnusedPictureFiles$(i%, 2) = UnusedFilesDialog.SelectedChapsListBox.GetItem(i%)    'add selection to FilesList
  447.                         NEXT i%
  448.         
  449.                         UnusedPictureFilesCount% = UnusedFilesDialog.UnusedFilesListBox.GetItemCount()
  450.                         REDIM UnusedPictureFiles$(UnusedPictureFilesCount, 2)                            'redimension array to accomodate all selected files
  451.                         FOR i% = 1 TO UnusedPictureFilesCount%                                    'FOR all items in selected files list
  452.                             UnusedPictureFiles$(i%, 1) = UnusedFilesDialog.UnusedFilesListBox.GetItem(i%)    'add selection to FilesList
  453.                             UnusedPictureFiles$(i%, 2) = UnusedFilesDialog.ChapsListBox.GetItem(i%)    'add selection to FilesList
  454.                         NEXT i%
  455.  
  456.                     CASE TEXT_FILES%
  457.                         SelectedUnusedTextFilesCount% = UnusedFilesDialog.SelectedUnusedFilesListBox.GetItemCount()
  458.                         REDIM SelectedUnusedTextFiles$(SelectedUnusedTextFilesCount, 2)                    'redimension array to accomodate all selected files
  459.                         FOR i% = 1 TO SelectedUnusedTextFilesCount%                                    'FOR all items in selected files list
  460.                             SelectedUnusedTextFiles$(i%, 1) = UnusedFilesDialog.SelectedUnusedFilesListBox.GetItem(i%)    'add selection to FilesList
  461.                             SelectedUnusedTextFiles$(i%, 2) = UnusedFilesDialog.SelectedChapsListBox.GetItem(i%)    'add selection to FilesList
  462.                         NEXT i%
  463.         
  464.                         UnusedTextFilesCount% = UnusedFilesDialog.UnusedFilesListBox.GetItemCount()
  465.                         REDIM UnusedTextFiles$(UnusedTextFilesCount, 2)                            'redimension array to accomodate all selected files
  466.                         FOR i% = 1 TO UnusedTextFilesCount%                                    'FOR all items in selected files list
  467.                             UnusedTextFiles$(i%, 1) = UnusedFilesDialog.UnusedFilesListBox.GetItem(i%)    'add selection to FilesList
  468.                             UnusedTextFiles$(i%, 2) = UnusedFilesDialog.ChapsListBox.GetItem(i%)    'add selection to FilesList
  469.                         NEXT i%
  470.  
  471.                 END SELECT
  472.                 UnusedFilesDialog.CloseDialog DIALOG_RETURN_NEXT
  473.  
  474.  
  475.             CASE UnusedFilesDialog.BackButton.GetID()        
  476.                 UnusedFilesDialog.CloseDialog DIALOG_RETURN_BACK
  477.  
  478.             CASE UnusedFilesDialog.SelectButton.GetID()            
  479.                 indx% = UnusedFilesDialog.UnusedFilesListBox.GetSelect()                                    'get index of selection
  480.                 IF indx%=0 THEN    'no tags selected
  481.                     IF UnusedFilesDialog.UnusedFilesListBox.GetItemCount() = 0 THEN
  482.                         MESSAGE "There are no files available for selection."
  483.                     ELSE
  484.                         MESSAGE "Please select a file from the available files list."
  485.                     ENDIF
  486.                 ELSE
  487.                     UnusedFilesDialog.SelectedUnusedFilesListBox.AddItem UnusedFilesDialog.UnusedFilesListBox.GetItem(indx%)    'add selection to SelectedFilesList
  488.                     UnusedFilesDialog.SelectedChapsListBox.AddItem UnusedFilesDialog.ChapsListBox.GetItem(indx%)    'add selection to SelectedFilesList
  489.                     UnusedFilesDialog.UnusedFilesListBox.RemoveItem indx%                                        'remove selection from available files list
  490.                     UnusedFilesDialog.ChapsListBox.RemoveItem indx%                                        'remove selection from available files list
  491.                     IF indx% > UnusedFilesDialog.UnusedFilesListBox.GetItemCount() THEN
  492.                         UnusedFilesDialog.UnusedFilesListBox.SetSelect indx%-1
  493.                     ELSE
  494.                         UnusedFilesDialog.UnusedFilesListBox.SetSelect indx%
  495.                     ENDIF
  496.                      UnusedFilesDialog.StatusText.SetText UnusedFilesDialog.UnusedFilesListBox.GetItem(UnusedFilesDialog.UnusedFilesListBox.GetSelect())
  497.                     UnusedFilesDialog.SelectedUnusedFilesListBox.SetSelect 0
  498.                 ENDIF
  499.  
  500.             CASE UnusedFilesDialog.DeselectButton.GetID()            'selected files list
  501.                 indx% = UnusedFilesDialog.SelectedUnusedFilesListBox.GetSelect()                                'get index of selection
  502.                 IF indx%=0 THEN    'no files selected
  503.                     IF UnusedFilesDialog.SelectedUnusedFilesListBox.GetItemCount() = 0 THEN
  504.                         MESSAGE "There are no files available for deselection"
  505.                     ELSE
  506.                         MESSAGE "Please select a file from the selected files list."
  507.                     ENDIF
  508.                 ELSE
  509.                     UnusedFilesDialog.UnusedFilesListBox.AddItem UnusedFilesDialog.SelectedUnusedFilesListBox.GetItem(indx%)    'add selection to FilesList
  510.                     UnusedFilesDialog.ChapsListBox.AddItem UnusedFilesDialog.SelectedChapsListBox.GetItem(indx%)    'add selection to FilesList
  511.                     UnusedFilesDialog.SelectedUnusedFilesListBox.RemoveItem indx%                                'remove selection from selected files list
  512.                     UnusedFilesDialog.SelectedChapsListBox.RemoveItem indx%                                'remove selection from selected files list
  513.                     IF indx% > UnusedFilesDialog.SelectedUnusedFilesListBox.GetItemCount() THEN
  514.                         UnusedFilesDialog.SelectedUnusedFilesListBox.SetSelect indx%-1
  515.                     ELSE
  516.                         UnusedFilesDialog.SelectedUnusedFilesListBox.SetSelect indx%
  517.                     ENDIF
  518.                      UnusedFilesDialog.StatusText.SetText UnusedFilesDialog.SelectedUnusedFilesListBox.GetItem(UnusedFilesDialog.SelectedUnusedFilesListBox.GetSelect())
  519.                     UnusedFilesDialog.UnusedFilesListBox.SetSelect 0
  520.                 ENDIF
  521.  
  522.             CASE UnusedFilesDialog.SelectAllButton.GetID()        
  523.                 UnusedFilesDialog.StatusText.SetText "All files selected."
  524.                 UnusedFilesDialog.SelectedUnusedFilesListBox.SetSelect 0
  525.                 WHILE UnusedFilesDialog.UnusedFilesListBox.GetItemCount() > 0        'while there are available files
  526.                     UnusedFilesDialog.SelectedUnusedFilesListBox.AddItem UnusedFilesDialog.UnusedFilesListBox.GetItem(1)    'add selection to SelectedFilesList
  527.                     UnusedFilesDialog.SelectedChapsListBox.AddItem UnusedFilesDialog.ChapsListBox.GetItem(1)    'add selection to SelectedFilesList
  528.                     UnusedFilesDialog.UnusedFilesListBox.RemoveItem 1                                            'remove selection from available files list    
  529.                     UnusedFilesDialog.ChapsListBox.RemoveItem 1                                            'remove selection from available files list    
  530.                     UnusedFilesDialog.UnusedFilesCount.SetText UnusedFilesDialog.UnusedFilesListBox.GetItemCount()        'number of available files
  531.                     UnusedFilesDialog.SelectedUnusedFilesCount.SetText UnusedFilesDialog.SelectedUnusedFilesListBox.GetItemCount()    'number of selected files
  532.                 WEND
  533.  
  534.             CASE UnusedFilesDialog.DeselectAllButton.GetID()        
  535.                 UnusedFilesDialog.StatusText.SetText "No files selected."
  536.                 UnusedFilesDialog.UnusedFilesListBox.SetSelect 0
  537.                 WHILE UnusedFilesDialog.SelectedUnusedFilesListBox.GetItemCount() > 0        'while there are selected files
  538.                     UnusedFilesDialog.UnusedFilesListBox.AddItem UnusedFilesDialog.SelectedUnusedFilesListBox.GetItem(1)    'add selection to FilesList
  539.                     UnusedFilesDialog.ChapsListBox.AddItem UnusedFilesDialog.SelectedChapsListBox.GetItem(1)    'add selection to FilesList
  540.                     UnusedFilesDialog.SelectedUnusedFilesListBox.RemoveItem 1                                    'remove selection from selected files list
  541.                     UnusedFilesDialog.SelectedChapsListBox.RemoveItem 1                                    'remove selection from selected files list
  542.                     UnusedFilesDialog.UnusedFilesCount.SetText UnusedFilesDialog.UnusedFilesListBox.GetItemCount()        'number of available files
  543.                     UnusedFilesDialog.SelectedUnusedFilesCount.SetText UnusedFilesDialog.SelectedUnusedFilesListBox.GetItemCount()        'number of selected files
  544.                 WEND
  545.  
  546.             CASE UnusedFilesDialog.SaveButton.GetID()        
  547.                 SELECT CASE FileType%
  548.                     CASE PICTURE_FILES
  549.                         DialogTitle$ = "Save list of unused picture files to..."
  550.                         DefFileName$ = "PicFiles.txt"
  551.                     CASE TEXT_FILES
  552.                         DialogTitle$ = "Save list of unused text files to..."
  553.                         DefFileName$ = "TextFiles.txt"
  554.                 END SELECT
  555.  
  556.                 SaveFile$ = GETFILEBOX("Text files (*.TXT)|*.TXT", "Save unused picture files to...", 1, "PicFiles.txt", "txt", VenturaRoot$)
  557.                 IF SaveFile$ <> "" THEN
  558.                     SaveStatus = SaveToFile(SaveFile$)
  559.                     IF SaveStatus = TRUE THEN
  560.                         MESSAGE "Save successful"
  561.                     ELSE
  562.                         MESSAGE "Unable to save to " & CHR(13) & SaveFile$
  563.                     ENDIF
  564.                 ENDIF
  565.  
  566.             CASE UnusedFilesDialog.CancelButton.GetID()            
  567.                 UnusedFilesDialog.closedialog DIALOG_RETURN_CANCEL    
  568.  
  569.             CASE UnusedFilesDialog.UnusedFilesListBox.GetID()            'files list
  570.                  UnusedFilesDialog.StatusText.SetText UnusedFilesDialog.UnusedFilesListBox.GetItem(UnusedFilesDialog.UnusedFilesListBox.GetSelect())
  571.                 UnusedFilesDialog.SelectedUnusedFilesListBox.SetSelect 0
  572.  
  573.             CASE UnusedFilesDialog.SelectedUnusedFilesListBox.GetID()            'selected files list
  574.                  UnusedFilesDialog.StatusText.SetText UnusedFilesDialog.SelectedUnusedFilesListBox.GetItem(UnusedFilesDialog.SelectedUnusedFilesListBox.GetSelect())
  575.                 UnusedFilesDialog.UnusedFilesListBox.SetSelect 0
  576.         END SELECT
  577.         UnusedFilesDialog.UnusedFilesCount.SetText UnusedFilesDialog.UnusedFilesListBox.GetItemCount()                'number of available files
  578.         UnusedFilesDialog.SelectedUnusedFilesCount.SetText UnusedFilesDialog.SelectedUnusedFilesListBox.GetItemCount()    'number of selected files
  579.     ENDIF
  580.  
  581.  
  582.     IF Event% = EVENT_DBL_MOUSE_CLICK THEN         
  583.         SELECT CASE ControlID%
  584.             CASE UnusedFilesDialog.UnusedFilesListBox.GetID()            'files list
  585.                 indx% = UnusedFilesDialog.UnusedFilesListBox.GetSelect()                                    'get index of selection
  586.                 UnusedFilesDialog.SelectedUnusedFilesListBox.AddItem UnusedFilesDialog.UnusedFilesListBox.GetItem(indx%)    'add selection to SelectedFilesList
  587.                 UnusedFilesDialog.SelectedChapsListBox.AddItem UnusedFilesDialog.ChapsListBox.GetItem(indx%)    'add selection to SelectedFilesList
  588.                 UnusedFilesDialog.UnusedFilesListBox.RemoveItem indx%                                        'remove selection from available files list
  589.                 UnusedFilesDialog.ChapsListBox.RemoveItem indx%                                        'remove selection from available files list
  590.                 IF indx% > UnusedFilesDialog.UnusedFilesListBox.GetItemCount() THEN
  591.                     UnusedFilesDialog.UnusedFilesListBox.SetSelect indx%-1
  592.                 ELSE
  593.                     UnusedFilesDialog.UnusedFilesListBox.SetSelect indx%
  594.                 ENDIF
  595.  
  596.             CASE UnusedFilesDialog.SelectedUnusedFilesListBox.GetID()            'selected files list
  597.                 indx% = UnusedFilesDialog.SelectedUnusedFilesListBox.GetSelect()                                'get index of selection
  598.                 UnusedFilesDialog.UnusedFilesListBox.AddItem UnusedFilesDialog.SelectedUnusedFilesListBox.GetItem(indx%)    'add selection to FilesList
  599.                 UnusedFilesDialog.ChapsListBox.AddItem UnusedFilesDialog.SelectedChapsListBox.GetItem(indx%)    'add selection to FilesList
  600.                 UnusedFilesDialog.SelectedUnusedFilesListBox.RemoveItem indx%                                'remove selection from selected files list
  601.                 UnusedFilesDialog.SelectedChapsListBox.RemoveItem indx%                                'remove selection from selected files list
  602.                 IF indx% > UnusedFilesDialog.SelectedUnusedFilesListBox.GetItemCount() THEN
  603.                     UnusedFilesDialog.SelectedUnusedFilesListBox.SetSelect indx%-1
  604.                 ELSE
  605.                     UnusedFilesDialog.SelectedUnusedFilesListBox.SetSelect indx%
  606.                 ENDIF
  607.  
  608.         END SELECT
  609.         UnusedFilesDialog.UnusedFilesCount.SetText UnusedFilesDialog.UnusedFilesListBox.GetItemCount()                'number of available tags
  610.         UnusedFilesDialog.SelectedUnusedFilesCount.SetText UnusedFilesDialog.SelectedUnusedFilesListBox.GetItemCount()    'number of selected tags
  611.     ENDIF
  612. END SUB
  613.  
  614.  
  615.  
  616.  
  617. ' *******************************************************************************
  618. ' ShowFinish
  619. ' This function displays the finish dialog, showing the number of each type of 
  620. ' unused files found, and how many have been selected for deletion.
  621. '
  622. ' PARAMS: None
  623. '
  624. ' RETURNS: ShowFinish AS INTEGER - Integer indicating dialog return value.
  625. ' *******************************************************************************
  626. FUNCTION ShowFinish%
  627.  
  628. BEGIN DIALOG OBJECT ShowFinishDialog 290, 180, "Find Unused Files Wizard", SUB ShowFinishDialogEventHandler
  629.     PUSHBUTTON  135, 160, 46, 14, .BackButton, "< &Back"
  630.     PUSHBUTTON  181, 160, 46, 14, .FinishButton, "&Delete"
  631.     PUSHBUTTON  234, 160, 46, 14, .CancelButton, "&Exit"
  632.     TEXT  95, 10, 185, 12, .InfoText, InfoText$
  633.     TEXT  95, 130, 185, 12, .DeleteText, DeleteText$
  634.     TEXT  95, 30, 80, 10, .PictureFilesText, "Unused Picture Files:"
  635.     TEXT  185, 30, 90, 10, .PictureFilesText2, "n of n selected for deletion"
  636.     TEXT  95, 50, 80, 10, .TextFilesText, "Unused Text Files:"
  637.     TEXT  185, 50, 90, 10, .TextFilesText2, "n of n selected for deletion"
  638.     IMAGE  10, 10, 75, 130, .ShowFinishImage
  639.     GROUPBOX  10, 150, 270, 5, .LineGroupBox
  640. END DIALOG
  641.  
  642. ShowFinishDialog.SetStyle STYLE_INVISIBLE
  643. ShowFinishDialog.ShowFinishImage.SetImage "#LastBMP"
  644. ShowFinishDialog.ShowFinishImage.SetStyle STYLE_IMAGE_CENTERED
  645.  
  646.     ShowFinishRet% = Dialog(ShowFinishDialog)
  647.     SELECT CASE ShowFinishRet%
  648.         CASE DIALOG_RETURN_CANCEL     
  649.             STOP
  650.         CASE DIALOG_RETURN_NEXT      
  651.             ShowFinish = 1
  652.         CASE DIALOG_RETURN_BACK     
  653.             ShowFinish = -1
  654.     END SELECT
  655. END FUNCTION
  656.  
  657.  
  658. ' *******************************************************************************
  659. ' ShowFinishDialogEventHandler
  660. ' This subroutine responds to user interface with the finish dialog.
  661. ' 
  662. ' PARAMS: BYVAL ControlID% - Integer indicating the dialog control that is 
  663. '                            generating a dialog event.
  664. '        BYVAL Event% - Integer indicating the dialog event that has occurred.
  665. ' *******************************************************************************
  666. SUB ShowFinishDialogEventHandler(BYVAL ControlID%, BYVAL Event%)
  667.     IF Event% = EVENT_INITIALIZATION THEN         '
  668.         TotalUnusedFilesCount = SelectedUnusedPictureFilesCount + SelectedUnusedTextFilesCount
  669.         IF TotalUnusedFilesCount = 0 THEN
  670.             InfoText$ = "No files have been selected for deletion."
  671.             DeleteText$ = ""
  672.             ShowFinishDialog.FinishButton.Enable FALSE
  673.         ELSEIF TotalUnusedFilesCount = 1 THEN
  674.             InfoText$ = TotalUnusedFilesCount & " file has been selected for deletion."
  675.             DeleteText$ = "Select Delete to permanently remove the unused file."
  676.         ELSE
  677.             InfoText$ = TotalUnusedFilesCount & " files have been selected for deletion."
  678.             DeleteText$ = "Select Delete to permanently remove the unused files."
  679.         ENDIF
  680.         ShowFinishDialog.InfoText.SetText InfoText$
  681.         ShowFinishDialog.DeleteText.SetText DeleteText$
  682.  
  683.         SELECT CASE FileType%
  684.             CASE BOTH_FILES
  685.                 ShowFinishDialog.PictureFilesText.SetText "Unused Picture Files:"
  686.                 IF UnusedPictureFilesCount% < 1 AND SelectedUnusedPictureFilesCount% < 1 THEN 
  687.                     ShowFinishDialog.PictureFilesText2.SetText "No unused picture files"
  688.                 ELSE
  689.                     ShowFinishDialog.PictureFilesText2.SetText SelectedUnusedPictureFilesCount% & " of " & UnusedPictureFilesCount%+ SelectedUnusedPictureFilesCount% & " selected for deletion"
  690.                 ENDIF
  691.                 ShowFinishDialog.TextFilesText.SetText "Unused Text Files:"
  692.                 IF UnusedTextFilesCount% < 1 AND SelectedUnusedTextFilesCount% < 1 THEN 
  693.                     ShowFinishDialog.TextFilesText2.SetText "No unused text files"
  694.                 ELSE
  695.                     ShowFinishDialog.TextFilesText2.SetText SelectedUnusedTextFilesCount% & " of " & UnusedTextFilesCount%+ SelectedUnusedTextFilesCount% & " selected for deletion"
  696.                 ENDIF
  697.  
  698.             CASE PICTURE_FILES
  699.                 ShowFinishDialog.PictureFilesText.SetText "Unused Picture Files:"
  700.                 IF UnusedPictureFilesCount% < 1 AND SelectedUnusedPictureFilesCount% < 1 THEN 
  701.                     ShowFinishDialog.PictureFilesText2.SetText "No unused picture files"
  702.                 ELSE
  703.                     ShowFinishDialog.PictureFilesText2.SetText SelectedUnusedPictureFilesCount% & " of " & UnusedPictureFilesCount%+ SelectedUnusedPictureFilesCount% & " selected for deletion"
  704.                 ENDIF
  705.                 ShowFinishDialog.TextFilesText.SetText ""
  706.                 ShowFinishDialog.TextFilesText2.SetText ""
  707.  
  708.             CASE TEXT_FILES
  709.                 ShowFinishDialog.TextFilesText.SetText "Unused Text Files:"
  710.                 IF UnusedTextFilesCount% < 1 AND SelectedUnusedTextFilesCount% < 1 THEN 
  711.                     ShowFinishDialog.TextFilesText2.SetText "No unused text files"
  712.                 ELSE
  713.                     ShowFinishDialog.TextFilesText2.SetText SelectedUnusedTextFilesCount% & " of " & UnusedTextFilesCount%+ SelectedUnusedTextFilesCount% & " selected for deletion"
  714.                 ENDIF
  715.                 ShowFinishDialog.PictureFilesText.SetText ""
  716.                 ShowFinishDialog.PictureFilesText2.SetText ""
  717.  
  718.         END SELECT
  719.         ShowFinishDialog.SetStyle STYLE_VISIBLE
  720.     ENDIF
  721.  
  722.     IF Event% = EVENT_MOUSE_CLICK THEN
  723.         SELECT CASE ControlID%
  724.             CASE ShowFinishDialog.FinishButton.GetID()
  725.                 ShowFinishDialog.CloseDialog DIALOG_RETURN_NEXT
  726.             CASE ShowFinishDialog.BackButton.GetID()
  727.                 ShowFinishDialog.CloseDialog DIALOG_RETURN_BACK
  728.             CASE ShowFinishDialog.CancelButton.GetID()
  729.                 ShowFinishDialog.CloseDialog DIALOG_RETURN_CANCEL
  730.         END SELECT
  731.     ENDIF
  732. END SUB
  733.  
  734.  
  735.  
  736. ' *******************************************************************************
  737. ' SaveToFile
  738. ' This function writes the list of unused files to the specified text file.
  739. '
  740. ' PARAMS: FileListFile$ - the name of the text file in which to write the list.
  741. '
  742. ' RETURNS: SaveToFile AS INTEGER - Integer indicating dialog return value.
  743. ' *******************************************************************************
  744. FUNCTION SaveToFile(FileListFile$) AS BOOLEAN
  745. ON ERROR GOTO ErrorHandler
  746.  
  747.     CLOSE
  748.     OPEN FileListFile$ FOR APPEND AS 1
  749.  
  750.     SELECT CASE FileType%
  751.         CASE PICTURE_FILES    
  752.             PRINT #1, "Unused Picture Files:"
  753.             FOR i%=1 TO UnusedPictureFilesCount%
  754.                 PRINT #1, UnusedPictureFiles(i%, 1)
  755.             NEXT i%
  756.  
  757.         CASE TEXT_FILES    
  758.             PRINT #1, "Unused Text Files:"
  759.             FOR i%=1 TO UnusedTextFilesCount%
  760.                 PRINT #1, UnusedTextFiles(i%, 1)
  761.             NEXT i%
  762.  
  763.         CASE BOTH_FILES    
  764.             PRINT #1, "Unused Picture Files:"
  765.             FOR i%=1 TO UnusedPictureFilesCount%
  766.                 PRINT #1, UnusedPictureFiles(i%, 1)
  767.             NEXT i%
  768.  
  769.             PRINT #1, CHR(13)
  770.             PRINT #1, "Unused Text Files:"
  771.             FOR i%=1 TO UnusedTextFilesCount%
  772.                 PRINT #1, UnusedTextFiles(i%, 1)
  773.             NEXT i%
  774.     END SELECT
  775.     CLOSE(1)
  776.     SaveToFile = TRUE
  777.  
  778. EXIT FUNCTION
  779. ErrorHandler:
  780.     CLOSE
  781.     SaveToFile = FALSE
  782.  
  783. END FUNCTION
  784.  
  785.  
  786. ' *******************************************************************************
  787. ' RemoveUnusedFiles
  788. ' This function removes all selected unused files from the publication.
  789. ' 
  790. ' PARAMS: None
  791. '
  792. ' RETURNS: RemoveUnusedFiles AS INTEGER - Integer indicating dialog return value.
  793. ' *******************************************************************************
  794. FUNCTION RemoveUnusedFiles%
  795.     WITHOBJECT OBJECT_VENTURA8
  796.  
  797.         SELECT CASE FileType%
  798.             CASE PICTURE_FILES
  799.                 WHILE (SelectedUnusedPictureFilesCount > 0)
  800.                     .FileRemove SelectedUnusedPictureFiles(SelectedUnusedPictureFilesCount, 1), FALSE, TRUE, TRUE, SelectedUnusedPictureFiles(SelectedUnusedPictureFilesCount, 2)
  801.                     SelectedUnusedPictureFiles(SelectedUnusedPictureFilesCount, 1) = ""
  802.                     SelectedUnusedPictureFilesCount = SelectedUnusedPictureFilesCount - 1
  803.                 WEND
  804.     
  805.             CASE TEXT_FILES
  806.                 WHILE (SelectedUnusedTextFilesCount > 0)
  807.                     .FileRemove SelectedUnusedTextFiles(SelectedUnusedTextFilesCount, 1), FALSE, TRUE, FALSE, SelectedUnusedTextFiles(SelectedUnusedTextFilesCount, 2)
  808.                     SelectedUnusedTextFiles(SelectedUnusedTextFilesCount, 1) = ""
  809.                     SelectedUnusedTextFilesCount = SelectedUnusedTextFilesCount - 1
  810.                 WEND
  811.     
  812.             CASE BOTH_FILES
  813.                 WHILE (SelectedUnusedPictureFilesCount > 0)
  814.                     .FileRemove SelectedUnusedPictureFiles(SelectedUnusedPictureFilesCount, 1), FALSE, TRUE, TRUE, SelectedUnusedPictureFiles(SelectedUnusedPictureFilesCount, 2)
  815.                     SelectedUnusedPictureFiles(SelectedUnusedPictureFilesCount, 1) = ""
  816.                     SelectedUnusedPictureFilesCount = SelectedUnusedPictureFilesCount - 1
  817.                 WEND
  818.                 WHILE (SelectedUnusedTextFilesCount > 0)
  819.                     .FileRemove SelectedUnusedTextFiles(SelectedUnusedTextFilesCount, 1), FALSE, TRUE, FALSE, SelectedUnusedTextFiles(SelectedUnusedTextFilesCount, 2)
  820.                     SelectedUnusedTextFiles(SelectedUnusedTextFilesCount, 1) = ""
  821.                     SelectedUnusedTextFilesCount = SelectedUnusedTextFilesCount - 1
  822.                 WEND
  823.         END SELECT
  824.     END WITHOBJECT
  825.  
  826.     RemoveUnusedFiles = 1
  827. END FUNCTION
  828.  
  829.  
  830. ' *******************************************************************************
  831. ' FindFiles
  832. ' This subroutine locates all files of the specified type. Each file is passed 
  833. ' to the CreateListOfFiles subroutine which determines whether the file is used.
  834. ' 
  835. ' PARAMS: TypeOfFile AS INTEGER - the type of file being sought:
  836. '                            1-Picture files
  837. '                            2-Text files                          
  838. ' *******************************************************************************
  839. SUB FindFiles(TypeOfFile%)
  840.  
  841.     BEGINWAITCURSOR
  842.     WITHOBJECT OBJECT_VENTURA8
  843.         .SetVisible TRUE    'ShowVentura
  844.         SELECT CASE TypeOfFile%
  845.             CASE PICTURE_FILES    'find picture files
  846.                 IF SearchType% = SEARCH_ENTIRE_PUB THEN 
  847.                     'FOR every chapter in publication
  848.                     NumberOfChapters& = .ChapterCount()
  849.                     FOR i% = 1 TO NumberOfChapters&
  850.                         CurChapter$ = .ChapterGetAt(i%)
  851.                         .ViewGoToPage , CurChapter$, GOTO_RELATIVE_TO_CHAPTER, GOTO_PAGE_FIRST, FALSE
  852.                         PictureFiles%= .PictureFileCount()            
  853.                         FOR j%=1 TO PictureFiles%
  854.                             PictureFileName$ = .PictureFileGetAt(j%)
  855.                             CreateListOfFiles FALSE, PictureFileName$, CurChapter$
  856.                         NEXT j%
  857.                     NEXT i%
  858.                 ELSE    'Only search current chapter
  859.                     CurChapter$= .CurrentChapter()
  860.                     PictureFiles%= .PictureFileCount()            
  861.                     FOR j%=1 TO PictureFiles%
  862.                         PictureFileName$ = .PictureFileGetAt(j%)
  863.                         CreateListOfFiles FALSE, PictureFileName$, CurChapter$
  864.                     NEXT j%
  865.                 ENDIF
  866.  
  867.             CASE TEXT_FILES    'find text files
  868.                 IF SearchType% = SEARCH_ENTIRE_PUB THEN 
  869.                     'FOR every chapter in publication
  870.                     NumberOfChapters& = .ChapterCount()
  871.                     FOR i% = 1 TO NumberOfChapters&
  872.                         CurChapter$ = .ChapterGetAt(i%)
  873.                         .ViewGoToPage , CurChapter$, GOTO_RELATIVE_TO_CHAPTER, GOTO_PAGE_FIRST, FALSE
  874.                         TextFiles% = .TextFileCount()
  875.                         FOR j%=1 TO TextFiles%
  876.                             TextFileName$ = .TextFileGetAt(j%)
  877.                             CreateListOfFiles TRUE, TextFileName$, CurChapter$
  878.                         NEXT j%
  879.                     NEXT i%
  880.                 ELSE    'Only search current chapter
  881.                     CurChapter$= .CurrentChapter()
  882.                     TextFiles% = .TextFileCount()
  883.                     FOR j%=1 TO TextFiles%
  884.                         TextFileName$ = .TextFileGetAt(j%)
  885.                         CreateListOfFiles TRUE, TextFileName$, CurChapter$
  886.                     NEXT j%
  887.                 ENDIF
  888.         END SELECT
  889.     END WITHOBJECT
  890.     ENDWAITCURSOR
  891. END SUB
  892.  
  893.  
  894. ' *******************************************************************************
  895. ' CreateListOfFiles
  896. ' This function creates a list of all unused files of the specified type.
  897. '
  898. ' PARAMS:TypeOfFile AS BOOLEAN - specifies the type of file to look for
  899. '                           FALSE = Picture files
  900. '                           TRUE = Text files
  901. '        NameOfFile AS STRING -  Specifies the name of the file to find.
  902. '        CurrentChapter AS STRING - Specifies the chapter containing the file.
  903. ' *******************************************************************************
  904. SUB CreateListOfFiles(TypeOfFile AS BOOLEAN, NameOfFile AS STRING, CurrentChapter$)
  905. DIM Found AS BOOLEAN
  906.     Found=TRUE
  907.     WITHOBJECT OBJECT_VENTURA8
  908.         IF TypeOfFile <> FALSE THEN     'it's a text file
  909.             Found = .TextFileIsUsed(NameOfFile$)
  910.             IF Found=FALSE THEN        'file is NOT in use 
  911.                 UnusedTextFilesCount = UnusedTextFilesCount + 1
  912.                 IF UnusedTextFilesCount% MOD MAXFILES = 0 THEN 
  913.                     NewCnt% = UnusedTextFilesCount% + MAXFILES
  914.                     REDIM PRESERVE UnusedTextFiles$(NewCnt, 2)
  915.                     REDIM PRESERVE SelectedUnusedTextFiles$(NewCnt, 2)                
  916.                 ENDIF
  917.                 UnusedTextFiles$(UnusedTextFilesCount, 1) = NameOfFile$    :     UnusedTextFiles$(UnusedTextFilesCount, 2) = CurrentChapter$
  918.             ENDIF
  919.         ELSE                'it's a picture file
  920.             Found = .PictureFileIsUsed(NameOfFile$)
  921.             IF Found=FALSE THEN        'file is NOT in use 
  922.                 UnusedPictureFilesCount = UnusedPictureFilesCount + 1
  923.                 IF UnusedPictureFilesCount% MOD MAXFILES = 0 THEN 
  924.                     NewCnt% = UnusedPictureFilesCount% + MAXFILES
  925.                     REDIM PRESERVE UnusedPictureFiles$(NewCnt, 2)
  926.                     REDIM PRESERVE SelectedUnusedPictureFiles$(NewCnt, 2)        
  927.                 ENDIF        
  928.                 UnusedPictureFiles$(UnusedPictureFilesCount, 1) = NameOfFile$        :    UnusedPictureFiles$(UnusedPictureFilesCount, 2) = CurrentChapter$
  929.             ENDIF
  930.         ENDIF
  931.     END WITHOBJECT
  932. END SUB
  933.  
  934.