![]() |
Chilkat • HOME • Android™ • AutoIt • C • C# • C++ • Chilkat2-Python • CkPython • Classic ASP • DataFlex • Delphi DLL • Go • Java • Node.js • Objective-C • PHP Extension • Perl • PowerBuilder • PowerShell • PureBasic • Ruby • SQL Server • Swift • Tcl • Unicode C • Unicode C++ • VB.NET • VBScript • Visual Basic 6.0 • Visual FoxPro • Xojo Plugin
(Delphi DLL) Get Number of FIles in Directory, not including sub-directoriesDelphi DLL example demonstrating how to get the number of files in a directory not including sub-directories.
uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Ftp2; ... procedure TForm1.Button1Click(Sender: TObject); var ftp: HCkFtp2; success: Boolean; i: Integer; n: Integer; fileCount: Integer; begin // This example requires the Chilkat API to have been previously unlocked. // See Global Unlock Sample for sample code. ftp := CkFtp2_Create(); CkFtp2_putHostname(ftp,'ftp.example.com'); CkFtp2_putUsername(ftp,'login'); CkFtp2_putPassword(ftp,'password'); // Connect and login to the FTP server. success := CkFtp2_Connect(ftp); if (success <> True) then begin Memo1.Lines.Add(CkFtp2__lastErrorText(ftp)); Exit; end; // The ListPattern property is our directory listing filter. // The default value is "*", which includes everything. Memo1.Lines.Add(CkFtp2__listPattern(ftp)); // Fetch the current remote directory contents by // calling GetDirCount n := CkFtp2_GetDirCount(ftp); if (n < 0) then begin Memo1.Lines.Add(CkFtp2__lastErrorText(ftp)); Exit; end; if (n > 0) then begin // Loop over the directory contents, incrementing the count // each time it is NOT a directory. fileCount := 0; for i := 0 to n - 1 do begin // Is this NOT a sub-directory? if (CkFtp2_GetIsDirectory(ftp,i) <> True) then begin fileCount := fileCount + 1; // Display the filename Memo1.Lines.Add(CkFtp2__getFilename(ftp,i)); end; end; Memo1.Lines.Add('Total number of files = ' + IntToStr(fileCount)); end; success := CkFtp2_Disconnect(ftp); CkFtp2_Dispose(ftp); end; |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.