Interact with the local file system: Difference between revisions
Jump to navigation
Jump to search
Jkuehlthau (talk | contribs) |
Jkuehlthau (talk | contribs) No edit summary |
||
Line 14: | Line 14: | ||
End If | End If | ||
End Sub | End Sub | ||
</source> | |||
=Create a file= | |||
<source lang="vb"> | |||
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 | |||
</source> | </source> | ||
Line 21: | Line 33: | ||
Sub VBScriptProcedure | Sub VBScriptProcedure | ||
MoveFile "@@ORG:FullName@@","C:\uploads\@@STG:1,id@@" | MoveFile "@@ORG:FullName@@","C:\uploads\@@STG:1,id@@" | ||
End Sub | |||
</source> | |||
=Write to a file= | |||
<source lang="vb"> | |||
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 | End Sub | ||
</source> | </source> |
Revision as of 20:58, 17 December 2015
Check if a file exists
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
Create a file
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
Move and rename a file
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
Write to a file
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