找出文件是否存在。
函數IsExistFile(ByRef strDir為字符串，ByRef fileName為字符串)
將s作為字符串變暗
If (Right(strDir，1)& lt；& gt" \ ")那麽
strDir = strDir & amp"\"
如果…就會結束
s = dir(strDir & amp；文件名，VB archive+VB directory+VB hidden+VB normal+VB readonly+VB system)
if(s & lt；& gt”)然後呢
IsExistFile = fileName
其他
IsExistFile = " None "
如果…就會結束
結束功能
參數描述strDir是文件夾路徑，fileName是文件名。
使用示例:只需在壹個單元格中輸入= isexitfile(" E:\ doc "，B2)；如果它不存在，它將返回到無；如果存在，它將返回B2的文件名。路徑和文件名可以直接用作字符串或引用單元格的內容。