EnglishРусский  

   ..

   samefiles.2.g

Реклама

Инсталлятор CreateInstall
Бесплатные и коммерческие инсталляторы

source\samples\samefiles\samefiles.2.g
 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 }
Редактировать