Office中国论坛/Access中国论坛

标题: [求助] [打印本页]

作者: wuyuanhui 时间: 2003-12-2 21:09
标题: [求助]
各位高手请帮帮我:
如何才能检测到 “C:\AAA\ABC.TXT”的文件是否存在：如果有怎样才能删除？
要求按下一按钮时进行检测！！
先谢谢了！

作者: wuyuanhui 时间: 2003-12-2 21:23
zhengjialon版主能抽空回答我的问题吗？

作者: zhengjialon 时间: 2003-12-2 23:16
试试这个：
Private Declare Function SHFileExists Lib "shell32" Alias "#45" (ByVal szPath As String) As Long

Private Sub Command1_Click()
Dim i As Integer
i = Str$(SHFileExists(Text1.Text))
If i = 0 Then 'Str$值只有两种可能，0或者1
Text2.Text = "文件不存在"
Else
Text2 = "文件存在"
End If
End Sub

作者: zhengjialon 时间: 2003-12-2 23:17
或者这个：
通过处理打开文件错误即可知道文件是否存在：

On Error Resume Next
Set ofs=Wscript.CreateObject("Scripting.FilesystemObject")
Set oFile=ofs.GetFile("C:\MyDb.ldb")
If Err.Number = 0 Then
Wscript.echo "File found"
Else
Wscript.echo "File not found"
End If

其实在VBA里也有，帮助里找一下。

[此贴子已经被作者于2003-12-2 15:17:46编辑过]

作者: wuyuanhui 时间: 2003-12-3 00:37
谢谢zhengjialon版主回答我的问题
太谢谢了!
有空请你吃饭!

作者: andymark 时间: 2003-12-3 05:14
Dim Filename As String
Filename = "C:\AAA\ABC.TXT"
If Dir$(Filename) <> "" Then
MsgBox " 文件已存在"
End If

作者: wuyuanhui 时间: 2003-12-3 21:06
非常感谢andymark的再次回答！
你的答案更加明了
谢谢！！！

但已知文件存在，怎样才能将它用 KILL命令删除？

还希望好心人能回答！
本人不胜感激。

[此贴子已经被作者于2003-12-3 13:15:02编辑过]

作者: andymark 时间: 2003-12-3 21:44
Dim Filename As String
Filename = "C:\AAA\ABC.TXT"
If Dir$(Filename) <> "" Then
      MsgBox " 文件已存在"
      Kill Filename
      End If

作者: wuyuanhui 时间: 2003-12-3 22:13
再次感谢andymark的回答！

原来如此，怪我太笨！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)