问一个关于DIR的问题，谢谢

Question

Private Sub Command1_Click()
Dim mypath, myname
mypath = "d:\"
myname = Dir(mypath, vbDirectory)
Do While myname <> ""
If (GetAttr(mypath & myname) And vbDirectory) Then
Print mypath & myname
End If
myname = Dir()
Loop
End Sub这个是读取D盘中有哪些文件夹并把它们的地址打印出来，但是如果我D盘中有3张JPG图片，我想把这三张JPG图片的地址打印出来应该把vbDirectory改为什么

Answer 1

d盘中没有子文件夹，只有几张JPG图片，如何读取地址

Answer 2

Private Sub Command1_Click() 
Dim mypath, myname 
mypath = "d:\" 
myname = Dir(mypath & "*.*") 
Do While myname <> "" 
Print mypath & myname 
myname = Dir() 
Loop 
End Sub