Dim jName As String, k As Integer
jName = Dir("d:\pic\")   '找寻第一个文件
Do While Len(jName)
  If LCase(Right(jName, 3)) = "jpg" Then '如果后缀是 jpg
    k = k + 1 '计数器＋1
    FileCopy "d:\pic\" & jName, "d:\newpic\" & Right("000" & k, 4) & ".jpg"
  End If
  DoEvents
  jName = Dir ' 查找下一个文件
Loop

[quote]If LCase(Right(jName, 3)) = "jpg" Then '如果后缀是 jpg[/quote]
如果后缀名是.ajpg的话，也会认为是jpg文件.

可以用right$(jName,len(jName) -instrrev(jName,"."))来取得后缀名

1楼的代码有问题  
程序运行后要能读取文件夹d:\pic\下所有子文件夹下的JPG文件，d:\pic\有很多子文件夹

[quote][quote]If LCase(Right(jName, 3)) = "jpg" Then '如果后缀是 jpg[/quote]
如果后缀名是.ajpg的话，也会认为是jpg文件.

可以用right$(jName,len(jName) -instrrev(jName,"."))来取得后缀名
[/quote]

改成：If LCase(Right(jName, 4)) = ".jpg" Then '如果后缀是 .jpg
完美解决问题