title: Delete an item in an array
body: <p>I have this code that browse all file types in VBA. It's already working but my what I want to do now is to delete the item in the array if it is one of the blocked file types.</p>
  
  <pre><code>Const exts = _
    ".ade.adp.app.asp.bas.bat.cer.chm.cmd.com.cpl.crt.csh.der.exe.fxp.gadget" &amp; _
    ".hlp.hta.inf.ins.isp.its.js.jse.ksh.lnk.mad.maf.mag.mam.maq.mar.mas.mat" &amp; _
    ".mau.mav.maw.mda.mdb.mde.mdt.mdw.mdz.msc.msh.msh1.msh2.mshxml.msh1xml" &amp; _
    ".msh2xml.ade.adp.app.asp.bas.bat.cer.chm.cmd.com.cpl.crt.csh.der.exe.fxp" &amp; _
    ".gadget.hlp.hta.msi.msp.mst.ops.pcd.pif.plg.prf.prg.pst.reg.scf.scr.sct" &amp; _
    ".shb.shs.ps1.ps1xml.ps2.ps2xml.psc1.psc2.tmp.url.vb.vbe.vbs.vsmacros.vsw" &amp; _
    ".ws.wsc.wsf.wsh.xnk."
  
  file = Application.GetOpenFilename(MultiSelect:=True, Title:="Select the files you want to zip")
  If IsArray(file) = True Then
      'Create empty Zip File
  ReDim Data(1 To UBound(file) + 1, 1 To 1)
  efCount = Empty
  
  ' filter the list
  For j = LBound(file) To UBound(file)
    ext = LCase(Mid(file(j), InStrRev(file(j), ".")))
      If InStr(1, exts, ext &amp; ".") = 0 Then  ' if not blacklisted
          count = count + 1
          Data(count, 1) = file(j)
      Else
          ReDim Preserve excludedFile(efCount)
          excludedFile(efCount) = Dir(file(j))
          efCount = efCount + 1
          file(j - 1) = file(j) 'Ive tried this and other ways bu is not working
          found = True
      End If
  Next
  </code></pre>
  
  <p>Thanks for the help.</p>