Interact with the local file system - Revision history

Jkuehlthau: /* Check if a file exists */

2018-08-27T18:33:42Z

Check if a file exists

← Older revision		Revision as of 18:33, 27 August 2018
Line 1:		Line 1:
			=Read files from a folder=
			<source lang="vb">
			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
			</source>

	=Check if a file exists=		=Check if a file exists=
	<source lang="vb">		<source lang="vb">

Jkuehlthau: /* Write to a file */

2016-01-14T18:33:03Z

Write to a file

← Older revision		Revision as of 18:33, 14 January 2016
Line 61:		Line 61:
	</source>		</source>
	or		or
			<source lang="vb">
	Sub VBScriptProcedure		Sub VBScriptProcedure
	If Not PreviewMode Then		If Not PreviewMode Then
Line 66:		Line 67:
	End If		End If
	End Sub		End Sub
			</source>

Jkuehlthau: /* Write to a file */

2016-01-14T18:26:34Z

Write to a file

← Older revision		Revision as of 18:26, 14 January 2016
Line 60:		Line 60:
	End Sub		End Sub
	</source>		</source>
			or
			Sub VBScriptProcedure
			If Not PreviewMode Then
			WriteFile "C:\inetpub\wwwroot\StarfishEngine\Xref\AccountTimestamp.ids", "@@ORG:numTimeStamp@@"
			End If
			End Sub

Jkuehlthau: /* Read from a file */

2016-01-14T18:25:41Z

Read from a file

← Older revision		Revision as of 18:25, 14 January 2016
Line 38:		Line 38:
	=Read from a file=		=Read from a file=
	<source lang="vb">		<source lang="vb">
			Function ScriptedVariable
			Dim LastRunTimeStamp
			LastRunTimeStamp = ReadFile("C:\inetpub\wwwroot\StarfishEngine\Xref\AccountTimestamp.ids")
			'LogMessage LastRunTimeStamp
			ScriptedVariable = LastRunTimeStamp
			End Function
	</source>		</source>

Jkuehlthau at 18:22, 14 January 2016

2016-01-14T18:22:10Z

← Older revision		Revision as of 18:22, 14 January 2016
Line 34:		Line 34:
	MoveFile "@@ORG:FullName@@","C:\uploads\@@STG:1,id@@"		MoveFile "@@ORG:FullName@@","C:\uploads\@@STG:1,id@@"
	End Sub		End Sub
			</source>

			=Read from a file=
			<source lang="vb">

	</source>		</source>

Jkuehlthau at 20:58, 17 December 2015

2015-12-17T20:58:32Z

@@ Line 14: / Line 14: @@
 	End If
 End Sub
 </source>
@@ Line 21: / Line 33: @@
 Sub VBScriptProcedure
 	MoveFile "@@ORG:FullName@@","C:\uploads\@@STG:1,id@@"
 End Sub
 </source>

Jkuehlthau: /* Check if a file exists */

2015-09-08T18:48:48Z

Check if a file exists

← Older revision		Revision as of 18:48, 8 September 2015
Line 2:		Line 2:
	<source lang="vb">		<source lang="vb">
	Sub VBScriptProcedure		Sub VBScriptProcedure
	If Not FileExists(AttachmentPath & "@@ORG:FILENAME@@") Then		' 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		GotoNextRow
	End If		End If

Jkuehlthau at 17:58, 8 September 2015

2015-09-08T17:58:33Z

← Older revision		Revision as of 17:58, 8 September 2015
Line 5:		Line 5:
	GotoNextRow		GotoNextRow
	End If		End If
			End Sub
			</source>

			=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:
			<source lang="vb">
			Sub VBScriptProcedure
			MoveFile "@@ORG:FullName@@","C:\uploads\@@STG:1,id@@"
	End Sub		End Sub
	</source>		</source>

Jkuehlthau at 17:56, 8 September 2015

2015-09-08T17:56:54Z

← Older revision		Revision as of 17:56, 8 September 2015
Line 1:		Line 1:
	=Check if a file exists=		=Check if a file exists=
	<source lang=vb">		<source lang="vb">
	Sub VBScriptProcedure		Sub VBScriptProcedure
	If Not FileExists(AttachmentPath & "@@ORG:FILENAME@@") Then		If Not FileExists(AttachmentPath & "@@ORG:FILENAME@@") Then

Jkuehlthau: Created page with "=Check if a file exists= Sub VBScriptProcedure If Not FileExists(AttachmentPath & "@@ORG:FILENAME@@") Then GotoNextRow End If End Sub "

2015-09-08T15:18:54Z

Created page with "=Check if a file exists= <source lang=vb"> Sub VBScriptProcedure If Not FileExists(AttachmentPath & "@@ORG:FILENAME@@") Then GotoNextRow End If End Sub </source>"

New page

=Check if a file exists=
<source lang=vb">
Sub VBScriptProcedure
If Not FileExists(AttachmentPath & "@@ORG:FILENAME@@") Then
GotoNextRow
End If
End Sub
</source>