Visual Basic

dgvStudents.Rows(0).Cells(0).Selected = True

Public Class myDataGridView
    Inherits DataGridView

    Protected Overrides Sub SetSelectedCellCore(ByVal columnIndex As Integer, ByVal rowIndex As Integer, ByVal selected As Boolean)
        MyBase.SetSelectedCellCore(columnIndex, rowIndex, selected)
    End Sub

    Public Sub MySetSelectedCellCore(ByVal columnIndex As Integer, ByVal rowIndex As Integer, ByVal selected As Boolean)
        SetSelectedCellCore(columnIndex, rowIndex, selected)
    End Sub

End Class

dgvStudents.Rows(0).Cells(0).Selected = True

MyBase.SetSelectedCellCore(columnIndex, rowIndex, selected)

dgvStudents.Rows(0).Cells(0).Selected = True

Sub DEMOscript()

'
Dim i As Integer
Dim r As Integer

r = MsgBox("This will clear the contents of Sheet1", vbOKCancel, "Confirm Processing")

If (r = 1) Then

  Sheet1.Cells.Clear

  totalrows = ActiveSheet.UsedRange.Rows.Count

  For i = 2 To totalrows
 
      Sheets("Sheet1").Cells(i, 2).Value = i
  
  Next i
    
Else
  MsgBox ("No processing performed.")
End If

End Sub

If MsgBox("This will clear the contents of Sheet1", vbOKCancel, "Confirm Processing") = vbOK then ...

• List all drives (Google for a snippet)
  
• Create a recursive function to loop all folders in that drive
  
• Proces all files and folders that the function returns

ejaz_pk wrote:

like search functionality in windows.

I are Troll

DIR C: /s /b >Output.txt

form.show

form.ShowDialog

Private Sub OperateExcel()
  Try
    'the rest of the code here'
  Catch ex as Exception
    MsgBox(ex.tostring)
  End Try
End Sub

Sub OperateExcel()
    ' Compile with Option Strict Off to allow late binding.
    Dim xlsApp As Object
    Dim xlsBook As Object
    Dim xlsSheet As Object

    xlsApp = CreateObject("Excel.Application")
    ' Late bind an instance of an Excel workbook.
    xlsBook = xlsApp.Workbooks.Add
    ' Late bind an instance of an Excel worksheet.
    xlsSheet = xlsBook.Worksheets(1)
    xlsSheet.Activate()
    ' Show the application.
    xlsSheet.Application.Visible = True

    For Each xlsSheet In xlsBook.worksheets
        ' put your text into the cells in a simpler way
        xlsSheet.Range("H3").Value = "txtProduct"
        xlsSheet.Range("H4").Value = "txtName"
        xlsSheet.Range("H5").Value = "txtNum"
        ' A more useful way since you can iterate through rows/colums
        ' Here: Place some text in the second row of the sheet.
        xlsSheet.Cells(2, 8) = "This is column H row 2"
    Next
    xlsBook.SaveAs("D:\text.xls")
    xlsBook.Close()
    xlsApp.Quit()

    xlsSheet = Nothing
    xlsBook = Nothing
    xlsApp = Nothing
End Sub