I am facing an exception as shown below Exception Details: System.NullReferenceException: Object variable or With block variable not set. Dim objShell As Object = CreateObject("Shell.Application") Dim objFSO As Object = CreateObject("Scripting.FileSystemObject") Dim objItem As Object Dim objFolder As Object objFolder = objShell.NameSpace("\\ims_robot04\Imagestation_Interface\Backup\TIFF\BB") Dim colItems As Object colItems = objFolder.Items ' In this statement i am facing the exeception If colItems.count > 0 Then For Each objItem In colItems If DateDiff(DateInterval.Minute, objItem.ModifyDate, Now()) <= DateDiff(DateInterval.Minute, CDate(LabelBBDate.Text), Now()) And DateDiff(DateInterval.Minute, objItem.ModifyDate, Now()) >= 9.8 Then ReDim Preserve TiffFileList1(NumberOfPDFProcessed) TiffFileList1(NumberOfPDFProcessed) = Left(objItem.name(), 25) NumberOfPDFProcessed = NumberOfPDFProcessed + 1 End If Next End If Can someone help me with that?