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.
Sub ArchiveFiles() Dim fso As Object Dim sSourceDir As String Dim sTargetDir As String sSourceDir = "C:\my documents\" sTargetDir = "C:\my documents\backup\" Set fso = CreateObject("Scripting.FileSystemObject") fso.movefile Source:=sSourceDir & "Costs*.xls", Destination:=sTargetDir fso.movefile Source:=sSourceDir & "Status*.xls", Destination:=sTargetDir End Sub
Join the community of 500,000 technology professionals and ask your questions.