DEFINE CLASS FilesArray AS STRUCT DIMENSION aFiles[1] cMembers = "pz:aFiles" ENDDEFINE declare long ZpArchive in zip32.dll ; long argc, string funame , string Zipnames oFiles = CREATEOBJECT("FilesArray") Dimension oFiles.aFiles[2] oFiles.Requery() oFiles.aFiles[1] = "Test1.Exe" oFiles.aFiles[2] = "Test2.Txt" ? ZpArchive( 2, 'test.zip', oFiles.GetString() )Christof