Do While循环解决思路

Do While循环

VBScript code

sDir = Dir("c:\test\*.xls")Do While Len(sDir)    iFiles = iFiles + 1    ReDim Preserve sFiles(1 To iFiles)    ReDim Preserve sFileNames(1 To iFiles)    sFiles(iFiles) = sPath & sDir    sFileNames(iFiles) = sDir    sDir = DirLoop

VB code

Do While 0    Debug.Print “0”:Exit DoLoopDo While 1    Debug.Print “1”:Exit DoLoop
[解决办法]
即使能用,可读性也极差
[解决办法]
探讨


Len(sDir)返回的是数值啊，能作为条件吗？