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.
Dim A As String A = Dir$("C:\", vbDirectory) Do While A <> "" And A <> "." And A <> ".." And A <> "live" If GetAttr("c:\" & A) = "16" Or GetAttr("c:\" & A) = "17" Then MsgBox "c:\" & A 'If Dir("c:\" & A & "\findme.txt") <> "" Then 'Form1.List1.AddItem "c:\" & A & "\findme.txt" 'Else 'Form1.List1.AddItem "c:\" & A 'End If End If A = Dir$ Loop
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|Sending a email via excel using vba||6||109|
|HOW D I CLEAR PICTURES IN IMAGE CONTROL AND COMMENTS IN CELLS WHEN WORKBOOK IS OPENED||18||110|
|Add and format columns in vb6||7||71|
|Access2016 ignore hyphen in data entry or searches||5||47|