|
Chilkat •
HOME •
Android™ •
ASP •
Visual Basic •
VB.NET •
C# •
iOS (IPhone) •
Objective-C •
C++ •
C •
MFC •
Delphi •
FoxPro •
Java •
Perl •
PHP Extension •
PHP ActiveX •
Python •
PowerShell •
Ruby •
SQL Server •
VBScript
|
|
Get Number of FIles in Directory, not including sub-directoriesASP example demonstrating how to get the number of files in a directory not including sub-directories.
<html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> </head> <body> <% set ftp = Server.CreateObject("Chilkat.Ftp2") ' Any string unlocks the component for the 1st 30-days. success = ftp.UnlockComponent("Anything for 30-day trial") If (success <> 1) Then Response.Write "<pre>" & Server.HTMLEncode(ftp.LastErrorText) & "</pre>" End If ftp.Hostname = "www.myFtpServer.com" ftp.Username = "****" ftp.Password = "****" ' Connect and login to the FTP server. success = ftp.Connect() If (success <> 1) Then Response.Write "<pre>" & Server.HTMLEncode(ftp.LastErrorText) & "</pre>" End If ' The ListPattern property is our directory listing filter. ' The default value is "*", which includes everything. Response.Write "<pre>" & Server.HTMLEncode( ftp.ListPattern) & "</pre>" ' Fetch the current remote directory contents by ' accessing the NumFilesAndDirs property. n = ftp.NumFilesAndDirs If (n < 0) Then Response.Write "<pre>" & Server.HTMLEncode(ftp.LastErrorText) & "</pre>" 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) <> 1) Then fileCount = fileCount + 1 ' Display the filename Response.Write "<pre>" & Server.HTMLEncode( ftp.GetFilename(i)) & "</pre>" End If Next Response.Write "<pre>" & Server.HTMLEncode( "Total number of files = " _ & fileCount) & "</pre>" End If ftp.Disconnect %> </body> </html> |
© 2000-2012 Chilkat Software, Inc. All Rights Reserved.
