Chilkat HOME Android™ Classic ASP C C++ C# Mono C# .NET Core C# C# UWP/WinRT DataFlex Delphi ActiveX Delphi DLL Visual FoxPro Java Lianja MFC Objective-C Perl PHP ActiveX PHP Extension PowerBuilder PowerShell PureBasic CkPython Chilkat2-Python Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ Visual Basic 6.0 VB.NET VB.NET UWP/WinRT VBScript Xojo Plugin Node.js Excel Go
(Excel) Get Number of FIles in Directory, not including sub-directoriesExcel example demonstrating how to get the number of files in a directory not including sub-directories.
' This example requires the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. Dim ftp As Chilkat.Ftp2 Set ftp = Chilkat.NewFtp2 ftp.Hostname = "ftp.example.com" ftp.Username = "login" ftp.Password = "password" ' Connect and login to the FTP server. success = ftp.Connect() If (success <> True) Then Debug.Print ftp.LastErrorText Exit Sub End If ' The ListPattern property is our directory listing filter. ' The default value is "*", which includes everything. Debug.Print ftp.ListPattern ' Fetch the current remote directory contents by ' calling GetDirCount n = ftp.GetDirCount() If (n < 0) Then Debug.Print ftp.LastErrorText Exit Sub End If If (n > 0) Then ' Loop over the directory contents, incrementing the count ' each time it is NOT a directory. fileCount = 0 For i = 0 To n - 1 ' Is this NOT a sub-directory? If (ftp.GetIsDirectory(i) <> True) Then fileCount = fileCount + 1 ' Display the filename Debug.Print ftp.GetFilename(i) End If Next Debug.Print "Total number of files = "; fileCount End If success = ftp.Disconnect() |
© 2000-2022 Chilkat Software, Inc. All Rights Reserved.