关于数组和非数组的处理

huangyz_xy

在选择文件的时候可以进行多选和单选,那么有一个问题,如果是多选的话就按照数组的语句执行,如果是单选的话同样要执行,怎么办?
If IsArray(strInputFileName) Then
        For J = 0 To UBound(strInputFileName)
            filename = strInputFileName(J)
        file(J) = filename
        hfile(J) = FreeFile
        Open file(J) For Input Access Read Shared As hfile(J)
Do While Not EOF(hfile(J))
        .
        .
        .
loop
next j
endif
以上语句能执行选择的超过两个以上的文件,但是单个文件就不执行!我现在需要的是如果值选择一个文件,同样能执行,怎么办,请高手指点!

tmtony

可以在IF条件 加个 or 把单个的情况加进去

huangyz_xy

这样好像不行吧,后面怎么识别啊?