Code:
Function BrowseForFile()
  dim $obj,$strPath,$STR
  $STR=@crlf+"Choose the Password Protected Archive file..."+@crlf+@crlf
  $obj = CreateObject("Shell.Application")
  $strPath = $obj.BrowseForFolder(0,$STR,&4000,"")
  $BrowseForFile = $strPath.self.Path
EndFunction


I created the above function. However I am not getting the expected results and I believe the selection of type represented by "&4000" is the culprit.

When I use BrowseForFile() and browse to a ZIP file I get the Fully Qualified Name and Path (FQNP) of the ZIP file that was selected.

However, when I use BrowseForFile() and browse to a 7z or RAR file I get a null string.

I need BrowseForFile() to provide the FQNP of any file I select.