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.
strSourceFolder = "\\10.41.40.119\ercharts$" strTargetFolderA = "\\10.41.40.119\ercharts$" strTargetFolderB = "\\10.41.32.139\rootsftp$\MarinaMBS" If Right(strSourceFolder, 1) <> "\" Then strSourceFolder = strSourceFolder & "\" Set fso = CreateObject("Scripting.FileSystemObject") Set objSource = fso.GetFolder(strSourceFolder) For Each oFile In objSource.Files strFirst8 = Left(oFile.Name, 8) If Not fso.FolderExists(strTargetFolderA & strFirst8) Then fso.CreateFolder strTargetFolderA & strFirst8 End If fso.copyfile strSourceFolder & oFile.Name, strTargetFolderA & strFirst8 & "\" fso.MoveFile strSourceFolder & oFile.Name, strTargetFolderB & strFirst8 & "\" Next
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.