Visual Basic

sqlAdapter.Fill(sqlDataTable)

' Here is where I'm storing the data in a session variable
If Not (Session("TaskTable") Is Nothing) Then
    Session.Remove("TaskTable")
End If

Session("TaskTable") = sqlDataTable

GridView2.DataSource = sqlDataTable

    Protected Sub GridView2_Sorting(ByVal sender As System.Object, ByVal e As System.Web.UI.WebControls.GridViewSortEventArgs) Handles GridView2.Sorting
        Dim dt As DataTable

        ' Now I'm pulling the data from the session variable out.
        dt = TryCast(Session("TaskTable"), DataTable)

        Dim dv As New DataView(dt)

' I have to store the Sort Direction in the Viewstate because the Grid 
' does not automatically remember the change of the sort direction.

        If ViewState("SortDirection") Is Nothing Then
            ViewState("SortDirection") = "ASC"
        End If

        If ViewState("SortDirection") = "ASC" Then
            dv.Sort = e.SortExpression & " " & "DESC"
            ViewState("SortDirection") = "DESC"
        Else
            dv.Sort = e.SortExpression & " " & "ASC"
            ViewState("SortDirection") = "ASC"
        End If

        GridView2.DataSource = dv
        GridView2.DataBind()
    End Sub

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!!!!!!!!