[求助]

wuyuanhui

各位高手请帮帮我:
如何才能检测到 “C:\AAA\ABC.TXT”的文件是否存在：如果有怎样才能删除？
要求按下一按钮时进行检测！！
先谢谢了！

wuyuanhui

zhengjialon版主能抽空回答我的问题吗？

zhengjialon

试试这个：
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

或者这个：
通过处理打开文件错误即可知道文件是否存在：

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

谢谢zhengjialon版主回答我的问题
太谢谢了!
有空请你吃饭!

andymark

Dim Filename As String
Filename = "C:\AAA\ABC.TXT"
If Dir$(Filename) <> "" Then
        MsgBox " 文件已存在"
        End If

wuyuanhui

非常感谢andymark的再次回答！
你的答案更加明了
谢谢！！！

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

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

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

andymark

Dim Filename As String
Filename = "C:\AAA\ABC.TXT"
If Dir$(Filename) <> "" Then
        MsgBox " 文件已存在"
        Kill Filename
        End If

wuyuanhui

再次感谢andymark的回答！

原来如此，怪我太笨！