@blink0k Thank you, but it doesn't work for me.
setfolder() doesn't work on my system ! , with any syntax (windows10 familiale 1809 )
(antivirus off , firewall off )
this code work
===>
Setvirtualresolution(640,480)
SetPrintSize(25)
ResetTimer()
/// setfolder("raw:D:\App Game Kit 2\Projects\zip_file")
//SetFolder("/dobro") // <----- Or setfolder("") <---- nothing !!!
//setFolder dont work !!
path$="raw:D:\App Game Kit 2\Projects\zip_file\" // here the correct path !!
file$=path$+"agktest.txt"
OpenToWrite(1,file$)
WriteLine(1,"AGK rules!")
CloseFile(1)
//Create a zip file
CreateZip( 1,path$+"agktest.zip")
AddZipEntry(1,path$+"agktest.txt","agktest.txt")
CloseZip(1)
Repeat
Print ("Test and zip file created,")
Print ("The files will be deleted in 15 seconds")
Sync()
Until Timer()>15
//Delete the test files
DeleteFile(path$+file$)
DeleteFile(path$+ "agktest.zip")
End
Carpe Diem