如何检验C:\My Document\表1.xls是否存在？请教高手如何写VBA

bfwz

如何检验C:\My Document\表1.xls是否存在？请教高手如何写VBA

wanshan

方法一：Function FileExists(filename As String) As Integer

Dim i As Integer

On Error Resume Next

i = Len(Dir$(filename))

If Err Or i = 0 Then FileExists = False Else FileExists = True

End Function



传入之参数是含完整路径之文件名称，若文件存在，则传回 -1，否则返回 0。

方法二：例：if dir("c:\windows\test.dll")="" then

msgbox "不存在"

end if

LucasLynn

1. Set fs = CreateObject("Scripting.FileSystemObject")
   
   
2. if f.FileExists("C:\My Document\表1.xls") then
   
   
3.     ......
   
   

复制代码

1. 
   
   
2. 
   
   
3. End if

复制代码

[code][/code]

[此贴子已经被作者于2005-8-1 11:30:59编辑过]