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.
Function FilterExactMatch(astrItems() As String, _ strSearch As String) As String() ' This function searches a string array for elements ' that exactly match the search string. Dim astrFilter() As String Dim astrTemp() As String Dim lngUpper As Long Dim lngLower As Long Dim lngIndex As Long Dim lngCount As Long ' Filter array for search string. astrFilter = Filter(astrItems, strSearch) ' Store upper and lower bounds of resulting array. lngUpper = UBound(astrFilter) lngLower = LBound(astrFilter) ' Resize temporary array to be same size. ReDim astrTemp(lngLower To lngUpper) ' Loop through each element in filtered array. For lngIndex = lngLower To lngUpper ' Check that element matches search string exactly. If astrFilter(lngIndex) = strSearch Then ' Store elements that match exactly in another array. astrTemp(lngCount) = strSearch lngCount = lngCount + 1 End If Next lngIndex ' Resize array containing exact matches. ReDim Preserve astrTemp(lngLower To lngCount - 1) ' Return array containing exact matches. FilterExactMatch = astrTemp End Function
Function GetFileList(PathToReports As String) As Long ' Puts the files found in the directory in an array ' and Returns a total count of files found. Dim strFileNames As String Dim iCount As Integer iCount = 0 ChDir PathToReports strFileNames = Dir(PathToReports & "\*.xls") 'Gets a list of the XLS files to process Do While strFileNames <> "" iCount = iCount + 1 ReDim Preserve arReportsFileList(1 To iCount) arReportsFileList(iCount) = strFileNames strFileNames = Dir 'Get the next file in the directory Loop GetFileList = iCount ' Temporary code to test the finding of a string in an array MsgBox FilterExactMatch(arReportsFileList, "Client_Mapping") End Function
Join the community of 500,000 technology professionals and ask your questions.