Re: Internet Options -> Delete Files...

Article View: borland.public.cppbuilder.nativeapi

Article #2862

Back to borland.public.cppbuilder.nativeapi Previous Next

#2862

From: Minas
Date: Tue, 12 Dec 2006 18:58

37 lines
1924 bytes


� "Jonathan Benedicto" <invalid@nobody.com> wrote
in msg news:457eef64$1@newsgroups.borland.com...

> void ProcessFolder( AnsiString Folder, TStringList *FileList )
> {
>    HANDLE FindHandle;
>    WIN32_FIND_DATA FindData;
>    AnsiString SearchPattern;
>
>    SearchPattern = AnsiString( Folder ) + "\\*.*";
>
>    FindHandle = FindFirstFile( SearchPattern.c_str(), &FindData );
>    if( FindHandle != INVALID_HANDLE_VALUE )
>    {
>        // I *think* that the first item will always be ".", so I *think* 
> it can be ignored.


// The second Item will be ".." so to avoid also that just add
//before while loop

FindNextFile( FindHandle, &FindData ) ;


>        while( FindNextFile( FindHandle, &FindData ) )
>        {
>            AnsiString FileName = FindData.cFileName;
>
>            if( ( FindData.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY ) == 
> FILE_ATTRIBUTE_DIRECTORY )


_minas
------
"Only the virtue's conquests have certainty" Sofokleous Erephyle

Technical Details

Message-ID: <457efbf5$1@newsgroups.borland.com>

Path:

arc1-ca.pugleaf.net!g2news2.google.com!news4.google.com!news3.google.com!news.glorb.com!newsfeeds.ihug.co.nz!ihug.co.nz!newsgroups.borland.com!not-for-mail

References: <457ed32b$1@newsgroups.borland.com> <457eef64$1@newsgroups.borland.com>

Show Full Headers

Complete Article Headers

X-Google-Thread: 10cc67,540433827638e9a
X-Google-Attributes: gid10cc67,public
X-Google-Language: ENGLISH,ASCII
From: "Minas" <mincharATSERVERyahooPUTADOTgr - HellenicFire>
Newsgroups: borland.public.cppbuilder.nativeapi
References: <457ed32b$1@newsgroups.borland.com> <457eef64$1@newsgroups.borland.com>
Subject: Re: Internet Options -> Delete Files...
Date: Tue, 12 Dec 2006 20:58:55 +0200
Lines: 39
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2900.2869
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.2962
X-RFC2646: Format=Flowed; Response
NNTP-Posting-Host: 62.1.19.84
Message-ID: <457efbf5$1@newsgroups.borland.com>
X-Trace: newsgroups.borland.com 1165949941 62.1.19.84 (12 Dec 2006 10:59:01 -0700)
Path: arc1-ca.pugleaf.net!g2news2.google.com!news4.google.com!news3.google.com!news.glorb.com!newsfeeds.ihug.co.nz!ihug.co.nz!newsgroups.borland.com!not-for-mail

Reply to Parent Message