用 VB 实现 另存为时默认文件名 与 已存在的文件名重复 则提示错误

Question

就像大家用的WORD和excel那样，另存为文件时，弹出的对话框会有默认的名字，当点击保存时，软件会自行检知当前路径下是否有与默认的名字重复的文件存在，如果有会弹出提示框。而我用的软件没有这个功能，想用VB6.0自己实现。

Answer 1

你用的软件？如果是别人的软件，你用外挂的形式添加这个功能想必是有些难度的。
如果是你自己用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() 检查文件是否存在，不存在返回空串；存在返回文件信息
可根据第二个参数调整。

追问

公司的工具软件，让我升级，那如果没有该款软件的源代码，也不清楚它用什么编的怎么办？

追答

没源码那你咋升级？重新写一个？

追问

前辈用VB写过一个应用软件.exe，调用了该工具软件的部分功能。在另存为时，将默认文件名变成了（ type_当前时间_序列号）的形式。而我的任务就是实现 ，另存为时默认文件名 与 当前路径已存在的文件名重复 ，则提示错误

追答

应用软件.exe

这个软件的源码有吗？有这个的源码就好办了啊。你先看一下源码里面关于存储的代码是怎么写的，然后添加上相应的代码就可以啦。

追问



Answer 2

很容易啊，点保存时，弹出窗口，TEXT1里设置按默认的名字
保存前，用DIR检查一下是不是有这个名字，有的话用msgbox提示是否覆盖，取消不保存。

追问

公司的包装好的工具软件，让我升级，没有该款软件的源代码，怎么办？

追答

两个方法：
1、联系开发工具软件的公司，希望能改进这个功能；
2、自己重新开发；
毕竟是别人开发的，版权不是你的。

追问

前辈用VB写过一个应用软件.exe，调用了该工具软件的部分功能。在另存为时，将默认文件名变成了（ type_当前时间_序列号）的形式。而我的任务就是实现 ，另存为时默认文件名 与 当前路径已存在的文件名重复 ，则提示错误。

追答

在你上面没看到保存 type_当前时间_序列号 的形式，保存就是T.ini...
你在保存前，用DIR（"保存的目录\type_当前时间_序列号的文件"）是不是为空，为空不存在，不为空就提示就行了啊。都已经说得这么清楚了。

Answer 3

if dir(文件路径,vbnormal) >"" then
msgbox "同名文件已经存在"
else
保存文件.....
end if

Answer 4

Me.Computer.FileSystem.FileExist

追问

这是另存为文件时，弹出的对话框会有默认的名字保存的路径吗？

追答

不是，这是检测是否有同样文件存在。

追问

前辈用VB写过一个应用软件.exe，调用了该工具软件的部分功能。在另存为时，将默认文件名变成了（ type_当前时间_序列号）的形式。而我的任务就是实现 ，另存为时默认文件名 与 当前路径已存在的文件名重复 ，则提示错误。

追答

对呀，就用那个判断，如果为True，那么提示。