Code: Select all
pid = RunProgram("ls", "-Ramiscut", "/Users/me/Library/Caches/", #PB_Program_Open | #PB_Program_Wait | #PB_Program_Read)
If (pid)
Define.l BufferSize = AvailableProgramOutput(pid)
If (BufferSize > 0)
*Buffer = AllocateMemory(BufferSize)
ReadProgramData(pid, *Buffer, BufferSize)
Define.s result = PeekS(*Buffer, BufferSize)
UseMD5Fingerprint()
PrintN( StringFingerprint(result, #PB_Cipher_MD5) )
FreeMemory(*Buffer)
EndIf
CloseProgram(pid)
EndIf
Code: Select all
pid = RunProgram("ls", "-rtl", "/Users/me/Library/", #PB_Program_Open | #PB_Program_Wait | #PB_Program_Read)
Thanks,
Karl-Uwe