在數組中添加一個文件名

Question

我有這個代碼獲取所有文件類型。那麼如果它在數組中有擴展名，它應該被存儲在excludedFile數組中，並且將在執行後顯示。

Dim excludedFile() as String 
Const exts = _ 
    ".ade.adp.app.asp.bas.bat.cer.chm.cmd.com.cpl.crt.csh.der.exe.fxp.gadget" & _ 
    ".hlp.hta.inf.ins.isp.its.js.jse.ksh.lnk.mad.maf.mag.mam.maq.mar.mas.mat" 

Dim file As Variant 
file = Application.GetOpenFilename("All Files, *.*", , "Select File", , True) 

ReDim data(1 To UBound(file) + 1, 1 To 1) 

' filter the list 
For i = LBound(file) To UBound(file) 
    ext = LCase(Mid(file(i), InStrRev(file(i), "."))) 
    If InStr(1, exts, ext & ".") = 0 Then ' if not blacklisted 
    count = count + 1 
    data(count, 1) = file(i) 
    Else 'I've tried this but returns Subscript out of range error 
    excludedFile(UBound(excludedFile)) = file(i) 
    ReDim Preserve excludedFile(1 To UBound(excludedFile) + 1) As String 
    found = true 
    End If 
Next 
if found then 
    MsgBox Join(excludedFile, vbCrLf) 
end if 

任何幫助表示讚賞。謝謝。

Answer 1

不是最優雅的方式，但工作

Const exts = _ 
    ".ade.adp.app.asp.bas.bat.cer.chm.cmd.com.cpl.crt.csh.der.exe.fxp.gadget" & _ 
    ".hlp.hta.inf.ins.isp.its.js.jse.ksh.lnk.mad.maf.mag.mam.maq.mar.mas.mat" 


Dim file As Variant 
file = Application.GetOpenFilename("All Files, *.*", , "Select File", , True) 

'Dim your Array and a Counter 
Dim excludedFile() As String 
Dim efCount As Integer 

ReDim Data(1 To UBound(file) + 1, 1 To 1) 

efCount = 0 
' filter the list 
For i = LBound(file) To UBound(file) 
    ext = LCase(Mid(file(i), InStrRev(file(i), "."))) 
    If InStr(1, exts, ext & ".") = 0 Then ' if not blacklisted 
    Count = Count + 1 
    Data(Count, 1) = file(i) 
    Else 'I've tried this but returns Subscript out of range error 

    'Use counter to access array 
    ReDim Preserve excludedFile(efCount) 
    excludedFile(efCount) = file(i) 
    efCount = efCount + 1 

    found = True 
    End If 
Next 

If found Then 
    MsgBox Join(excludedFile, vbCrLf) 
End If