Office中国论坛/Access中国论坛

标题: 请教两句代码的作用? [打印本页]

作者: yanlj518 时间: 2008-2-29 16:42
标题: 请教两句代码的作用?
Dim FileName As String

Dim imgCount As Integer

FileName = Dir("d:\pho\*.bmp")

Do While FileName <> ""

imgCount = imgCount + 1

FileName = Dir()

Loop
msgbox "共有" & imgCount &"张照片"

上面代码的作用是获得路径d:\pho\*.bmp有多少张bmp的相片。代码中黑体部分似懂非懂，不知这两句代码起什么作用？请高手注释一下，谢谢！

作者: iamee 时间: 2008-2-29 18:34
查下DIR函数就知道了
可以这么理解，第一句取此路径下第一个*.bmp格式的文件名
第二句，取下个*.bmp格式的文件名

作者: yanlj518 时间: 2008-2-29 18:47
第一句取此路径下第一个*.bmp格式的文件名
第二句，取下个*.bmp格式的文件名.
谢谢！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)