怎样判断一个文件是否存在?怎样彻底删除一个文件?

wuyaohua 2003-01-06 03:44:13
例如:

判断c:\file.exe存在否?

删除c:\file.exe

谢谢~
...全文
4 点赞 收藏 3
写回复
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
coward_c 2003-01-06
判断有没有用这个也好

If Dir("c:\file.exe", vbNormal) = "" Then
MsgBox ("没有这个文件啊!")
end if
回复
coward_c 2003-01-06
这样好象也可以删除,而且不是到垃圾筒

kill "c:\file.exe"
回复
czy412 2003-01-06
Dim objFSO As New Scripting.FileSystemObject
Dim objFile As Scripting.File '注释:文件对象
Dim objFolder As Folder
Dim strPath As String

strPath = "C:\"
Set objFolder = objFSO.GetFolder(strPath)

'检查目录中的文件
Dim strFileName As String, i As Integer
For Each objFile In objFolder.Files
If objFile.ShortPath, 4 = "file.exe" Then
objFile.DeleteFile "file.exe" ,true
End If
Next objFile
回复
发动态
发帖子
VB基础类
创建于2007-09-28

7451

社区成员

VB 基础类
申请成为版主
社区公告
暂无公告