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 = "C:\Temp\EMARTEST" If Right(strSourceFolder, 1) <> "\" Then strSourceFolder = strSourceFolder & "\" Set fso = CreateObject("Scripting.FileSystemObject") Set objSource = fso.GetFolder(strSourceFolder) For Each oFile In objSource.Files strFirst3 = Left(oFile.Name, 3) If Not fso.FolderExists(strSourceFolder & strFirst3) Then fso.CreateFolder strSourceFolder & strFirst3 End If fso.MoveFile strSourceFolder & oFile.Name, strSourceFolder & strFirst3 & "\" Next
Join the community of 500,000 technology professionals and ask your questions.