home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 7_2009-2012.ISO / data / zips / File_Explo21951312252010.psc / FileExplorer / Explore.frm < prev    next >
Text File  |  2010-12-25  |  42KB  |  1,271 lines
  1. VERSION 5.00
  2. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  3. Begin VB.Form frmExplore 
  4.    Caption         =   "Explorer  - Topka « Software"
  5.    ClientHeight    =   8685
  6.    ClientLeft      =   1770
  7.    ClientTop       =   1950
  8.    ClientWidth     =   12300
  9.    ClipControls    =   0   'False
  10.    Icon            =   "Explore.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    PaletteMode     =   1  'UseZOrder
  13.    ScaleHeight     =   8685
  14.    ScaleWidth      =   12300
  15.    StartUpPosition =   2  'CenterScreen
  16.    WhatsThisHelp   =   -1  'True
  17.    Begin MSComctlLib.ImageList tb1 
  18.       Left            =   2160
  19.       Top             =   7560
  20.       _ExtentX        =   1005
  21.       _ExtentY        =   1005
  22.       BackColor       =   -2147483643
  23.       ImageWidth      =   28
  24.       ImageHeight     =   32
  25.       MaskColor       =   12632256
  26.       _Version        =   393216
  27.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  28.          NumListImages   =   14
  29.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  30.             Picture         =   "Explore.frx":1CFA
  31.             Key             =   ""
  32.          EndProperty
  33.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  34.             Picture         =   "Explore.frx":2854
  35.             Key             =   ""
  36.          EndProperty
  37.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  38.             Picture         =   "Explore.frx":33AE
  39.             Key             =   ""
  40.          EndProperty
  41.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  42.             Picture         =   "Explore.frx":3F08
  43.             Key             =   ""
  44.          EndProperty
  45.          BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  46.             Picture         =   "Explore.frx":4A62
  47.             Key             =   ""
  48.          EndProperty
  49.          BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  50.             Picture         =   "Explore.frx":55BC
  51.             Key             =   ""
  52.          EndProperty
  53.          BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  54.             Picture         =   "Explore.frx":6116
  55.             Key             =   ""
  56.          EndProperty
  57.          BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  58.             Picture         =   "Explore.frx":6C70
  59.             Key             =   ""
  60.          EndProperty
  61.          BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  62.             Picture         =   "Explore.frx":77CA
  63.             Key             =   ""
  64.          EndProperty
  65.          BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  66.             Picture         =   "Explore.frx":8324
  67.             Key             =   ""
  68.          EndProperty
  69.          BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  70.             Picture         =   "Explore.frx":8E7E
  71.             Key             =   ""
  72.          EndProperty
  73.          BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  74.             Picture         =   "Explore.frx":99D8
  75.             Key             =   ""
  76.          EndProperty
  77.          BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  78.             Picture         =   "Explore.frx":A532
  79.             Key             =   ""
  80.          EndProperty
  81.          BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  82.             Picture         =   "Explore.frx":B08C
  83.             Key             =   ""
  84.          EndProperty
  85.       EndProperty
  86.    End
  87.    Begin VB.Timer enb_ 
  88.       Interval        =   1
  89.       Left            =   0
  90.       Top             =   6120
  91.    End
  92.    Begin VB.ListBox naprijed 
  93.       Height          =   1035
  94.       Left            =   5400
  95.       TabIndex        =   6
  96.       TabStop         =   0   'False
  97.       Top             =   6360
  98.       Visible         =   0   'False
  99.       Width           =   1815
  100.    End
  101.    Begin VB.ListBox nazad 
  102.       Height          =   1035
  103.       Left            =   3600
  104.       TabIndex        =   5
  105.       TabStop         =   0   'False
  106.       Top             =   6360
  107.       Visible         =   0   'False
  108.       Width           =   1815
  109.    End
  110.    Begin MSComctlLib.Toolbar tbr 
  111.       Align           =   1  'Align Top
  112.       Height          =   840
  113.       Left            =   0
  114.       TabIndex        =   4
  115.       Top             =   0
  116.       Width           =   12300
  117.       _ExtentX        =   21696
  118.       _ExtentY        =   1482
  119.       ButtonWidth     =   1588
  120.       ButtonHeight    =   1429
  121.       Appearance      =   1
  122.       Style           =   1
  123.       ImageList       =   "tb1"
  124.       DisabledImageList=   "tb1dis"
  125.       _Version        =   393216
  126.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  127.          NumButtons      =   15
  128.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  129.             Caption         =   "Back"
  130.             ImageIndex      =   1
  131.             BeginProperty ButtonMenus {66833FEC-8583-11D1-B16A-00C0F0283628} 
  132.                NumButtonMenus  =   2
  133.                BeginProperty ButtonMenu1 {66833FEE-8583-11D1-B16A-00C0F0283628} 
  134.                   Key             =   "topka"
  135.                   Text            =   "Edin"
  136.                EndProperty
  137.                BeginProperty ButtonMenu2 {66833FEE-8583-11D1-B16A-00C0F0283628} 
  138.                   Key             =   "utio"
  139.                   Text            =   "utio"
  140.                EndProperty
  141.             EndProperty
  142.          EndProperty
  143.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  144.             Caption         =   "Forward"
  145.             ImageIndex      =   2
  146.          EndProperty
  147.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  148.             Caption         =   "Up"
  149.             ImageIndex      =   3
  150.          EndProperty
  151.          BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  152.             Style           =   3
  153.          EndProperty
  154.          BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  155.             Caption         =   "Find"
  156.             ImageIndex      =   4
  157.          EndProperty
  158.          BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  159.             Style           =   3
  160.          EndProperty
  161.          BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  162.             Caption         =   "Move to"
  163.             ImageIndex      =   5
  164.          EndProperty
  165.          BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  166.             Caption         =   "Copy to"
  167.             ImageIndex      =   6
  168.          EndProperty
  169.          BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  170.             Caption         =   "Delete"
  171.             ImageIndex      =   7
  172.          EndProperty
  173.          BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  174.             Style           =   3
  175.          EndProperty
  176.          BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  177.             Caption         =   "View"
  178.             ImageIndex      =   9
  179.          EndProperty
  180.          BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  181.             Caption         =   "Cut"
  182.             ImageIndex      =   11
  183.          EndProperty
  184.          BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  185.             Caption         =   "Copy"
  186.             ImageIndex      =   12
  187.          EndProperty
  188.          BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  189.             Caption         =   "Paste"
  190.             ImageIndex      =   13
  191.          EndProperty
  192.          BeginProperty Button15 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  193.             Caption         =   "Properties"
  194.             ImageIndex      =   14
  195.          EndProperty
  196.       EndProperty
  197.       OLEDropMode     =   1
  198.    End
  199.    Begin VB.PictureBox pictemp 
  200.       AutoRedraw      =   -1  'True
  201.       AutoSize        =   -1  'True
  202.       Height          =   555
  203.       Left            =   720
  204.       ScaleHeight     =   495
  205.       ScaleWidth      =   495
  206.       TabIndex        =   3
  207.       Top             =   6720
  208.       Visible         =   0   'False
  209.       Width           =   555
  210.    End
  211.    Begin MSComctlLib.ImageList ilSmall 
  212.       Left            =   600
  213.       Top             =   5160
  214.       _ExtentX        =   1005
  215.       _ExtentY        =   1005
  216.       BackColor       =   -2147483643
  217.       ImageWidth      =   16
  218.       ImageHeight     =   16
  219.       MaskColor       =   12632256
  220.       _Version        =   393216
  221.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  222.          NumListImages   =   1
  223.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  224.             Picture         =   "Explore.frx":BBE6
  225.             Key             =   "fldrClosed"
  226.          EndProperty
  227.       EndProperty
  228.    End
  229.    Begin MSComctlLib.ImageList ilMain 
  230.       Left            =   0
  231.       Top             =   5160
  232.       _ExtentX        =   1005
  233.       _ExtentY        =   1005
  234.       BackColor       =   -2147483643
  235.       ImageWidth      =   16
  236.       ImageHeight     =   16
  237.       MaskColor       =   16711935
  238.       _Version        =   393216
  239.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  240.          NumListImages   =   4
  241.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  242.             Picture         =   "Explore.frx":C180
  243.             Key             =   "fldrClosed"
  244.          EndProperty
  245.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  246.             Picture         =   "Explore.frx":C71A
  247.             Key             =   "fldrOpen"
  248.          EndProperty
  249.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  250.             Picture         =   "Explore.frx":CCB4
  251.             Key             =   "drive"
  252.          EndProperty
  253.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  254.             Picture         =   "Explore.frx":D24E
  255.             Key             =   "explorer"
  256.          EndProperty
  257.       EndProperty
  258.    End
  259.    Begin MSComctlLib.TreeView tv 
  260.       Height          =   5175
  261.       Left            =   0
  262.       TabIndex        =   0
  263.       Top             =   840
  264.       Width           =   3135
  265.       _ExtentX        =   5530
  266.       _ExtentY        =   9128
  267.       _Version        =   393217
  268.       HideSelection   =   0   'False
  269.       Indentation     =   529
  270.       LineStyle       =   1
  271.       Sorted          =   -1  'True
  272.       Style           =   7
  273.       ImageList       =   "ilMain"
  274.       BorderStyle     =   1
  275.       Appearance      =   1
  276.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  277.          Name            =   "MS Sans Serif"
  278.          Size            =   8.25
  279.          Charset         =   238
  280.          Weight          =   400
  281.          Underline       =   0   'False
  282.          Italic          =   0   'False
  283.          Strikethrough   =   0   'False
  284.       EndProperty
  285.    End
  286.    Begin MSComctlLib.StatusBar sbStatusBar 
  287.       Align           =   2  'Align Bottom
  288.       Height          =   285
  289.       Left            =   0
  290.       TabIndex        =   1
  291.       Top             =   8400
  292.       Width           =   12300
  293.       _ExtentX        =   21696
  294.       _ExtentY        =   503
  295.       _Version        =   393216
  296.       BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
  297.          NumPanels       =   3
  298.          BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  299.             AutoSize        =   1
  300.             Object.Width           =   16978
  301.             MinWidth        =   2558
  302.          EndProperty
  303.          BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  304.             Style           =   5
  305.             AutoSize        =   2
  306.             Object.Width           =   1588
  307.             MinWidth        =   1587
  308.             TextSave        =   "14:50"
  309.          EndProperty
  310.          BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  311.             Style           =   6
  312.             AutoSize        =   2
  313.             TextSave        =   "25.12.2010"
  314.          EndProperty
  315.       EndProperty
  316.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  317.          Name            =   "MS Sans Serif"
  318.          Size            =   8.25
  319.          Charset         =   238
  320.          Weight          =   400
  321.          Underline       =   0   'False
  322.          Italic          =   0   'False
  323.          Strikethrough   =   0   'False
  324.       EndProperty
  325.    End
  326.    Begin MSComctlLib.ListView lv 
  327.       Height          =   5175
  328.       Left            =   3120
  329.       TabIndex        =   2
  330.       Top             =   840
  331.       Width           =   9135
  332.       _ExtentX        =   16113
  333.       _ExtentY        =   9128
  334.       View            =   3
  335.       SortOrder       =   -1  'True
  336.       MultiSelect     =   -1  'True
  337.       LabelWrap       =   -1  'True
  338.       HideSelection   =   0   'False
  339.       _Version        =   393217
  340.       Icons           =   "il1"
  341.       SmallIcons      =   "il2"
  342.       ForeColor       =   -2147483640
  343.       BackColor       =   -2147483643
  344.       Appearance      =   1
  345.       NumItems        =   7
  346.       BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
  347.          Key             =   "ime"
  348.          Text            =   "Ime"
  349.          Object.Width           =   4410
  350.       EndProperty
  351.       BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
  352.          Alignment       =   1
  353.          SubItemIndex    =   1
  354.          Key             =   "veliΦina"
  355.          Text            =   "Zauzeta memorija"
  356.          Object.Width           =   2558
  357.       EndProperty
  358.       BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
  359.          SubItemIndex    =   2
  360.          Key             =   "tip"
  361.          Text            =   "Tip"
  362.          Object.Width           =   3087
  363.       EndProperty
  364.       BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
  365.          SubItemIndex    =   3
  366.          Key             =   "kreirano"
  367.          Text            =   "Kreirano"
  368.          Object.Width           =   3175
  369.       EndProperty
  370.       BeginProperty ColumnHeader(5) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
  371.          SubItemIndex    =   4
  372.          Key             =   "mijenjano"
  373.          Text            =   "Mijenjano"
  374.          Object.Width           =   3175
  375.       EndProperty
  376.       BeginProperty ColumnHeader(6) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
  377.          SubItemIndex    =   5
  378.          Key             =   "otvarano"
  379.          Text            =   "Otvarano"
  380.          Object.Width           =   3175
  381.       EndProperty
  382.       BeginProperty ColumnHeader(7) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
  383.          SubItemIndex    =   6
  384.          Key             =   "osobine"
  385.          Text            =   "Atributi"
  386.          Object.Width           =   2540
  387.       EndProperty
  388.    End
  389.    Begin MSComctlLib.ImageList il2 
  390.       Left            =   480
  391.       Top             =   7320
  392.       _ExtentX        =   794
  393.       _ExtentY        =   794
  394.       BackColor       =   -2147483643
  395.       ImageWidth      =   16
  396.       ImageHeight     =   16
  397.       MaskColor       =   -2147483633
  398.       _Version        =   393216
  399.    End
  400.    Begin MSComctlLib.ImageList il1 
  401.       Left            =   0
  402.       Top             =   7320
  403.       _ExtentX        =   794
  404.       _ExtentY        =   794
  405.       BackColor       =   -2147483643
  406.       ImageWidth      =   32
  407.       ImageHeight     =   32
  408.       MaskColor       =   -2147483633
  409.       _Version        =   393216
  410.    End
  411.    Begin MSComctlLib.ImageList il5 
  412.       Left            =   9000
  413.       Top             =   6960
  414.       _ExtentX        =   794
  415.       _ExtentY        =   794
  416.       BackColor       =   -2147483643
  417.       ImageWidth      =   26
  418.       ImageHeight     =   26
  419.       MaskColor       =   16777215
  420.       _Version        =   393216
  421.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  422.          NumListImages   =   1
  423.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  424.             Picture         =   "Explore.frx":D7E8
  425.             Key             =   ""
  426.          EndProperty
  427.       EndProperty
  428.    End
  429.    Begin MSComctlLib.ImageList il4 
  430.       Left            =   8520
  431.       Top             =   6960
  432.       _ExtentX        =   794
  433.       _ExtentY        =   794
  434.       BackColor       =   -2147483643
  435.       ImageWidth      =   16
  436.       ImageHeight     =   16
  437.       MaskColor       =   12632256
  438.       _Version        =   393216
  439.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  440.          NumListImages   =   9
  441.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  442.             Picture         =   "Explore.frx":E05C
  443.             Key             =   ""
  444.          EndProperty
  445.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  446.             Picture         =   "Explore.frx":E3F6
  447.             Key             =   ""
  448.          EndProperty
  449.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  450.             Picture         =   "Explore.frx":E790
  451.             Key             =   ""
  452.          EndProperty
  453.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  454.             Picture         =   "Explore.frx":EB2A
  455.             Key             =   ""
  456.          EndProperty
  457.          BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  458.             Picture         =   "Explore.frx":EEC4
  459.             Key             =   ""
  460.          EndProperty
  461.          BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  462.             Picture         =   "Explore.frx":F25E
  463.             Key             =   ""
  464.          EndProperty
  465.          BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  466.             Picture         =   "Explore.frx":F5F8
  467.             Key             =   ""
  468.          EndProperty
  469.          BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  470.             Picture         =   "Explore.frx":F992
  471.             Key             =   ""
  472.          EndProperty
  473.          BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  474.             Picture         =   "Explore.frx":FD2C
  475.             Key             =   ""
  476.          EndProperty
  477.       EndProperty
  478.    End
  479.    Begin MSComctlLib.ImageList il3 
  480.       Left            =   8040
  481.       Top             =   6960
  482.       _ExtentX        =   794
  483.       _ExtentY        =   794
  484.       BackColor       =   -2147483643
  485.       ImageWidth      =   16
  486.       ImageHeight     =   16
  487.       MaskColor       =   12632256
  488.       _Version        =   393216
  489.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  490.          NumListImages   =   9
  491.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  492.             Picture         =   "Explore.frx":100C6
  493.             Key             =   ""
  494.          EndProperty
  495.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  496.             Picture         =   "Explore.frx":10460
  497.             Key             =   ""
  498.          EndProperty
  499.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  500.             Picture         =   "Explore.frx":107FA
  501.             Key             =   ""
  502.          EndProperty
  503.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  504.             Picture         =   "Explore.frx":10B94
  505.             Key             =   ""
  506.          EndProperty
  507.          BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  508.             Picture         =   "Explore.frx":10F2E
  509.             Key             =   ""
  510.          EndProperty
  511.          BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  512.             Picture         =   "Explore.frx":112C8
  513.             Key             =   ""
  514.          EndProperty
  515.          BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  516.             Picture         =   "Explore.frx":11662
  517.             Key             =   ""
  518.          EndProperty
  519.          BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  520.             Picture         =   "Explore.frx":119FC
  521.             Key             =   ""
  522.          EndProperty
  523.          BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  524.             Picture         =   "Explore.frx":11D96
  525.             Key             =   ""
  526.          EndProperty
  527.       EndProperty
  528.    End
  529.    Begin MSComctlLib.ImageList il7 
  530.       Left            =   1440
  531.       Top             =   7320
  532.       _ExtentX        =   794
  533.       _ExtentY        =   794
  534.       BackColor       =   -2147483643
  535.       ImageWidth      =   16
  536.       ImageHeight     =   16
  537.       MaskColor       =   -2147483633
  538.       _Version        =   393216
  539.    End
  540.    Begin MSComctlLib.ImageList il6 
  541.       Left            =   960
  542.       Top             =   7320
  543.       _ExtentX        =   794
  544.       _ExtentY        =   794
  545.       BackColor       =   -2147483643
  546.       ImageWidth      =   32
  547.       ImageHeight     =   32
  548.       MaskColor       =   -2147483633
  549.       _Version        =   393216
  550.    End
  551.    Begin MSComctlLib.ImageList tb1dis 
  552.       Left            =   2760
  553.       Top             =   7560
  554.       _ExtentX        =   1005
  555.       _ExtentY        =   1005
  556.       BackColor       =   -2147483643
  557.       ImageWidth      =   28
  558.       ImageHeight     =   32
  559.       MaskColor       =   12632256
  560.       _Version        =   393216
  561.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  562.          NumListImages   =   14
  563.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  564.             Picture         =   "Explore.frx":12130
  565.             Key             =   ""
  566.          EndProperty
  567.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  568.             Picture         =   "Explore.frx":12C8A
  569.             Key             =   ""
  570.          EndProperty
  571.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  572.             Picture         =   "Explore.frx":137E4
  573.             Key             =   ""
  574.          EndProperty
  575.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  576.             Picture         =   "Explore.frx":1433E
  577.             Key             =   ""
  578.          EndProperty
  579.          BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  580.             Picture         =   "Explore.frx":14E98
  581.             Key             =   ""
  582.          EndProperty
  583.          BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  584.             Picture         =   "Explore.frx":159F2
  585.             Key             =   ""
  586.          EndProperty
  587.          BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  588.             Picture         =   "Explore.frx":1654C
  589.             Key             =   ""
  590.          EndProperty
  591.          BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  592.             Picture         =   "Explore.frx":170A6
  593.             Key             =   ""
  594.          EndProperty
  595.          BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  596.             Picture         =   "Explore.frx":17C00
  597.             Key             =   ""
  598.          EndProperty
  599.          BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  600.             Picture         =   "Explore.frx":1875A
  601.             Key             =   ""
  602.          EndProperty
  603.          BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  604.             Picture         =   "Explore.frx":192B4
  605.             Key             =   ""
  606.          EndProperty
  607.          BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  608.             Picture         =   "Explore.frx":19E0E
  609.             Key             =   ""
  610.          EndProperty
  611.          BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  612.             Picture         =   "Explore.frx":1A968
  613.             Key             =   ""
  614.          EndProperty
  615.          BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  616.             Picture         =   "Explore.frx":1B4C2
  617.             Key             =   ""
  618.          EndProperty
  619.       EndProperty
  620.    End
  621.    Begin VB.Menu osvjezi 
  622.       Caption         =   "Refresh"
  623.    End
  624.    Begin VB.Menu optabout 
  625.       Caption         =   "About"
  626.    End
  627.    Begin VB.Menu mnu_FileExit 
  628.       Caption         =   "Close"
  629.    End
  630. End
  631. Attribute VB_Name = "frmExplore"
  632. Attribute VB_GlobalNameSpace = False
  633. Attribute VB_Creatable = False
  634. Attribute VB_PredeclaredId = True
  635. Attribute VB_Exposed = False
  636.  
  637. Public fls As Files, fl As File
  638. Public fldrs As Folders, fldr As Folder
  639. Public fldrs1 As Folders, fldr1 As Folder
  640. Public drv As Drive, drvs As Drives
  641. Public fso As FileSystemObject
  642. Public duse As Boolean
  643. Private mem_ln, mem_nn As String
  644.  
  645. Private mIsMoving As Boolean
  646. Const mSplitLimit = 2000
  647.  
  648. Private Sub enb__Timer()
  649. On Error Resume Next
  650. If nazad.ListCount > 1 Then
  651.     tbr.Buttons(1).Enabled = True
  652. Else
  653.     tbr.Buttons(1).Enabled = False
  654. End If
  655. If naprijed.ListCount > 0 Then
  656.     tbr.Buttons(2).Enabled = True
  657. Else
  658.     tbr.Buttons(2).Enabled = False
  659. End If
  660. If tv.Nodes(1).Selected = True Then
  661.     tbr.Buttons(3).Enabled = False
  662. Else
  663.     tbr.Buttons(3).Enabled = True
  664. End If
  665. a = lv.SelectedItem
  666. If Err > 0 Then
  667.     tbr.Buttons(7).Enabled = False
  668.     tbr.Buttons(8).Enabled = False
  669.     Err.Clear
  670. Else
  671.     tbr.Buttons(7).Enabled = True
  672.     tbr.Buttons(8).Enabled = True
  673. End If
  674. k = 0
  675. For i = 1 To lv.ListItems.Count
  676.    If lv.ListItems(i).Selected = True Then
  677.         k = k + 1
  678.    End If
  679. Next i
  680. If k > 1 Or k < 1 Then
  681.     us.purb.Enabled = False
  682. Else
  683.     us.purb.Enabled = True
  684. End If
  685. End Sub
  686.  
  687. Private Sub Form_Load()
  688. On Error Resume Next
  689. fdrv = 0
  690. Set fso = New FileSystemObject
  691. For Each drv In fso.Drives
  692.     If drv.IsReady Then
  693.         If fdrv = 0 Then
  694.             fdrv = 1
  695.             drv_ = drv.path
  696.         End If
  697.         tv.Nodes.Add , , drv.path, drv.path, "drive"
  698.         
  699.         Set fldrs = fso.GetFolder(drv.path & "\").SubFolders
  700.         For Each fldr In fldrs
  701.             tv.Nodes.Add drv.path, tvwChild, fldr.path, fldr.Name, 1, 2
  702.         Next
  703.     Else
  704.         tv.Nodes.Add , , drv.path, drv.path, "drive"
  705.         'tv.Nodes(drv.Path).ForeColor = vbRed
  706.     End If
  707. Next
  708. tv.Nodes(drv_).Selected = True
  709. tv.SelectedItem.EnsureVisible
  710. get_i
  711. Me.caption = tv.SelectedItem
  712. nazad.AddItem tv.SelectedItem
  713. End Sub
  714.  
  715. Sub lvdblclck()
  716. lv_DblClick
  717. End Sub
  718.  
  719. Sub get_i()
  720. If duse <> True Then
  721.     On Error Resume Next
  722. back:
  723.     Set fso = New FileSystemObject
  724.     Dim imgX As ListImage
  725.     Screen.MousePointer = 11
  726.     lv.ListItems.Clear
  727.     Set lv.Icons = Nothing
  728.     Set lv.SmallIcons = Nothing
  729.     il1.ListImages.Clear
  730.     il2.ListImages.Clear
  731.     il1.ImageHeight = 32
  732.     il1.ImageWidth = 32
  733.     il2.ImageHeight = 16
  734.     il2.ImageWidth = 16
  735.     fpath = tv.SelectedItem.FullPath
  736.     old_lst = fpath
  737.     'DirBox.Refresh
  738.     Set fldrs = fso.GetFolder(fpath & "\").SubFolders
  739.     broj_f = fso.GetFolder(fpath & "\").SubFolders.Count
  740.     t_br = 0
  741.     If Err > 0 Then
  742.  
  743.         If MsgBox("Error: (" & Err.Description & ")" & vbCrLf & "Retry?", vbExclamation + vbYesNo) = vbYes Then
  744.             GoTo back:
  745.             Exit Sub
  746.         Else
  747.             nazad.RemoveItem 0
  748.             tv.Nodes(act_dir).Selected = True
  749.             tv.SelectedItem.EnsureVisible
  750.             get_i
  751.             Screen.MousePointer = 0
  752.             Exit Sub
  753.         End If
  754.     End If
  755.     
  756.     For Each fldr In fldrs
  757.         rGetIcon = ExtractAssociatedIcon(0, fldr.path, 1)
  758.         Set pictemp.Picture = Nothing
  759.         DrawIcon pictemp.hdc, 0, 0, rGetIcon
  760.         pictemp.Picture = pictemp.Image
  761.         Set imgX = il1.ListImages.Add(, , pictemp.Picture)
  762.         Set imgX = il2.ListImages.Add(, , pictemp.Picture)
  763.         t_br = t_br + 1
  764.         sbStatusBar.Panels(1).Text = "Folder icons: " & t_br & "/" & broj_f
  765.         'DoEvents
  766.         If (t_br Mod 50) = 0 Then
  767.             DoEvents
  768.         End If
  769.     Next
  770.     lv.Icons = il1: lv.SmallIcons = il2
  771.     t_br = 0
  772.     For Each fldr In fldrs
  773.         k = k + 1
  774.         lv.ListItems.Add k, fldr.path, fldr.Name, k, k
  775.         tp = fldr.Type & "  "
  776.         kr = fldr.DateCreated
  777.         mn = fldr.DateLastModified
  778.         ot = fldr.DateLastAccessed
  779.         att = fldr.Attributes
  780.         lv.ListItems(k).SubItems(1) = sz
  781.         lv.ListItems(k).SubItems(2) = tp
  782.         lv.ListItems(k).SubItems(3) = kr
  783.         lv.ListItems(k).SubItems(4) = mn
  784.         lv.ListItems(k).SubItems(5) = ot
  785.         lv.ListItems(k).SubItems(6) = att
  786.         t_br = t_br + 1
  787.         sbStatusBar.Panels(1).Text = "Folders: " & t_br & "/" & broj_f
  788.         If (t_br Mod 50) = 0 Then
  789.             DoEvents
  790.         End If
  791.     Next
  792.     
  793.    
  794.     
  795.     Set fls = fso.GetFolder(fpath & "\").Files
  796.     broj_f = fso.GetFolder(fpath & "\").Files.Count
  797.     t_br = 0
  798.     For Each fl In fls
  799.  
  800.         rGetIcon = ExtractAssociatedIcon(0, fl, 1)
  801.         Set pictemp.Picture = Nothing
  802.         DrawIcon pictemp.hdc, 0, 0, rGetIcon
  803.         pictemp.Picture = pictemp.Image
  804.         Set imgX = il1.ListImages.Add(, , pictemp.Picture)
  805.         Set imgX = il2.ListImages.Add(, , pictemp.Picture)
  806.         t_br = t_br + 1
  807.         sbStatusBar.Panels(1).Text = "File icons: " & t_br & "/" & broj_f
  808.         If (t_br Mod 50) = 0 Then
  809.             DoEvents
  810.         End If
  811.     Next
  812.     lv.Icons = il1: lv.SmallIcons = il2
  813.     broj_f = fso.GetFolder(fpath & "\").Files.Count
  814.     t_br = 0
  815.     For Each fl In fls
  816.         k = k + 1
  817.         lv.ListItems.Add k, fl.path, fl.Name, k, k
  818.         sz = fl.Size
  819.         jd = ""
  820.         If sz > 1024 Then
  821.             sz = sz / 1024
  822.             If sz > 1024 Then
  823.                 sz = sz / 1024
  824.                 If sz > 1024 Then
  825.                     sz = sz / 1024
  826.                     If sz > 1024 Then
  827.                         sz = sz / 1024
  828.                         jd = "TB"
  829.                     Else
  830.                         jd = "GB"
  831.                     End If
  832.                 Else
  833.                     jd = "MB"
  834.                 End If
  835.             Else
  836.                 jd = "KB"
  837.             End If
  838.         Else
  839.             sz = sz / 1024
  840.             jd = "KB"
  841.         End If
  842.         sz = Round(sz, 2) & " " & jd
  843.         tp = fl.Type
  844.         kr = fl.DateCreated
  845.         mn = fl.DateLastModified
  846.         ot = fl.DateLastAccessed
  847.         att = fl.Attributes
  848.         lv.ListItems(k).SubItems(1) = sz
  849.         lv.ListItems(k).SubItems(2) = tp
  850.         lv.ListItems(k).SubItems(3) = kr
  851.         lv.ListItems(k).SubItems(4) = mn
  852.         lv.ListItems(k).SubItems(5) = ot
  853.         lv.ListItems(k).SubItems(6) = att
  854.         t_br = t_br + 1
  855.         sbStatusBar.Panels(1).Text = "Files: " & t_br & "/" & broj_f
  856.     Next
  857.     sbStatusBar.Panels(1).Text = ""
  858.     act_dir = tv.SelectedItem.FullPath
  859. end_:
  860.     Screen.MousePointer = 0
  861. End If
  862. End Sub
  863.  
  864. Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  865. Unload us
  866. End Sub
  867.  
  868. Private Sub Form_Resize()
  869. If Me.WindowState <> 1 Then
  870. If Me.Height < 6105 Then
  871.     Me.Height = 6105
  872. End If
  873. If Me.Width < 12420 Then
  874.     Me.Width = 12420
  875. End If
  876. x = Me.ScaleWidth / 2.913876
  877. tv.Width = x
  878. lv.Left = tv.Left + tv.Width
  879. lv.Width = Me.ScaleWidth - tv.Width
  880. tv.Top = tbr.Height
  881. lv.Top = tv.Top
  882. tv.Height = Me.ScaleHeight - tbr.Height - sbStatusBar.Height
  883. lv.Height = tv.Height
  884. End If
  885. End Sub
  886.  
  887. Private Sub lv_AfterLabelEdit(Cancel As Integer, NewString As String)
  888. On Error Resume Next
  889. Dim fso As New FileSystemObject
  890. If Right(lv.SelectedItem.ListSubItems(2).Text, 2) = "  " Then
  891.     fldr_ = 1
  892. Else
  893.     fldr_ = 0
  894. End If
  895.  
  896. fd = Left(mem_ln, InStrRev(mem_ln, "\"))
  897. mem_nn = fd & NewString
  898. If InStr(1, NewString, "\") > 0 Or InStr(1, NewString, "/") > 0 Or InStr(1, NewString, ":") > 0 Or InStr(1, NewString, "*") > 0 Or InStr(1, NewString, "?") > 0 Or InStr(1, NewString, """") > 0 Or InStr(1, NewString, "<") > 0 Or InStr(1, NewString, ">") > 0 Or InStr(1, NewString, "|") > 0 Then
  899.     GoTo err_:
  900. Else
  901.     If fldr_ = 1 Then
  902.         fso.GetFolder(mem_ln).Name = NewString
  903.     Else
  904.         fso.GetFile(mem_ln).Name = NewString
  905.     End If
  906. End If
  907. If Err > 0 Then
  908. err_:
  909.     Cancel = True
  910.     MsgBox "Error !!!" & vbCrLf & "Name contains char(s): \ / : * ? "" < > |", vbCritical, "Rename"
  911. Else
  912.     lv.SelectedItem.Key = mem_nn
  913. End If
  914. End Sub
  915.  
  916. Private Sub lv_BeforeLabelEdit(Cancel As Integer)
  917. mem_ln = lv.SelectedItem.Key
  918. End Sub
  919.  
  920. Private Sub lv_DblClick()
  921. On Error GoTo end_:
  922. If Right(lv.SelectedItem.SubItems(2), 2) = "  " Then
  923.     tv.Nodes(tv.SelectedItem.FullPath & "\" & lv.SelectedItem).Selected = True
  924.     nazad.AddItem tv.SelectedItem.FullPath, 0
  925.     tv.SelectedItem.EnsureVisible
  926.     tv.SelectedItem.Expanded = True
  927.     Me.caption = tv.SelectedItem
  928.     get_i
  929. Else
  930.     OpenFile1 frmExplore.lv.SelectedItem.Key, Me.hWnd
  931. End If
  932. end_:
  933. End Sub
  934.  
  935. Private Sub lv_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
  936. If Button = 2 Then
  937.     PopupMenu us.izbor
  938. End If
  939. End Sub
  940.  
  941. Private Sub mnu_FileExit_Click()
  942. End
  943. End Sub
  944.  
  945. Private Sub optabout_Click()
  946. MsgBox "Created by Edin Topalovic" & vbCrLf & "Email: topalovic.e@gmail.com", vbInformation
  947. End Sub
  948.  
  949. Private Sub osvjezi_Click()
  950. osvjezi_1
  951. End Sub
  952.  
  953. Sub osvjezi_1()
  954. If tv.SelectedItem.Image = "drive" Then
  955.     osvjezi_11
  956. Else
  957. dio_k = tv.SelectedItem.Key
  958. If tv.SelectedItem.Expanded = True Then
  959.     exp_ = 1
  960. End If
  961. root_ = Left(dio_k, InStr(1, dio_k, "\") - 1)
  962. tv.Nodes(root_).Selected = True
  963. osvjezi_11
  964. p = 0
  965. For i = 1 To Len(dio_k)
  966.     znak = Mid(dio_k, i, 1)
  967.     If znak = "\" Then
  968.         If p = 0 Then
  969.             p = 1
  970.         Else
  971.             dio = Left(dio_k, i - 1)
  972.             tv.Nodes(dio).Expanded = True
  973.         End If
  974.     End If
  975. Next i
  976. tv.Nodes(dio_k).Selected = True
  977. If exp_ = 1 Then
  978.     tv.Nodes(dio_k).Expanded = True
  979. End If
  980. End If
  981. End Sub
  982.  
  983. Sub osvjezi_11()
  984. On Error Resume Next
  985. duse = True
  986. If tv.Nodes(1).Selected = True Then
  987.     tbr.Buttons(3).Enabled = False
  988. End If
  989. If tv.SelectedItem.Expanded = True Then
  990.         exp_ = 1
  991. End If
  992. If tv.SelectedItem.Image = "drive" Then
  993.     dio_k = tv.SelectedItem.Key
  994.     dio_t = tv.SelectedItem.Text
  995.     lind = tv.SelectedItem.Index
  996.     tv.SelectedItem.Selected = False
  997.     tv.Nodes.Remove lind
  998.     tv.SelectedItem.Selected = False
  999.     tv.Nodes.Add , , dio_k, dio_t, "drive", "drive"
  1000.     
  1001.     tv.Nodes(dio_k).Selected = True
  1002.     
  1003.     Set fldrs1 = fso.GetFolder(tv.SelectedItem.FullPath & "\").SubFolders
  1004.         For Each fldr1 In fldrs1
  1005.             tv.Nodes.Add dio_k, tvwChild, fldr1.path, fldr1.Name, 1, 2
  1006.             Set fldrs = fso.GetFolder(fldr1.path & "\").SubFolders
  1007.             For Each fldr In fldrs
  1008.                 tv.Nodes.Add fldr1.path, tvwChild, fldr.path, fldr.Name, 1, 2
  1009.                 
  1010.             Next
  1011.         Next
  1012. Else
  1013.     
  1014.     dio_k = tv.SelectedItem.Key
  1015.     dio_t = tv.SelectedItem.Text
  1016.     root_ = Left(dio_k, InStrRev(dio_k, "\") - 1)
  1017.     tv.Nodes.Remove tv.SelectedItem.Index
  1018.     tv.Nodes.Item(root_).Selected = True
  1019.     tv.Nodes.Add root_, tvwChild, dio_k, dio_t, 1, 2
  1020.     tv.Nodes.Item(root_).Sorted = True
  1021.     tv.Nodes(dio_k).Selected = True
  1022.     
  1023.     Set fldrs = fso.GetFolder(tv.SelectedItem.Key & "\").SubFolders
  1024.             For Each fldr In fldrs
  1025.                 tv.Nodes.Add tv.SelectedItem.Key, tvwChild, fldr.path, fldr.Name, 1, 2
  1026.             Next
  1027.     
  1028. End If
  1029. If exp_ = 1 Then
  1030.     tv.SelectedItem.Expanded = True
  1031. End If
  1032. duse = False
  1033. 'If tv.SelectedItem.FullPath <> old_lst Then
  1034.     naprijed.Clear
  1035.     nazad.AddItem tv.SelectedItem.FullPath, 0
  1036.     get_i
  1037.     Me.caption = tv.SelectedItem
  1038.     tbr.Buttons(3).Enabled = True
  1039. 'End If
  1040. End Sub
  1041.  
  1042. Private Sub tbr_ButtonClick(ByVal Button As MSComctlLib.Button)
  1043. 'On Error Resume Next
  1044. If Button.Index = 1 Then
  1045.     nazad_d
  1046. ElseIf Button.Index = 2 Then
  1047.     naprijed_d
  1048. ElseIf Button.Index = 3 Then
  1049.     gore_d
  1050. ElseIf Button.Index = 5 Then
  1051.     tra₧i_d
  1052. ElseIf Button.Index = 7 Then
  1053.     premjesti_u_d
  1054. ElseIf Button.Index = 8 Then
  1055.     kopiraj_u_d
  1056. ElseIf Button.Index = 9 Then
  1057.     PopupMenu us.brisanje
  1058. ElseIf Button.Index = 11 Then
  1059.     PopupMenu us.pregled
  1060. ElseIf Button.Index = 12 Then
  1061.     cut_d
  1062. ElseIf Button.Index = 13 Then
  1063.     copy_d
  1064. ElseIf Button.Index = 14 Then
  1065.     paste_d
  1066. ElseIf Button.Index = 15 Then
  1067.     svojstva_
  1068. End If
  1069. End Sub
  1070. Sub svojstva_()
  1071. On Error Resume Next
  1072. Dim pth As String
  1073.     If ActiveControl.Name = "lv" Then
  1074.             pth = tv.SelectedItem.FullPath & "\" & lv.SelectedItem
  1075.     ElseIf ActiveControl.Name = "tv" Then
  1076.         pth = tv.SelectedItem.FullPath
  1077.     End If
  1078.     Call ShowPropWindow(pth, Me.hWnd)
  1079. End Sub
  1080.  
  1081. Private Sub tv_AfterLabelEdit(Cancel As Integer, NewString As String)
  1082. On Error Resume Next
  1083. Dim fso As New FileSystemObject
  1084. fd = Left(mem_ln, InStrRev(mem_ln, "\"))
  1085. mem_nn = fd & NewString
  1086. If InStr(1, NewString, "\") > 0 Or InStr(1, NewString, "/") > 0 Or InStr(1, NewString, ":") > 0 Or InStr(1, NewString, "*") > 0 Or InStr(1, NewString, "?") > 0 Or InStr(1, NewString, """") > 0 Or InStr(1, NewString, "<") > 0 Or InStr(1, NewString, ">") > 0 Or InStr(1, NewString, "|") > 0 Then
  1087.     GoTo err_:
  1088. Else
  1089.     fso.GetFolder(mem_ln).Name = NewString
  1090. End If
  1091. If Err > 0 Then
  1092. err_:
  1093.     Cancel = True
  1094.     MsgBox "Error !!!" & vbCrLf & "Name contains char(s): \ / : * ? "" < > |", vbCritical, "Rename"
  1095. Else
  1096.     tv.SelectedItem.Key = mem_nn
  1097. End If
  1098. End Sub
  1099.  
  1100. Private Sub tv_BeforeLabelEdit(Cancel As Integer)
  1101. mem_ln = tv.SelectedItem.Key
  1102. End Sub
  1103.  
  1104. Private Sub tv_Expand(ByVal Node As MSComctlLib.Node)
  1105. On Error Resume Next
  1106. Screen.MousePointer = 11
  1107. Set fldrs1 = fso.GetFolder(Node.FullPath & "\").SubFolders
  1108. a = fso.GetFolder(Node.FullPath & "\").SubFolders.Count
  1109. s = 0
  1110.         For Each fldr1 In fldrs1
  1111.             Set fldrs = fso.GetFolder(fldr1.path & "\").SubFolders
  1112.             
  1113.             For Each fldr In fldrs
  1114.                 tv.Nodes.Add fldr1.path, tvwChild, fldr.path, fldr.Name, 1, 2
  1115.             Next
  1116.             s = s + 1
  1117.             sbStatusBar.Panels(1).Text = "Folders: " & s & "/" & a
  1118.             If (s Mod 100) = 0 Then
  1119.                 DoEvents
  1120.             End If
  1121.         Next
  1122. sbStatusBar.Panels(1).Text = ""
  1123. Screen.MousePointer = vbDefault
  1124. End Sub
  1125.  
  1126. Private Sub tv_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
  1127. If Button = 2 Then
  1128.     PopupMenu us.izbor
  1129. End If
  1130. End Sub
  1131.  
  1132. Private Sub tv_NodeClick(ByVal Node As MSComctlLib.Node)
  1133. If tv.Nodes(1).Selected = True Then
  1134.     tbr.Buttons(3).Enabled = False
  1135. End If
  1136. If tv.SelectedItem.FullPath <> old_lst Then
  1137.     naprijed.Clear
  1138.     nazad.AddItem tv.SelectedItem.FullPath, 0
  1139.     get_i
  1140.     Me.caption = tv.SelectedItem
  1141.     tbr.Buttons(3).Enabled = True
  1142. End If
  1143. End Sub
  1144.  
  1145. Sub nazad_d()
  1146.     naprijed.AddItem nazad.List(0), 0
  1147.     tv.Nodes(nazad.List(1)).Selected = True
  1148.     If nazad.ListCount = 1 Then
  1149.     Else
  1150.     nazad.RemoveItem 0
  1151.     End If
  1152.     tv.SelectedItem.EnsureVisible
  1153.     get_i
  1154. End Sub
  1155.  
  1156. Sub naprijed_d()
  1157. On Error Resume Next
  1158.     nazad.AddItem naprijed.List(0), 0
  1159.     If nazad.ListCount = 1 Then
  1160.         naprijed.RemoveItem 0
  1161.         Exit Sub
  1162.     Else
  1163.         tv.Nodes(naprijed.List(1)).Selected = True
  1164.     End If
  1165.     naprijed.RemoveItem 0
  1166.     tv.SelectedItem.EnsureVisible
  1167.     get_i
  1168. End Sub
  1169.  
  1170. Sub gore_d()
  1171.     If tv.SelectedItem.Image = "drive" Then
  1172.         tv.Nodes(1).Selected = True
  1173.         nazad.AddItem tv.SelectedItem.FullPath, 0
  1174.         tbr.Buttons(3).Enabled = False
  1175.         tv.SelectedItem.EnsureVisible
  1176.         get_i
  1177.         Exit Sub
  1178.     End If
  1179.     fgh = Left(tv.SelectedItem.FullPath, Len(tv.SelectedItem.FullPath) - Len(tv.SelectedItem) - 1)
  1180.     tv.Nodes(fgh).Selected = True
  1181.     tv.SelectedItem.EnsureVisible
  1182.     get_i
  1183. End Sub
  1184.  
  1185. Sub tra₧i_d()
  1186.     Dim strPathToSearch As String
  1187.     If ActiveControl.Name = "lv" Then
  1188.         If Right(lv.SelectedItem.SubItems(2), 2) = "  " Then
  1189.             strPathToSearch = tv.SelectedItem.FullPath & "\" & lv.SelectedItem
  1190.         Else
  1191.             strPathToSearch = tv.SelectedItem
  1192.         End If
  1193.     ElseIf ActiveControl.Name = "tv" Then
  1194.         strPathToSearch = tv.SelectedItem.FullPath
  1195.     End If
  1196.     Call ShellExecute(Me.hWnd, "find", strPathToSearch, vbNullString, vbNullString, SW_SHOWNORMAL)
  1197. End Sub
  1198.  
  1199. Sub premjesti_u_d()
  1200.     mv.caption = "Moving..."
  1201.     mv.lokacija = get_loc
  1202.     If mv.lokacija = "" Then
  1203.         Exit Sub
  1204.     End If
  1205.     If Me.ActiveControl.Name = "tv" Then
  1206.         mv.folderi = tv.SelectedItem.FullPath
  1207.     Else
  1208.         mv.folderi = folderi
  1209.         mv.datoteke = datoteke
  1210.     End If
  1211.     mv.operacija = 0
  1212.     mv.animacija = "Kopiranje"
  1213.     izvrÜi_1
  1214. End Sub
  1215.  
  1216. Sub kopiraj_u_d()
  1217.     mv.caption = "Copying..."
  1218.     mv.lokacija = get_loc
  1219.     If mv.lokacija = "" Then
  1220.         Exit Sub
  1221.     End If
  1222.     If Me.ActiveControl.Name = "tv" Then
  1223.         mv.folderi = tv.SelectedItem.FullPath
  1224.     Else
  1225.         mv.folderi = folderi
  1226.         mv.datoteke = datoteke
  1227.     End If
  1228.     mv.operacija = 1
  1229.     mv.animacija = "Kopiranje"
  1230.     izvrÜi_1
  1231. End Sub
  1232.  
  1233. Sub cut_d()
  1234. Dim fso As New FileSystemObject
  1235.     clp.opr.move = True
  1236.     clp.opr.copy = False
  1237.     get_pth
  1238.     clp.fldrs2 = fldrs11
  1239.     clp.fls2 = fls11
  1240. End Sub
  1241.  
  1242. Sub copy_d()
  1243. Dim fso As New FileSystemObject
  1244.     clp.opr.move = False
  1245.     clp.opr.copy = True
  1246.     get_pth
  1247.     clp.fldrs2 = fldrs11
  1248.     clp.fls2 = fls11
  1249. End Sub
  1250.  
  1251. Sub paste_d()
  1252. On Error Resume Next
  1253. If clp.fldrs2 = "" And clp.fls2 = "" Then Exit Sub
  1254.     mv.folderi = clp.fldrs2
  1255.     mv.datoteke = clp.fls2
  1256.     If clp.opr.copy = True Then
  1257.         mv.caption = "Copying..."
  1258.         mv.animacija = "Kopiranje"
  1259.         mv.operacija = 1
  1260.     Else
  1261.         mv.caption = "Moving..."
  1262.         mv.animacija = "PremjeÜtanje"
  1263.         mv.operacija = 0
  1264.     End If
  1265.     mv.lokacija = lfc
  1266.     If mv.lokacija = "" Then
  1267.         Exit Sub
  1268.     End If
  1269.     izvrÜi_1
  1270. End Sub
  1271.