Does anyone have a way of unzipping files on Big Sur?
Here's the code that works on Windows but not on Big Sur.
Code: Select all
zipfilelocation$ = OpenFileRequester("Choose a Zip", "", "", 0)
If zipfilelocation$ =""
Text$ + "No File Chosen"
MessageRequester("Information", Text$)
Else
UseZipPacker()
destfolder$ = GetCurrentDirectory()+ "test_unzip/"
CreateDirectory(destfolder$ )
Debug zipfilelocation$
Debug destfolder$
OpenPack(0, zipfilelocation$)
ExaminePack(0)
While NextPackEntry(0)
Result = UncompressPackFile(0, destfolder$ + PackEntryName(0) )
n=n+1
Test$=StrF(n) +" Name " +PackEntryName(0) + " Size "+ PackEntrySize(0) + " Type "+ PackEntryType(0) +" D&F "+destfolder$ + filename$
Debug Test$
Wend
ClosePack(0)
EndIf