[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

[firoz.raj]

hallo friends
why i am getting the variable not found ?.here is the following code what
i have written .

Private Sub Form_Load()
Dim Spath$, tpath$
Dim processID#
'------------------------------------------ download zip files
        

'------------------------------------------ unzip files
Spath = "C:\"
tpath = "c:\temp"


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) & Spath & Chr(34) & " " & Chr(34) & tpath & Chr(34), vbHide)
        process_handle = OpenProcess(SYNCHRONIZE, 0, processID)
        If process_handle <> 0 Then
            WaitForSingleObject process_handle, INFINITE
            CloseHandle process_handle
        End If




'------------------------------------------ process file

End Sub

[dee-u]

I am guessing you did not declare SYNCHRONIZE?