VB6:在网络共享中复制文件

我正在尝试将可执行文件当前文件夹中的文件复制到网络共享

我使用了以下代码，但是如果文件存在，它将不会替换它。如果它能询问用户是否要更换，那就太好了

 Set oFSO = CreateObject("Scripting.FileSystemObject")
 oFSO.GetFile("c:\file.txt").Copy "\\server\sharename\", True

---

您必须构建自己的逻辑来检查文件是否存在，并在此基础上手动启动消息框。您可以使用该函数检查文件是否存在。

您必须构建自己的逻辑来检查文件是否存在，并根据该逻辑手动弹出消息框。您可以使用该函数检查文件是否存在。

您的代码示例适用于复制文件。您的网络共享可能正在拒绝访问

仅供参考，还有一种替代方法-使用如下文件副本：

FileCopy <source file>, <destination file>

FileCopy，

它将在不提示的情况下覆盖目标。如果您想提示，我可以想出两种方法：

按照Gavin的建议使用，并询问用户是否要覆盖

为此，请使用Windows内置的功能。听起来这可能是你最好的选择。当文件复制时，API将显示一个带有取消按钮的进度对话框。它还将提示覆盖。使用的对话框与Windows资源管理器使用的对话框相同。为wFunc使用FOU副本；我不认为你需要在FFLAG中设置任何标志，但可能会有一些有趣的地方。将pFrom/pTo设置为源/目标文件/目录，将hwnd设置为所有者窗口（如果没有，则设置为0）。结构中的所有其他内容都可以为NULL/0/空

---

您的代码示例适用于复制文件。您的网络共享可能正在拒绝访问

仅供参考，还有一种替代方法-使用如下文件副本：

FileCopy <source file>, <destination file>

FileCopy，

它将在不提示的情况下覆盖目标。如果您想提示，我可以想出两种方法：

按照Gavin的建议使用，并询问用户是否要覆盖

为此，请使用Windows内置的功能。听起来这可能是你最好的选择。当文件复制时，API将显示一个带有取消按钮的进度对话框。它还将提示覆盖。使用的对话框与Windows资源管理器使用的对话框相同。为wFunc使用FOU副本；我不认为你需要在FFLAG中设置任何标志，但可能会有一些有趣的地方。将pFrom/pTo设置为源/目标文件/目录，将hwnd设置为所有者窗口（如果没有，则设置为0）。结构中的所有其他内容都可以为NULL/0/空

---

注意，实际上它确实会替换，只需再等10秒。注意，实际上它确实会替换，只需再等10秒。

FileCopy

如果源文件以共享读取方式打开，则不起作用。FSO工作正常。

FileCopy

如果源文件以共享读取方式打开，则无法工作。FSO工作正常。