Hollywood forums

Code: Select all

@REQUIRE "xad", {InstallAdapter = True}

Function p_GetUnpackedSizeXad(file$)
	Local size = 0
	If Exists(file$)
		Local xid = xad.OpenArchive(Nil, file$)
		Local xarc = xad.GetObjectType()
		Local xnum = GetAttribute(xarc, xid, #XADATTRNUMENTRIES)
		For Local i = 0 To xnum -1
			Local t = xad.GetFileAttributes(xid, i)
			size = size + t.size
		Next
		xad.CloseArchive(xid)
	EndIf
	Return(size)
EndFunction

StartTimer(1)
DebugPrint("Size:", p_GetUnpackedSizeXad("RAM:test.lha"))
DebugPrint("Time:", GetTimer(1))

Function p_GetUnpackedSizeDir(file$, size)
	Local err, id = ?OpenDirectory(Nil, file$)
	If Not err
		Local e = NextDirectoryEntry(id)
		While e <> Nil
	        	If e.Type = #DOSTYPE_DIRECTORY
				size = p_GetUnpackedSizeDir(FullPath(file$, e.name), size)
	        	Else
				size = size + e.size
	        	EndIf
	    		e = NextDirectoryEntry(id)
		Wend
		CloseDirectory(id)
	EndIf
	Return(size)
EndFunction

StartTimer(1)
DebugPrint("Size:", p_GetUnpackedSizeDir("RAM:test.lha"))
DebugPrint("Time:", GetTimer(1))

Code: Select all

lha l ram:archive.lha | tail -4 | head -n 1 | xargs echo | head -n 1" >ram:value.txt