关于多选文件和单选的文件的处理问题

lngFlags = ahtOFN_ALLOWMULTISELECT Or ahtOFN_EXPLORER
strFilter = ahtAddFilterItem(strFilter, "Nokia Log Files (*.Log)", "*.Log")
strInputFileName = ahtCommonFileOpenSave(InitialDir:="D:\Siemens Tools\数据库", _
        Filter:=strFilter, FilterIndex:=3, Flags:=lngFlags, _
        DialogTitle:="Plese Select Nokia Log Files!")
filename = strInputFileName
            Refresh
  If lngFlags And ahtOFN_ALLOWMULTISELECT Then
        If IsArray(strInputFileName) Then    '此语句只能进行数组类型判断,,如果是多文件就执行后面的,不能的话就不执行!!现在我的想法是如果只选择了一个文件也同样要执行后面的,怎么办?
    For j = 0 To UBound(strInputFileName)
        filename = strInputFileName(j)
        tempfile = currdir + "\bscdb.txt"
        FileCopy filename, tempfile
        file(j) = filename   
        hfile(j) = FreeFile
    Open file(j) For Input Access Read Shared As hfile(j)
Do While Not EOF(hfile(j))
    Line Input #hfile(j), strLine

           .

           .

           .