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) Directory Existence CheckHow to test if a directory exists on an FTP server. A good way to check to see if a directory already exists is to try to "cd" to that remote directory by calling ChangeRemoteDir. If it succeeds, then the directory exists. If not, then it does not exist. An alternative method is to set the ListPattern = "*" and then iterate over the files/directories, looking for the directory.
' 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 ' Does the "temp" directory exist? dirExists = ftp.ChangeRemoteDir("/temp") If (dirExists = True) Then Debug.Print "Yes, the temp directory exists." ' Yes, it exists. Restore the current remote dir: success = ftp.ChangeRemoteDir("..") If (success <> True) Then Debug.Print ftp.LastErrorText Exit Sub End If End If ' Alternatively, you may set the ListPattern = "*" and ' look for the directory: ftp.ListPattern = "*" n = ftp.GetDirCount() If (n < 0) Then ' Failed to get directory listing based on ListPattern Debug.Print ftp.LastErrorText Exit Sub End If If (n > 0) Then For i = 0 To n - 1 isDir = ftp.GetIsDirectory(i) If (isDir = True) Then fname = ftp.GetFilename(i) If (fname = "temp") Then Debug.Print "Found temp directory!" success = ftp.Disconnect() Exit Sub End If End If Next End If success = ftp.Disconnect() |
© 2000-2022 Chilkat Software, Inc. All Rights Reserved.