Special Offer: Buy 1 course, get 2nd free! Buy the 'Managing Office 365 Identities & Requirements' course w/ Accelerated TestPrep, and automatically receive the 'Enabling Office 365 Services' course FREE!
Dim LastRow As String Dim i As Integer Dim Computer As String Dim fso As New FileSystemObject Dim d LastRow = Range("A65536").End(xlUp).Row On Error Resume Next For i = 1 To LastRow Computer = Range("A" & i & "").Value fso.GetFolder ("\\" & Computer & "\c$") If Err.Number <> 0 Then Err.Clear Cells(i, 2) = "Fail" Else Cells(i, 2) = "Good" End If Next i
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.