VB.NET Examples

ChilkatHOMEAndroid™ASPVisual BasicVB.NETC#iOS (IPhone)Objective-CC++CMFCDelphiFoxProJavaPerl
PHP ExtensionPHP ActiveXPythonPowerShellRubySQL ServerVBScript

VB.NET Examples

Bounced Mail
Bz2
Character Encoding
CSV
Digital Certificates
Digital Signatures
Email
FTP
HTML Conversion
HTTP
IMAP
Encryption
MHT / HTML Email
POP3
PFX
RSA
S/MIME
SMTP
Socket
Spider
SSH
SSH Tunnel
SSH Key
SFTP
Tar Archive
Upload
XML
XMP
Zip Compression
Misc

More Examples...
Amazon S3
Email Object
DKIM / DomainKey
NTLM
FileAccess
RSS
Atom
Self-Extractor
Service
PPMD
Deflate
DH Key Exchange
DSA
Bzip2
LZW

Byte Array
VB.NET FTPS
System.IO

 

 

 

 

 

 

Download and Delete Matching Files

Download: Chilkat .NET Assemblies

VB.NET example showing how to FTP download files matching a wildcarded file pattern and delete them from the 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 = "www.example-code.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


'  Note: It may be tempting to call MGetFiles(pattern,localDir)
'  followed by a call to DeleteMatching(pattern), however,
'  if new files are uploaded to the FTP server while MGetFiles
'  is running, those files will be deleted by DeleteMatching.

'  Instead, it's best to set the ListPattern and then iterate
'  over each file...

'  Set the ListPattern = "*.xml" to match all XML files.
ftp.ListPattern = "*.xml"

'  NumFilesAndDirs contains the number of files and sub-directories
'  matching the ListPattern in the current remote directory.
'  The first time it is accessed after changing ListPattern,
'  or after calling ChangeRemoteDir, a snapshot of the directory
'  listing is fetched and saved in memory. During this loop,
'  the value of NumFilesAndDirs will not change.
Dim i As Long
Dim fname As String

Dim n As Long
n = ftp.NumFilesAndDirs
If (n < 0) Then
    MsgBox(ftp.LastErrorText)
    Exit Sub
End If


If (n > 0) Then
    For i = 0 To n - 1

        fname = ftp.GetFilename(i)
        TextBox1.Text = TextBox1.Text & fname & vbCrLf

        '  Download the file into the current working directory.
        success = ftp.GetFile(fname,fname)
        If (success <> true) Then
            MsgBox(ftp.LastErrorText)
            Exit Sub
        End If


        '  Now delete the file.
        success = ftp.DeleteRemoteFile(fname)
        If (success <> true) Then
            MsgBox(ftp.LastErrorText)
            Exit Sub
        End If


    Next
End If



ftp.Disconnect()
 

© 2000-2012 Chilkat Software, Inc. All Rights Reserved.

Mail Component · XML Parser