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
Delete FTP Directory Tree
Delete an entire directory tree on an FTP server. Dim ftp As New Chilkat.Ftp2() Dim success As Boolean ' Any string unlocks the component for the 1st 30-days. success = ftp.UnlockComponent("Anything for 30-day trial") If (success <> true) Then MsgBox(ftp.LastErrorText) Exit Sub End If ftp.Hostname = "ftp.yourftpserver.com" ftp.Username = "****" ftp.Password = "****" ' Connect and login to the FTP server. success = ftp.Connect() If (success <> true) Then MsgBox(ftp.LastErrorText) Exit Sub End If ' Set the current remote directory to the root of ' the tree to be deleted success = ftp.ChangeRemoteDir("/something") If (success <> true) Then MsgBox(ftp.LastErrorText) Exit Sub End If ' Delete the entire tree. All sub-directories and files are deleted. success = ftp.DeleteTree() If (success <> true) Then MsgBox(ftp.LastErrorText) Exit Sub End If ' The /something directory still exists. To delete it, ' we move up one directory level and then delete it. success = ftp.ChangeRemoteDir("..") If (success <> true) Then MsgBox(ftp.LastErrorText) Exit Sub End If success = ftp.RemoveRemoteDir("something") If (success <> true) Then MsgBox(ftp.LastErrorText) Exit Sub End If ftp.Disconnect() |
© 2000-2012 Chilkat Software, Inc. All Rights Reserved.