Read this Gartner Research Note and discover how your IT organization can automate and optimize DevOps processes using a toolchain architecture.
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
|Batch file output||20||89|
|How to Skip in FOR command if a Directory does not exist.||6||80|
|how to split this type of line?||5||93|
|VBscript/Batch file: copy files/folders based on a csv file||15||82|