你用的软件?如果是别人的软件,你用外挂的形式添加这个功能想必是有些难度的。
如果是你自己用VB6编写的程序,则用下面的方法就可以了。
Dim strRet as string
Dim PathFileName as string
PathFileName="C:\xxx.ini"
strRet = Dir$(PathFileName, vbNormal)
If Len(strRet) <> 0 Then
MsgBox "存在"
Else
MsgBox "不存在"
End If
Dir() 检查文件是否存在,不存在返回空串;存在返回文件信息
可根据第二个参数调整。
很容易啊,点保存时,弹出窗口,TEXT1里设置按默认的名字
保存前,用DIR检查一下是不是有这个名字,有的话用msgbox提示是否覆盖,取消不保存。
if dir(文件路径,vbnormal) >"" then
msgbox "同名文件已经存在"
else
保存文件.....
end if
Me.Computer.FileSystem.FileExist