Did you know SD-WANs can improve network connectivity? Check out this webinar to learn how an SD-WAN simplified, one-click tool can help you migrate and manage data in the cloud.
Set fso = CreateObject("Scripting.FileSystemObject") ' Set the Folder Locations sfolder = "\\lts-srv3\public\datadump1\" ' Folder copying from dfolder = "\\lts-srv1\users\pgoodway\ian data\" 'Folder copying to zFile = "\\lts-srv1\users\pgoodway\ian data\ZippedFile.zip" Set folder = fso.GetFolder(sFolder) Set files = folder.Files For each folderIdx In files if folderIdx.DateCreated >= date then zip sfolder & folderIdx.name, zFile end if Next Function Zip( myFileSpec, myZip ) Dim objZIP On Error Resume Next Err.Clear Set objZIP = CreateObject( "XStandard.Zip" ) objZIP.Pack myFileSpec, myZip, , , 9 Zip = Err.Number Err.Clear Set objZIP = Nothing On Error Goto 0 End Function Msgbox "Finished" Open in New Window Select All
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.