Chilkat HOME ASP Visual Basic VB.NET C# Visual C++ C MFC Delphi FoxPro Java Perl PHP Python Ruby SQL Server VBScript
|
File Existence CheckTesting to see if a file exists on the FTP server. The GetSizeByName method is a convenient way to check if a file exists. It will return -1 if the file does not exist, otherwise it returns the size of the file in bytes.
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.***.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 where the file is located: success = ftp.ChangeRemoteDir("/something") If (success <> true) Then MsgBox(ftp.LastErrorText) Exit Sub End If ' Test to see if the file exists by getting the file size by name. ' If a -1 is returned, the file does not exist. Dim fileSize As Long fileSize = ftp.GetSizeByName("test123.txt") If (fileSize < 0) Then TextBox1.Text = TextBox1.Text & "file does not exist" & vbCrLf Else TextBox1.Text = TextBox1.Text & "file exists and is " _ & fileSize & " bytes in size" & vbCrLf End If ftp.Disconnect() |
Need a specific example? Send a request to support@chilkatsoft.com
© 2000-2007 Chilkat Software, Inc. All Rights Reserved.