Using xml ports to create/import CSV files

ccbryan63

Hi... I'm trying to use this code that I swiped from Maris2000 to run XML Port 5050 for testing purposes

IF ISCLEAR(FileSystem) THEN
  CREATE(FileSystem);

FilePath := 'C:\';

IF NOT FileSystem.FolderExists(FilePath) THEN
  FileSystem.CreateFolder(FilePath);

IF EXISTS(FilePath + 'PostCode.csv')  THEN
  ERASE(FilePath + 'PostCode.csv');

TestFile.CREATE(FilePath + 'PostCode.csv');
TestFile.CREATEOUTSTREAM(TestStream);

XMLPORT.EXPORT(5050, TestStream);
TestFile.CLOSE;

But I gettting errors on the variables. How do 'Filesystem' and 'TestFile' (and 'Teststream'?) need to be inititalized?

Thanks,
Chandler

ara3n

what is the error that you are getting?

Savatage

But I gettting errors on the variables. How do 'Filesystem' and 'TestFile' (and 'Teststream'?) need to be inititalized?

Can I assume he's asking how are they Defined in the globals

FileSystem - Type System
TestFile - Type File
TestStream - Type Stream

or something like that.. am I correct?

ccbryan63

Thanks for the responses... Yes, I was looking for how to define in globals. However, when I set them up as Savatage suggested:

FileSystem - Type System
TestFile - Type File
TestStream - Type OutStream ('Stream' is not listed as a type)

I get a compile error "Type conversion not possible because 1 of the operators contains an invalid type. Automation := System"

?

Chandler

Savatage

Yeah, I don't know what he used - it's probably an automation - I just guessed on the filesystem one.

I haven't looked at what the code does but maybe it's WshShell

mihail_kolev

CREATE(FileSystem,FALSE,ISSERVICETIER);