请教两句代码的作用?

yanlj518

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

查下DIR函数就知道了
可以这么理解，第一句取此路径下第一个*.bmp格式的文件名
第二句，取下个*.bmp格式的文件名

yanlj518

第一句取此路径下第一个*.bmp格式的文件名
第二句，取下个*.bmp格式的文件名.
谢谢！