Hi All, I am new to programming. I wrote this simple code but it seemed not working at run time. I mean not selecting particular file extensions when I am selecting the particular radio buttons. By default each radio button is set to false on Checked property. Also there is no syntax error. Please guide me where I am wrong. I appreciate all in advance who respond to me query. Thank you all!
VB.NET:
Imports System
Imports System.IO
Public Class ExDirec
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim drives() As String
drives = Directory.GetLogicalDrives
For Each drv In drives
lstDrives.Items.Add(drv)
Next
End Sub
Private Sub lstDrives_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstDrives.SelectedIndexChanged
Dim di As New DirectoryInfo(lstDrives.Text)
Dim directories() As DirectoryInfo
lstDirectories.Items.Clear()
directories = di.GetDirectories()
For Each dr In directories
lstDirectories.Items.Add(dr)
Next
End Sub
Private Sub lstDirectories_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstDirectories.SelectedIndexChanged
Dim di As New DirectoryInfo(lstDrives.Text & lstDirectories.Text)
Dim fls() As FileInfo
fls=di.GetFiles
lstFiles.Items.Clear()
For Each fl In fls
If rdbAll.Checked = True Then
fls = di.GetFiles("*.*")
lstFiles.Items.Add(fl.Name)
ElseIf rdbText.Checked = True Then
fls = di.GetFiles("*.txt")
lstFiles.Items.Add(fl.Name)
ElseIf rdbCab.Checked = True Then
fls = di.GetFiles("*.cab")
lstFiles.Items.Add(fl.Name)
End If
Next
End Sub
End Class
Last edited by a moderator: