SftDirectory 3.5 - ActiveX File/Folder Control

Filtering Sample (VB.NET)

This sample illustrates filtering (limiting) the files/folders shown.

This is not an executable sample, so a complete project is not provided. These statements are intended to show the syntax used.

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    ' Displays all physical drives
    ' To avoid duplicate loading, use AutoInitialLoad = False in
    ' property page
    AxSftDirectory1.ControlStyle = SftDirectoryStyleConstants.styleSftDirectoryComboBoxDetailList
    AxSftDirectory1.TopMostFolderSpecial = SftDirectorySpecialFolderConstants.specialSftDirectoryMyComputer
    AxSftDirectory1.Headers.Style = SftDirectoryHeadersStyleConstants.headersSftDirectoryButton
    AxSftDirectory1.get_Column(SftDirectoryContentsConstants.contentsSftDirectoryName).HeaderText = "Drives"
End Sub

Private Sub AxSftDirectory1_Filtering(ByVal sender As Object, ByVal e As AxSftDirectoryLib30._ISftDirectoryEvents_FilteringEvent) Handles AxSftDirectory1.Filtering
    ' This filters out folders such as "Shared Documents", "Control Panel", which
    ' are part of "My Computer"
    If e.folder.Type >= SftDirectoryFolderTypeConstants.typeSftDirectory_Computer_Drive35 And _
            e.folder.Type <= SftDirectoryFolderTypeConstants.typeSftDirectory_Computer_Other Then
        ' OK, add this to the control contents
    Else
        e.removeFolder = True ' don't add this to the control contents
    End If
End Sub