Visual Basic

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

Private Sub FTP_PutFile(ByVal DestinationFileName As String, ByVal SourceFileName As String, ByVal usr As String, ByVal pwd As String)

        Dim brwsr As New System.Net.WebClient
        Dim creds As New System.Net.NetworkCredential(usr, pwd)
        Try
            With brwsr
                .Credentials = creds
                Console.WriteLine("Uploading file...")
                .UploadFile(DestinationFileName, SourceFileName)
                Console.WriteLine("Upload successful.")
                .Dispose()
            End With

        Catch ex As Exception
            EC(ex)
        End Try
    End Sub

FTP_PutFile("ftp://server.address.or.ip/file.extension", "c:\temp\file.extension", "user", "password")