Function ScriptedVariable
 Dim fso, folder, files, sFolder, res
  
 Set fso = CreateObject("Scripting.FileSystemObject")
 sFolder = "C:\Results"
 Set folder = fso.GetFolder(sFolder)
 Set files = folder.Files 
 For each folderIdx In files
  'LogMessage folderIdx.Name
  res = folderIdx.Name
  Exit For
 Next
 If res = "" Then
  EndJob "No csv file to process!"
 End If
 ScriptedVariable=res
End Function
Sub VBScriptProcedure
' For some reason, the FileExists function never works for me.  See alternative below.
' If Not FileExists(AttachmentPath & "@@ORG:FILENAME@@") Then 
'  GotoNextRow
' End If
 dim f_string 
 f_string = ReadFile(AttachmentPath & "@@ORG:FILENAME@@")
 If f_string = "" Then 
  LogMessage "File Does Not Exist: @@ORG:FILENAME@@"
  GotoNextRow
 End If
End Sub
Function ScriptedVariable
 'This script will overwrite any files with the same name.
 Set objFSO=CreateObject("Scripting.FileSystemObject")
 fileName="aetest.csv"
 outFile="c:\temp\aetest.csv"
 Set objFile = objFSO.CreateTextFile(outFile,True)
 ScriptedVariable=outFile
End Function
I imported files directly into a Sugar instance's database. The file had to be named the Knowledge Base Article's ID. I moved and renamed the file as the KB article was create:
Sub VBScriptProcedure
 MoveFile "@@ORG:FullName@@","C:\uploads\@@STG:1,id@@"
End Sub
Function ScriptedVariable
 Dim LastRunTimeStamp
 LastRunTimeStamp = ReadFile("C:\inetpub\wwwroot\StarfishEngine\Xref\AccountTimestamp.ids")
 'LogMessage LastRunTimeStamp
 ScriptedVariable = LastRunTimeStamp
End Function
Sub VBScriptProcedure
 Const ForReading = 1, ForWriting = 2, ForAppending = 8
 Dim fso, MyFile
 Set fso = CreateObject("Scripting.FileSystemObject")
 'Note the second parameter is using a Constant set above.  In this case, I want to append to the file.
 Set MyFile = fso.OpenTextFile("@@VAR:filename@@", ForAppending, True)
 ' Write to the file.
 MyFile.WriteLine "@@ORG:id@@|@@ORG:name@@|@@ORG:billing_address_street@@|@@ORG:billing_address_city@@|@@ORG:billing_address_state@@|@@ORG:website@@"
 MyFile.Close
End Sub
or
Sub VBScriptProcedure
 If Not PreviewMode Then
  WriteFile "C:\inetpub\wwwroot\StarfishEngine\Xref\AccountTimestamp.ids", "@@ORG:numTimeStamp@@"
 End If
End Sub