objFolder = objFSO.GetFolder(strTempFolder)strDest = "The following files are found in '" & strZipFile & "':" & vbLfstrDestTarget = "The following special files are found in '" & strZipFile & "':" & vbLf