>That's very nice for those wanting to transition.
>(just a small note: the dir change to C:\ looks a bit
>dangerous to me)
Fixed, thanks.
---cut---
procedure HB_UnZipFile( cFile, bUpdate, lWithPath, cPassword,
cFileToUnzip, bFileUpdate )
local hUnZip, nErr, cCurDir, cPath
if !( ".zip" $ cFile )
cFile += ".zip"
endif
hUnZip = HB_UnZipOpen( cFile )
if !Empty( hUnZip )
HB_FNameSplit( cFile, @cPath )
cCurDir = CurDir()
DirChange( cPath )
nErr = HB_UnZipFileFirst( hUnZip )
while nErr == 0
HB_UnzipExtractCurrentFile( hUnZip, nil, cPassword )
nErr = HB_UnZipFileNext( hUnZip )
enddo
HB_UnZipClose( hUnZip )
DirChange( cCurDir )
endif
return
---cut---
_______________________________________________________
Yahoo! Mail - Sempre a melhor opção para você!
Experimente já e veja as novidades.
http://br.yahoo.com/mailbeta/tudonovo/
_______________________________________________
Harbour mailing list
[email protected]
http://lists.harbour-project.org/mailman/listinfo/harbour
