[RESOLVED] unzip file and storing in temp folder using vb6 code

[firoz.raj]

hi friends,
can you tell me ?what is the uses of the following code .here is the following code what i have written .but please let me know your opion .i simple
want to unzip the zip file .and i want to store in the temp folder of c:/.

If Dir$("c:\program Files\winrar\winrar.exe") = "" Then
    MsgBox "Winrar Is Not installed", vbQuestion
    Exit Sub
End If
ProcessId = Shell("c:\progra~1\winrar\winrar e -inul " & Chr(34) & Source & Chr(34) & " " & Chr(34) & Target & Chr(34), vbHide)
        process_handle = OpenProcess(Synchronize, 0, ProcessId)
        If process_handle <> 0 Then
            WaitForSingleObject process_handle, INFINITE
            CloseHandle process_handle
        End If