Code

var vFileList1 as String      //Initial Filelist
var vFileList2 as String     // FileList after a new file dropped into the folder
var vPath as String = "c:\Progra~1\ePresc~1\Inbound\201110w4"
var vFileToOpen as String
var vFiles as String
var vDigit as Int
var vStr as String

var vLoop as Int
var n as Int



If svStop = "Continue" then
	{

		svStop = "Stop"
		vLoop = 2
	}
	Else
	{
		svStop = "Continue"
		vLoop = 1

	}
WriteLN ("Value For svStop = " + svStop)
WriteLN ("Value of vLoop = " + @str (vLoop))




//svStop = "Continue"

While vLoop = 1
	{
		vFileList1 = @LocalListdirectory (vPath)
		WriteLN (vFileList1)
		Loiter(15000)
		vFileList2 = @LocalListdirectory (vPath)
		WriteLN (vFileList2)



				//WriteLN ("Files after Downloading Completed: " + vListB)
				VFileToOpen = @DifferenceStringArray(vFileList2, vFileList1)
				WriteLN ("Files to Open: " + vFileToOPen)


		For n = 1 to @CountStringArray (vFileToOpen)
				vFiles = @AccessStringArray (vFileToOpen, n)

				 vDigit = @AsynchShell (vPath + "\" +  vFiles)
				vStr = vStr + @NL ( ) + vFiles
				Next



		If svStop = "Continue" then
			{
				vLoop = 1
			}
			Else if svStop = "Stop" then
			{
				vLoop = 2
			}



	}