Visual Basic

spruha369 wrote:

for my college
it is compulsory tat i make the project in vb6

I are troll

Public Sub CheckDirectories(ByVal root As IO.DirectoryInfo)
    For Each file In root.GetFiles("*.txt")
        'process the file
    Next
    For Each subDir In root.GetDirectories()
        CheckDirectories(root)
    Next
End Sub

' Command Click
Dim RootDir As New IO.DirectoryInfo("C:\MyFolder")
Call Module1.CheckDirectories(RootDir)

' Module1.CheckDirectories
Public Sub CheckDirectories(ByVal root As IO.DirectoryInfo)
    For Each file In root.GetFiles("*.txt")
        Debug.Print(file.Name) 'process the file
    Next
    For Each subDir In root.GetDirectories()
        CheckDirectories(root)
    Next
End Sub

Alan N wrote:

and think what the parameter should be for that call.

Imports Microsoft.Office.Interop.Excel

Public Class Form1

    Dim excel As New Microsoft.Office.Interop.Excel.Application

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        excel.Visible = True

    End Sub
End Class