1 /******************************************************************************
2 *
3 * Copyright (C) 2005, The Gentee Group. All rights reserved.
4 * This file is part of the Gentee open source project - http://www.gentee.com.
5 *
6 * THIS FILE IS PROVIDED UNDER THE TERMS OF THE GENTEE LICENSE ("AGREEMENT").
7 * ANY USE, REPRODUCTION OR DISTRIBUTION OF THIS FILE CONSTITUTES RECIPIENTS
8 * ACCEPTANCE OF THE AGREEMENT.
9 *
10 * ID: samefiles 17.10.06 0.0.A.
11 *
12 * Author: Alexey Krivonogov ( gentee )
13 *
14 ******************************************************************************/
15
16 include : "samefiles.1.g"
17
18 func mainex <main>
19 {
20 arrstr drives
21
22 @"This program looks for the same files on all fixed drives.\n"
23 init()
24 drives = getdrives()
25
26 foreach cur, drives
27 {
28 if getdrivetype( cur ) == $DRIVE_FIXED && conyesno("Would you like to search on \(cur)? (Y/N) ")
29 {
30 scaninit( cur )
31 }
32 }
33 search()
34 }