Visual Basic 6.0

SFTP Fsync -- Flush an Open File on the Server

See more SFTP Examples

Demonstrates how to flush the contents of an open file on the server. This example only works for servers that implement the fsync@openssh.com extension.

Note: This example requires Chilkat v9.5.0.71 or later.

Visual Basic 6.0

Dim success As Long
success = 0

' This example assumes the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

Dim sftp As New ChilkatSFtp

' Pass a domain or IP address..
success = sftp.Connect("my-sftp-server.com",22)
If (success = 1) Then
    success = sftp.AuthenticatePw("mySFtpLogin","mySFtpPassword")
End If

If (success = 1) Then
    success = sftp.InitializeSftp()
End If

If (success <> 1) Then
    Debug.Print sftp.LastErrorText
    Exit Sub
End If

' Open a file on the server for writing.
Dim handle As String
handle = sftp.OpenFile("myTest.txt","writeOnly","createTruncate")
If (sftp.LastMethodSuccess <> 1) Then
    Debug.Print sftp.LastErrorText
    Exit Sub
End If

' Write some text to the file:
success = sftp.WriteFileText(handle,"ansi","abcdefghijklmnopqrstuvwxyz")
If (success <> 1) Then
    Debug.Print sftp.LastErrorText
    Exit Sub
End If

' Make sure the server flushes what we wrote to the disk..
' (this is requires a server that implements the fsync@openssh.com SFTP protocol extension)
success = sftp.Fsync(handle)
If (success <> 1) Then
    Debug.Print sftp.LastErrorText
    Exit Sub
End If

' ....
' ....

success = sftp.WriteFileText(handle,"ansi","ABCDEFGHIJKLMNOPQRSTUVWXYZ")
If (success <> 1) Then
    Debug.Print sftp.LastErrorText
    Exit Sub
End If

' Close the file.
success = sftp.CloseHandle(handle)
If (success <> 1) Then
    Debug.Print sftp.LastErrorText
    Exit Sub
End If

Debug.Print "Success."