Visual Basic

Dim strFileSize As String = ""
        Dim di As New IO.DirectoryInfo("C:\path")
        Dim aryFi As IO.FileInfo() = di.GetFiles("*.pdf")
        Dim fi As IO.FileInfo

        For Each fi In aryFi
            strFileSize = (Math.Round(fi.Length / 1024)).ToString()
            
            'yourdatagridcell("File Name: {0}", fi.Name)
            'yourdatagridcell("File Full Name: {0}", fi.FullName)
            'yourdatagridcell("File Size (KB): {0}", strFileSize)
            'yourdatagridcell("File Extension: {0}", fi.Extension)
            'yourdatagridcell("Last Accessed: {0}", fi.LastAccessTime)
            'yourdatagridcell("Read Only: {0}", (fi.Attributes.ReadOnly = True).ToString)
        Next

Imports System.IO
Imports System
Imports System.Drawing
Imports System.Windows.Forms

Public Class SearchAvi

    Private Sub BtnGetAviFiles_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnGetAviFiles.Click

        Dim dir1 As New IO.DirectoryInfo("c:")
        Dim dir2 As IO.FileInfo() = dir1.GetFiles()
        Dim files1 As IO.FileInfo

        For Each files1 In dir2
            FrmListBox.Items.Add(files1)
        Next

    End Sub

Push start directory onto stack
loop while stack is non-empty
pop last element off the stack (directory)
do action on element (here: find all *.pdf files)
list all subdirectories and for each push full subdirectory path on the stack
end loop

dineshp123 wrote:

HOW TO MAKE SIMPLE WEB SERVICES IN VB6.0 ANY ONE KNOWS PLEASE EXPLAIN!!!!!!!!

Nanda_MR wrote:

Menu in Toolba

Nanda_MR wrote:

Is it possible to add multi level sub menu ?