Dim objSFTP
Set objSFTP = CreateObject("sfFTPLib.SFTPConnection")
...
objSFTP.ReadDirectory(".")
Dim objItems
Set objItems = objSFTP.Items
Dim objItem
For Each objItem In objItems
  WScript.Echo("Type=" & objItem.Type & ", Name=" & objItem.Name & ", Size=" & objItem.SizeLo & ", Date=" & CDate(objItem.ModifyTimeAsDate))
Next

var objSFTP = new ActiveXObject("sfFTPLib.SFTPConnection");
objSFTP.ReadDirectory(".");
var objItems = objSFTP.Items;
for (var fc = new Enumerator(objItems); !fc.atEnd(); fc.moveNext())
{
  var objItem = fc.item();
  WScript.Echo("Type=" + objItem.Type + ", Name=" + objItem.Name + ", Size=" + objItem.SizeLo + ", Date=" + objItem.Date);
}

if(sftp.ReadDirectory(".") == sfFTPLib.enumError.ftpErrorSuccess)
{
  CSFTPItems items = sftp.Items;
  // Use the foreach statement to iterate through elements in the collection
  foreach(CSFTPItem objItem in items)
  {
    System.Console.WriteLine("Type={0}; Name={1}; Size={2}", objItem.Type, objItem.Name, objItem.Size);
  }
}