SftDirectory 3.5 - ActiveX File/Folder Control

Filtering Sample (VB6)

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 Form_Load()
    ' Displays all physical drives
    ' To avoid duplicate loading, use AutoInitialLoad = False in
    ' property page
    SftDirectory1.ControlStyle = styleSftDirectoryComboBoxDetailList
    SftDirectory1.TopMostFolderSpecial = specialSftDirectoryMyComputer
    SftDirectory1.Headers.Style = headersSftDirectoryButton
    SftDirectory1.Column(contentsSftDirectoryName).HeaderText = "Drives"
End Sub

Private Sub SftDirectory1_Filtering(Folder As SftDirectoryLib30.ISftDirectoryFolder, RemoveFolder As Boolean)
    ' This filters out folders such as "Shared Documents", "Control Panel", which
    ' are part of "My Computer"
    If Folder.Type >= typeSftDirectory_Computer_Drive35 And Folder.Type <= typeSftDirectory_Computer_Other Then
        ' OK, add this to the control contents
    Else
        RemoveFolder = True ' don't add this to the control contents
    End If
End Sub