7,763
社区成员
发帖
与我相关
我的任务
分享如何判断一个文件是否存在,如果存在就删除重建,不存在就建立
在app.path下
判断一个文件aaa.xls是否存在
如果不存在就删
如果存在就那一个名为aaa.xls文件
判断一个文件aaa.xls是否存在
如果不存在就删
如果存在就那一个名为aaa.xls文件
...全文
请发表友善的回复…
发表回复
刘建 2005-09-27
- 打赏
- 举报
I Love you
刘建 2005-09-27
- 打赏
- 举报
谢谢
还有就是创建文件了!
如何创建aaa.xls???
还有就是创建文件了!
如何创建aaa.xls???
James_zhjian 2005-09-27
- 打赏
- 举报
引用 Microsoft Scripting Runtime
我记得大概是
我记得大概是
刘建 2005-09-27
- 打赏
- 举报
James_zhjian(听箫小筑) 你引用了什么呀?
James_zhjian 2005-09-27
- 打赏
- 举报
不存在怎么删除？？？反正上面的判断文件存在的代码已经给了，删除文件的代码也有了，自己看着办
刘建 2005-09-27
- 打赏
- 举报
jiemupig(伦涯飘)
你引用了什么呀???
我的File没有定义
你引用了什么呀???
我的File没有定义
刘建 2005-09-27
- 打赏
- 举报
你们要引用什么吗???
「已注销」 2005-09-27
- 打赏
- 举报
If Not File.FileExists(App.Path & "\AAA.xls") Then
else
End If
else
End If
starlwg 2005-09-27
- 打赏
- 举报
strfile=aaa.xls
If Dir(strFile) <> "" Then Kill (strFile)
If Dir(strFile) <> "" Then Kill (strFile)
刘建 2005-09-27
- 打赏
- 举报
错了
我是说当文件不存在时就删除该文件,并且重新建立
当文件存在时就重新建立!!
如何判断 文件 存在与不存在
如何删除文件
如何建立文件
我是说当文件不存在时就删除该文件,并且重新建立
当文件存在时就重新建立!!
如何判断 文件 存在与不存在
如何删除文件
如何建立文件
James_zhjian 2005-09-27
- 打赏
- 举报
删除文件用kill
James_zhjian 2005-09-27
- 打赏
- 举报
Dim fs As New Scripting.FileSystemObject
If fs.FileExists(FileDir) = False Then
endif
If fs.FileExists(FileDir) = False Then
endif
James_zhjian 2005-09-27
- 打赏
- 举报
如果不存在就删
如果存在就那一个名为aaa.xls文件
什么啊，不存在就删除？？？？
如果存在就那一个名为aaa.xls文件
什么啊，不存在就删除？？？？
孙泳勇 2005-09-27
- 打赏
- 举报
用Ｉ／Ｏ接口
open app.path +"\"+"aaa.xls"for output as #1
write #1,str 'str 为你要保存的内容
close #1
open app.path +"\"+"aaa.xls"for output as #1
write #1,str 'str 为你要保存的内容
close #1
James_zhjian 2005-09-27
- 打赏
- 举报
Dim fDocument As New FileSystemObject
fDocument.CreateTextFile "c:\123.xls"
fDocument.CreateTextFile "c:\123.xls"
