Wednesday, January 12, 2011

To find the presence of bulk image in local path(VBA Code -Excel Macros)

Const strIMAGE As String = "D"
Const newFLAG As String = "E"

Public Sub Tl_Generic()
Dim i As Integer

For i = 3 To 13

If Dir("" \ Range(newFLAG & i).Value) <> "" Then
Range(newFLAG & i).Value = "present"
Else
Range(newFLAG & i).Value = "missing"
End If
Next i
End Sub

No comments: