Do While循环解决思路

2012-02-05

Do While循环VBScript codesDir Dir(c:\test\*.xls)Do While Len(sDir)iFiles iFiles + 1ReDim Pres

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

人家的源码,请问这个循环的条件怎么解释啊？

[解决办法]
sDir没有内容的时候结束循环
[解决办法]
0一般代表false，即不满足循环条件。

VB code

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

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