7,763
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
northwolves 2003-09-23
- 打赏
- 举报
Function findfile(dirpath As String, filename As String) As Boolean
findfile = True
dirpath = IIf(Right(dirpath, 1) = "\", dirpath, dirpath & "\")
If Dir(dirpath & filename) = "" Then findfile = False
End Function
findfile = True
dirpath = IIf(Right(dirpath, 1) = "\", dirpath, dirpath & "\")
If Dir(dirpath & filename) = "" Then findfile = False
End Function
easydone 2003-09-23
- 打赏
- 举报
建议使用“Dir”
xuwuyu 2003-09-23
- 打赏
- 举报
fso!
fangyds 2003-09-23
- 打赏
- 举报
用这个API：PathFileExists，因为我现在在网吧，所以不能给你具体的声明，自已到APIVIEWER一查就知道了。
viena 2003-09-23
- 打赏
- 举报
If Dir("c:\txt1.txt") = "" Then'文件不存在
Open "c:\txt1.txt" For Output As 1
'写文件
……
Else
Open "c:\txt1.txt" For Input As 1
'读文件
……
End if
Close 1
Open "c:\txt1.txt" For Output As 1
'写文件
……
Else
Open "c:\txt1.txt" For Input As 1
'读文件
……
End if
Close 1
liyd1978 2003-09-23
- 打赏
- 举报
dim fso as filesystemobject
set fso=new filesystemobject
if fso.fileexists(Filename) then
'open
else
'Create
endif
set fso=nothing
set fso=new filesystemobject
if fso.fileexists(Filename) then
'open
else
'Create
endif
set fso=nothing
viena 2003-09-23
- 打赏
- 举报
dir
