Missing Or Empty Zip File Error
Contents |
be down. Please try the request again. Your cache administrator is webmaster. Generated Thu, 20 Oct 2016 19:19:47 GMT by s_wx1157 (squid/3.5.20)
SQL Server Hosting for Access Access Onsite Training Access Help Desk Convert From … dBase to Access Excel to Access FoxPro to Access CSV Import into Access QuickBooks with Access Ring Central with Access VBA Developers Software Solutions Microsoft Access Consulting SharePoint Consulting Web Enabled MS Access Database Microsoft SQL Server Microsoft VB.Net Products Report Generator Company Center TokenBoards Client Case Studies Access Database Managing a Multi-billion Dollar University Endowment Fund Offshore Pipe Tracking Software Elected Officials Database with http://answers.microsoft.com/en-us/windows/forum/windows_7-files/error-when-creating-a-zipped-folder-missing-or/3db28965-5335-4dfa-a4fd-5fa59a7f1d4b Ethics Form tracking Amazon API Integration with Access Custom Quoting and Proposal Solution Truck Owner Operator Software and Web Solution Labor Union Dues and Membership Management System Insurance Claim System to Reduce Processing Time Safety Training, Incident and Accident Tracking Tool The Perfect Trifecta Solution for Efficient Medical Record Keeping Monitoring Production Scrap Levels with Power BI Blog https://accessexperts.com/blog/2012/02/06/zipandunzipfrommicrosoftvba/ Access Help Access Queries Access Web Database Outlook VBA SharePoint SQL Server VBA Word VBA Support Submit a Ticket Report Generator Knowledge Base How to Use FogBugz Links Access User Groups Helpful Links Contact EspaƱol Zip and Unzip from Microsoft Access VBA By Ben Clothier February 6, 2012 32 Comments 0 Click image to learn more about the bookOn occasions, we have a need to zip files as part of our workflow within Access VBA. One sore point with zipping is that there's really no simple way to zip or unzip files without depending on a third-party utilities. When you think about it, it is quite odd considering that zipping is built-in to Windows Explorer. (Reading between the lines, it seems to do with licensing constraints).
Thankfully, Ron de Bruin has provided a solution which involves automating the Windows Explorer (aka Shell32). A Shell32.Folder object can be either a real folder or a zip folder so by manipulating a zip file as if it was a Shell32.folder, we can then use the "Copy Hehere for a quick overview of the site Help Center Detailed answers to any questions you might have Meta Discuss http://stackoverflow.com/questions/30934250/vbscript-zip-large-folder the workings and policies of this site About Us Learn more about Stack Overflow the company Business Learn more about hiring developers or posting ads with us Stack Overflow Questions Jobs Documentation Tags Users Badges Ask Question x Dismiss Join the Stack Overflow Community Stack Overflow is a community of 6.2 million programmers, just like you, helping each zip file other. Join them; it only takes a minute: Sign up vbscript zip large folder up vote 1 down vote favorite I have written a script to backup a data directory of our TM1 cube system.. The script creates a new foldder and copies files across (excluding some files\ folders). This works fine. The script then zips the new missing or empty folder. This seems to fail after around 10 minutes. Around 2000 objects are being backed up, including some cube files which are up to 3GB in size. Total is around 7gb before zipping. I have been testing this on my C drive with a full copy of files and structure to be backed up.. It creates around 350 objects inc some of the cube files in the zip and then fails. ERROR: Object required: 'Namespace(...)' Any ideas ? Here is my script... ' http://stackoverflow.com/questions/15139761/zip-a-folder-up ' ArchiveFolder "E:\Tm1dev9\Backups\Friday.zip", "E:\Tm1dev9\Backups\Friday" ' ***** Varialbles to set ****** ' strWeekday = weekday(now())-1 strSourceFolder = "C:\Temp\TM1\ZipTesting\TM1_Data" ' do not use backslash at end strDestFolder = "C:\Temp\TM1\ZipTesting\Day" & strWeekday ' do not use backslash at end strExclude = "C:\Temp\TM1\ZipTesting\ExcludeList.txt" strZipFile = "C:\Temp\TM1\ZipTesting\Day" & strWeekDay & ".zip" dim fso dim objShell dim blnFinished Set fso = CreateObject("Scripting.FileSystemObject") Set objShell = CreateObject("WScript.Shell") CopyFiles WScript.Sleep 2000 ArchiveFolder strZipFile, strDestFolder ' Copy contents over to a backup folder excluding items in 'ExcludeList.txt' Sub CopyFiles() If fso.FolderExists(strDestFolder) Then fso.DeleteFolder strDestFolder End If If fso.FileEx