ion FileExists(ByVal sFIle As String) As Boolean
Dim s As String
On Error Resume Next
   s = Dir(sFIle)
   FileExists = ((s &lt;&gt; "") And (Err.Number = 0))
End Function

Private Function KillFileIfExists(ByVal sFIle As String) As Boolean
   On Error Resume Next
   Kill sFIle
   KillFileIfExists = ((Err.Number = 0) Or (Err.Number = 53))
End Function

Private Sub pEnableControls()
Dim bS As Boolean
   bS = (m_cUnzip.FileCount &gt; 0)
   cmdExtract.Enabled = bS
   mnuFile(1).Enabled = bS
   cmdAll.Enabled =