Dim e As Object = Args(0) For Each dt As DataTable In DataTables For Each dc As DataCol In dt.DataCols If dc.ExtendType = ExtendTypeEnum.File OrElse dc.ExtendType =ExtendTypeEnum.Files OrElse dc.ExtendType =ExtendTypeEnum.Images Then dc.DefaultFolder = "\\192.168.40.102\data$\project\Attachments\" End If Next Next