VB怎样判断一个程序是否存在

[ltolll]

我想用我的程序判断一个文件是否存在（比如：c:\download\coolge.htm)——要求有一个返回值——应该怎样编程。

[Chice_wxg]

这里不就是问问题的吗？有什么不能问的？ ^_^

有些问题高手看起来很简单，但对我们这些菜鸟来说不问不知道啊！

[a_geng]

我觉得应该大家交流吗

[sssoft]

'在模块最前面添加下列代码
Private Declare Function OpenFile Lib "kernel32" (ByVal lpFileName As String, lpReOpenBuff As OFSTRUCT, ByVal wStyle As Long) As Long

Const OFS_MAXPATHNAME = 128
Private Type OFSTRUCT
cBytes As Byte
fFixedDisk As Byte
nErrCode As Integer
Reserved1 As Integer
Reserved2 As Integer
szPathName(OFS_MAXPATHNAME) As Byte
End Type

Const OF_EXIST = &H4000 '判断文件是否存在的参数



'***********以下代码添加到子程序中


rc = OpenFile(Filename, Of1, OF_EXIST)
If rc < 0 Then
rc = MsgBox("文件不存在，操作无法继续", vbOK)
Exit Sub
End If

[prefix]

if dir("c:\download\coolge.html") then
MsgBox "File exist"
Else
MsgBox "Fuck you, you've deleted my file!"
End if

[bati9999]

老兄，这样的问题也好意思问！