FiveTech Software tech support forums

Code: Select all

#include "fivewin.ch"

PROCEDURE Main()

// aDrives( [<nType>] ) --> aDrives  
// This function Returns an array with all the units valid of our system.  
// Parameters: 
//  <nType> 0 = All drives (default), 1 = Floppy drives only, 2 = Hard drives only  

aResult1 := {}  // Borland
aResult2 := {}  // Harbour
aResult3 := {}  // FWH
lResult1 := .F.
lResult2 := .F.
lResult3 := .F.

aDrive := aDrives( 2 ) // scanning of harddisks

FOR i := 1 TO LEN ( aDrives( 2 ) )

      cDrive := aDrive[i]  // scanning drives

     msgalert( "Seek in Drive : " + CRLF + ;
	                 cDrive, "Drive" )

     aFindFile( "BCC32.exe", "&cDrive", aResult1 )
     // <cFileName> File to search.  
     // <cPath> Path of beginning of the search.  
     // <aResult> Array where the result of the search will be stored.  

     IF !empty( aResult1 )  .and. lResult1 = .F.
          lResult1 := .T.
          // Returns the complete Path of BORLAND
          msgalert( aResult1[1], "BORLAND found" )      
     ENDIF

     aFindFile( "HARBOUR.exe", "&cDrive", aResult2 )
     IF !empty( aResult2 )   .and. lResult2 = .F.  
          lResult2 := .T.
          msgalert( aResult2[1],"XHARBOUR found" )
     ENDIF

     aFindFile( "FIVEH.lib", "&cDrive", aResult3 )
     IF !empty( aResult3 )  .and. lResult3 = .F.   
          lResult3 := .T.
          msgalert( aResult3[1],"FWH found" )
     ENDIF

     IF lResult1 = .T. .and. lResult2 = .T. .and. lResult3 = .T.
          MsgAlert( "Scanning of : " + CRLF + ;
          "BORLAND, xHARBOUR and FWH finished !","Attention" ) 
          // all files found, finished scanning
          EXIT
    ENDIF

NEXT

Return( NIL )

Code: Select all

#define DRIVE_REMOVABLE  2

FUNCTION MAIN()
local oDlg, aDrives := {}, aDrives1 := {} 
aResult1 := {}  // Borland 
aResult2 := {}  // Harbour 
aResult3 := {}  // FWH 
aResult4 := {}  // Test

FOR i = ASC( "C" ) TO ASC( "Z" )
   // Select only non USB-drives
   // -------------------------------
   IF GetDriveType( CHR( i ) + ":\" ) <> DRIVE_REMOVABLE ;
      .and. FILE( CHR( i ) + ":\NUL" )
      AADD( aDrives, CHR( i ) + ":" )
   ENDIF
NEXT

CURSORWAIT()

FOR i := 1 TO LEN ( aDrives ) 
   cDrive := aDrives[i]  
   MsgWait( cDrive, "Working....", 2)
   aFindFile( "BCC32.exe", cDrive, aResult1 ) 
   // <cFileName> File to search.  
   // <cPath> Path of beginning of the search.  
   // <aResult> Array where the result of the search will be stored.  
   IF !empty( aResult1 )  
      // Returns the complete Path of BORLAND 
      n := 1
      FOR n := 1 to LEN( aResult1 )
         AAdd( aDrives1, aResult1[n] )
      NEXT
      aResult1 := {}  
   ENDIF 
   aFindFile( "HARBOUR.exe", cDrive, aResult2 ) 
   IF !empty( aResult2 )  
      n := 1
      FOR n := 1 to LEN( aResult2 )
         AAdd( aDrives1, aResult2[n] )
      NEXT
      aResult2 := {}  
   ENDIF 
   aFindFile( "FIVEH.lib", cDrive, aResult3 ) 
   IF !empty( aResult3 ) 
      n := 1
      FOR n := 1 to LEN( aResult3 )
         AAdd( aDrives1, aResult3[n] )
      NEXT
      aResult3 := {}  
   ENDIF 
   // < Test.txt > exists on different disks and sub-directorys
   // -----------------------------------------------------------------
   aFindFile( "TEST.txt", cDrive, aResult4 ) 
   IF !empty( aResult4 )
      n := 1
      FOR n := 1 to LEN( aResult4 )
         AAdd( aDrives1, aResult4[n] )
      NEXT
      aResult4 := {}  
   ENDIF 
NEXT 

DEFINE DIALOG oDlg FROM 2, 5 TO 40, 60 ; 
TITLE "Files found :" 

@ 0.5, 1.5 LISTBOX cDrive ITEMS aDrives1 ; 
SIZE 200, 250 ; 
OF oDlg ; 
ON DBLCLICK oDlg:End() 

@ 14.7, 16 BUTTON "&Ok" OF oDlg ; 
ACTION oDlg:End() 

ACTIVATE DIALOG oDlg CENTERED 

RETURN( NIL )