Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
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 List_Files() 'List Files from a given directory in Column A of current excel worksheet Dim MyFolder As String Dim MyFile As String Dim a As Integer MyFolder = "C:\Test\" ' <-- Change to your folder MyFile = Dir(MyFolder & "*.*") a = 0 Do While MyFile <> "" a = a + 1 Cells(a, 1).Value = MyFile MyFile = Dir Loop MsgBox "Done." End Sub