Private Sub bt_lvl1_Click(Index As Integer)
    
  Dim fso As New FileSystemObject
  Dim Return_code As Boolean
  Dim res As Long

  
  On Error GoTo er_h
  
    Select Case Index

     Case 0  
      If TreeToolsForm.DBTreeView1.m_selectedFolderID = 0 Then
       
            MsgBox BLInst.GetDefinedText(5016, olAppSettings.MenuLang), vbInformation + vbH, BLInst.GetDefinedText(5015, olAppSettings.MenuLang)
       
        Exit Sub
      End If
      
      Operator = OL_NEW_FOLDER
      
      frm_new_folder.OpenDialog TreeToolsForm.DBTreeView1.m_selectedFolderID, _
                                TreeToolsForm.DBTreeView1.m_selectedFolderName, _
                                TreeToolsForm.DBTreeView1.m_selectedFolderPath, _
                                TreeToolsForm.DBTreeView1.m_selectedFolderNotes, _
                                Return_code, TreeToolsForm.DBTreeView1.m_selectedFolderSchema
            
      'todo:
      If Return_code Then TreeToolsForm.DBTreeView1.RefreshTree TreeToolsForm.DBTreeView1.m_selectedFolderID 
    Case 1  'update folder properties
      
      If TreeToolsForm.DBTreeView1.m_selectedFolderID = 0 Then
       ' msg בחר תיקיה לעדכון.
            MsgBox BLInst.GetDefinedText(5018, olAppSettings.MenuLang), vbInformation + vbMsgBoxRight, BLInst.GetDefinedText(5017, olAppSettings.MenuLang)
    
        Exit Sub
      End If
      Operator = OL_EDIT_FOLDER
      
      frm_new_folder.OpenDialog TreeToolsForm.DBTreeView1.m_selectedFolderID, _
                                TreeToolsForm.DBTreeView1.m_selectedFolderName, _
                                TreeToolsForm.DBTreeView1.m_selectedFolderPath, _
                                TreeToolsForm.DBTreeView1.m_selectedFolderNotes, _
                                Return_code, TreeToolsForm.DBTreeView1.m_selectedFolderSchema
            
      'todo
      If Return_code Then TreeToolsForm.DBTreeView1.RefreshTree TreeToolsForm.DBTreeView1.m_selectedFolderID
      Operator = OL_IDLE
      
    Case 2 'delete folder
      
      If TreeToolsForm.DBTreeView1.m_selectedFolderID = 0 Then
     
            MsgBox BLInst.GetDefinedText(5020, olAppSettings.MenuLang), vbInformation + vbMsgBoxRight, BLInst.GetDefinedText(5019, olAppSettings.MenuLang)
        Exit Sub
      End If
      DoEvents
      
      If TreeToolsForm.DBTreeView1.m_selectedFolderID = BLInst.RootFolderID Then
      
            MsgBox BLInst.GetDefinedText(5021, olAppSettings.MenuLang), vbInformation + vbMsgBoxRight, BLInst.GetDefinedText(5019, olAppSettings.MenuLang)
       
        Exit Sub
      End If
      DoEvents
      Operator = OL_EDIT_FOLDER
  
        res = MsgBox(BLInst.GetDefinedText(5022, olAppSettings.MenuLang) + vbNewLine + BLInst.GetDefinedText(5023, olAppSettings.MenuLang) + vbNewLine + BLInst.GetDefinedText(5024, olAppSettings.MenuLang), vbInformation + vbH + vbYesNo, BLInst.GetDefinedText(5019, olAppSettings.MenuLang))
     
      
        If res = vbYes Then
          
            Dim sonlist As String
            sonlist = ""
            BLInst.GetFolderFullSunsList TreeToolsForm.DBTreeView1.m_rsTree, TreeToolsForm.DBTreeView1.m_selectedFolderID, sonlist, 0
            If DeleteFolder(TreeToolsForm.DBTreeView1.m_selectedFolderID, CurrUser.UserID, sonlist) = False Then
                     'msg failed delete folder
                    MsgBox BLInst.GetDefinedText(5025, olAppSettings.MenuLang), vbInformation + vbH, BLInst.GetDefinedText(5019, olAppSettings.MenuLang)
            Exit Sub
    
         Else
            TreeToolsForm.DBTreeView1.RefreshTree 0    ' select the root item in Folders tree
         End If
        End If
        Operator = OL_IDLE
     
    Case 3  'exit
        'TreeToolsForm.DBTreeView1.m_selectedFolderID = TreeToolsForm.DBTreeView1.m_selectedFolderID
       frm_main.Enabled = True
       Unload Me
      
      
      
  Case 4  'change folder path
      
      Dim tmpFolderID As Long
      
      If TreeToolsForm.DBTreeView1.m_selectedFolderID = 0 Then
    
        MsgBox BLInst.GetDefinedText(5018, olAppSettings.MenuLang), vbInformation + vbMsgBoxRight, BLInst.GetDefinedText(5017, olAppSettings.MenuLang)
        Exit Sub
      End If
      tmpFolderID = TreeToolsForm.DBTreeView1.m_selectedFolderID
      
      If Not fso.FolderExists(TreeToolsForm.DBTreeView1.m_selectedFolderPath) Then
      
        MsgBox BLInst.GetDefinedText(5027, olAppSettings.MenuLang) & vbNewLine & BLInst.GetDefinedText(5028, olAppSettings.MenuLang), vbInformation + vbMsgBoxRight, BLInst.GetDefinedText(5026, olAppSettings.MenuLang)
        Exit Sub
      End If
      
      frm_change_folderPath.OpenDialog tmpFolderID, _
                                TreeToolsForm.DBTreeView1.m_selectedFolderName, _
                                TreeToolsForm.DBTreeView1.m_selectedFolderPath, _
                                TreeToolsForm.DBTreeView1.m_selectedFolderNotes, _
                                Return_code
            
      'todo
      If Return_code Then TreeToolsForm.DBTreeView1.RefreshTree tmpFolderID
      Operator = OL_IDLE
      
   '    Case 5  
'      frm_makemador_auto.Show 1
'
    End Select
Exit Sub
er_h:
Call LogErrors(0, "frm_folders", "bt_lvl1_Click", err.Number, err.DESCRIPTION)

End Sub