Sample: strmyFolderPath = "C:\Jay\Sample" strZipFilePath = " C:\Jay\My SampleFile.Zip" Call ZipMyFolder ( strmyFolderPath, strZipFilePath ) Function ZipMyFolder ( strmyFolderPath, strZipFilePath ) Dim intSkipped, intSrcItems Dim objApp, objFolder, objFSO, objItem, objTxt Dim strSkipped Const ForWriting = 2 intSkipped = 0 ' Make sure the path ends with a backslash If Right ( strmyFolderPath, 1 ) <> "\" Then strmyFolderPath = strmyFolderPath & "\" End If ' Use custom error handling On ...