VBScript

Clear the SFTP File-Attribute Cache

Demonstrates the Chilkat SFtp.ClearCache method, which clears the internal remote file-attribute cache used when the EnableCache property is enabled. It takes no arguments.

Background: When caching is on, Chilkat remembers file attributes it has already fetched so that repeated lookups — common when listing then stat-ing many files — avoid extra round trips. The trade-off is staleness: if files change on the server, the cache can report old sizes or timestamps. ClearCache discards those remembered values so the next lookup queries the server fresh, which you would do after a known change or before a check that must be current.

Chilkat VBScript Downloads

Download Chilkat for VBScript

VBScript

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

success = 0

'  Demonstrates the SFtp.ClearCache method, which clears the internal remote file-attribute cache
'  used when the EnableCache property is 1.  It takes no arguments.

set sftp = CreateObject("Chilkat.SFtp")

'  Connect, authenticate, and initialize the SFTP subsystem.
port = 22
success = sftp.Connect("sftp.example.com",port)
If (success = 0) Then
    outFile.WriteLine(sftp.LastErrorText)
    WScript.Quit
End If

'  Normally you would not hard-code the password in source.  You should instead obtain it
'  from an interactive prompt, environment variable, or a secrets vault.
password = "mySshPassword"

success = sftp.AuthenticatePw("mySshLogin",password)
If (success = 0) Then
    outFile.WriteLine(sftp.LastErrorText)
    WScript.Quit
End If

success = sftp.InitializeSftp()
If (success = 0) Then
    outFile.WriteLine(sftp.LastErrorText)
    WScript.Quit
End If

'  With caching enabled, repeated attribute lookups for the same file are served from memory.
sftp.EnableCache = 1

'  ... perform operations that populate the cache ...

'  Clear the cache so that subsequent attribute lookups query the server again, for example
'  after files on the server are known to have changed.
sftp.ClearCache 
outFile.WriteLine("Attribute cache cleared.")

sftp.Disconnect 

outFile.Close