VB如何在指定地点查找指定文件名的文件是否存在

dir d as string
d=dir("e:\my photo\*.jpg")
do until d=""
msgbox "找到一个图片文件：" & d
d=dir
loop

以上代码是查找e:\my photo目录中所有jpg文件。你在此基础上修改即可。

不知道你的文件名列表怎么存的，我以字符串数组为例。如filearr
For i =0 to UBound（filearr）
if dir(filearr（i）)="" then
‘不存在
else
‘存在
end if
Next i

Dim filename As String
Dim filepath As String
Dim a As String
filename = Dir(filepath)
While filename <> ""
a = Mid(filename, 1, 4)
If IsNumeric(a) Then
'你自己的程序
Else
'你自己的程序
End If
Wend

这个可能不完善，但是思路就是根据你这个有规律的文件名，来提取文件名的前4个字符，判断是或否为数字。至于判断中文字母，可能就不需要了！

重新命名一个文件、目录、或文件夹。
Name oldpathname As newpathname
oldpathname 必要参数。字符串表达式，指定已存在的文件名和位置，可以包含目录或文件夹、以及驱动器。
newpathname 必要参数。字符串表达式，指定新的文件名和位置，可以包含目录或文件夹、以及驱动器。而由 newpathname 所指定的文件名不能存在。
说明: Name 语句重新命名文件并将其移动到一个不同的目录或文件夹中。如有必要，Name 可跨驱动器移动文件。 但当 newpathname 和 oldpathname 都在相同的驱动器中时，只能重新命名已经存在的目录或文件夹。 Name 不能创建新文件、目录或文件夹。

在一个已打开的文件上使用 Name，将会产生错误。必须在改变名称之前，先关闭打开的文件。Name 参数不能包括多字符 (*) 和单字符 (?) 的统配符。