Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Set objFSO = CreateObject("Scripting.FileSystemObject") objRootFolder = "W:\CasesT" Set objFolder = objFSO.GetFolder(objRootFolder) ShowSubfolders objFSO.GetFolder(objRootFolder) Sub ShowSubFolders(Folder) For Each Subfolder in Folder.SubFolders Set objFolder = objFSO.GetFolder(folder.Path) Set colFiles = objFolder.Files a = 0 For Each objFile in colFiles dtmDate = objFile.DateLastModified fileDate = DateDiff("m", dtmDate, Date) If fileDate < 1 Then a = 1 Exit For End If Next If a = 1 Then objFSO.CopyFolder objFolder.Path , "W:\Cases2\" End If ShowSubFolders Subfolder Next End Sub
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.