Fix duplication ind drives

i-nex · Dec 5, 2013 · c3f4894 · c3f4894
1 parent fe0c4b4
commit c3f4894
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 4 deletions.
diff --git a/src/i-nex/.settings b/src/i-nex/.settings
@@ -71,9 +71,9 @@ File[47]=".src/Reports/MSOUND_REPORT.module:3.164"
 File[48]=".src/Reports/MPastebinit.module:16.14"
 File[49]=".src/Reports/MSYSTEM_REPORT.module:30.0"
 File[50]=".src/Reports/MKERNEL_REPORT.module:13.54"
-Active=51
 File[51]=".src/Reports/MInclude.module:62.10"
-File[52]=".src/Reports/MDRIVES_REPORT.module:50.7"
+Active=52
+File[52]=".src/Reports/MDRIVES_REPORT.module:44.33"
 Count=52
 
 [Watches]

diff --git a/src/i-nex/.src/Reports/MDRIVES_REPORT.module b/src/i-nex/.src/Reports/MDRIVES_REPORT.module
@@ -37,18 +37,21 @@ End
 Public Sub _inits()
  Dim All, All2, repcount As Integer
  DATA_RETURN = Null
- refresh()
+ 'refresh()
 
  For All2 = 1 To Finfosys.ComboBox4.Count
 
   refresh()
-  For repcount = 0 To Report.Count
+  If Finfosys.ComboBox3.Count = 0 Then
+   For repcount = 0 To Report.Count
     FReport_Gen.ProgressBar1.Value = repcount / Report.Count
     DATA_RETURN = DATA_RETURN & "\n" & Report[repcount]
     Wait 0.01
 
    refresh()
    Next
+  Endif
+
   For All = 1 To Finfosys.ComboBox3.Count
    refresh()