[AccessD] ZIpping Files

On 18 Feb 2009 at 21:06, Stuart McLachlan wrote:

> Function EnumerateZipContents(ZipFileName As String) As Variant
> 'Returns an Array containing all folder and file names in the zip
>   EnumerateZipContents = Split(ListFilesInZipFolder(ZipFileName), Chr$(13) & Chr$(10))
> End Function

That returns a blank last array element. It should be:

Function EnumerateZipContents(ZipFileName As String) As Variant
 'Returns an Array containing all folder and file names in the zip
  Dim strTemp As String
  strTemp = ListFilesInZipFolder(ZipFileName)
  'strip last crlf
  strTemp = Left$(strTemp, Len(strTemp) - 2)
  EnumerateZipContents = Split(strTemp, Chr$(13) & Chr$(10))
End Function