首先声明 调用api
'判断输入参数是否为文件或文件夹
Private Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" (ByVal pszPath As String) As Long
然后找文件
if PathFileExists(txtFileName) = False Then '文件不存在
if GetAttr(txtFileName) = vbDirectory then '输入是文件夹