VBS复制指定文件报错：指定的网络名称不再可用

看起来你在遍历网络文件夹文件时踩了个典型的网络连接坑——这个错误几乎都是因为之前获取的objFolder对象对应的网络连接已经失效，可能是共享文件夹被断开、映射驱动器掉线，或是网络波动导致连接丢包。下面给你几个针对性的解决办法：

1. 先确认网络文件夹可用性再操作 #

在尝试遍历文件前，先做一次可用性检查，避免拿着无效对象硬执行：

' 在获取objFolder前先检查文件夹是否可访问
If Not objFSO.FolderExists(strBaseFolder) Then
    WScript.Echo "警告：目标网络文件夹无法访问，请检查连接或共享状态：" & strBaseFolder
    WScript.Quit ' 或者做其他降级处理
End If

' 再获取文件夹对象
Set objFolder = objFSO.GetFolder(strBaseFolder)

如果用的是映射驱动器（比如Z:\），还可以先检查驱动器是否存在：

If Not objFSO.DriveExists("Z:") Then
    WScript.Echo "映射驱动器Z:已断开，请重新连接"
    WScript.Quit
End If

2. 重新获取Folder对象，避免缓存的无效连接 #

有时候objFolder是之前缓存的对象，哪怕网络后来恢复了，这个对象还是处于失效状态。遍历前重新获取一次，确保拿到最新的有效连接：

' 先释放旧对象（防止内存泄漏）
Set objFolder = Nothing
' 重新获取文件夹对象
Set objFolder = objFSO.GetFolder(strBaseFolder)

' 再执行遍历
For Each objFile In objFolder.Files
    ' 你的文件处理逻辑
Next

3. 给遍历逻辑加上错误捕获 #

网络环境不稳定时，哪怕一开始连接正常，遍历中途也可能掉链子。加上错误处理能让脚本更健壮，遇到错误时可重试或跳过：

On Error Resume Next ' 开启错误捕获
For Each objFile In objFolder.Files
    If Err.Number = 0 Then
        ' 正常处理文件的逻辑
        WScript.Echo "正在处理：" & objFile.Path
    Else
        WScript.Echo "访问文件出错：" & Err.Description
        Err.Clear ' 清除错误状态
        ' 尝试重新获取文件夹对象后继续
        Set objFolder = objFSO.GetFolder(strBaseFolder)
    End If
Next
On Error GoTo 0 ' 关闭错误捕获，恢复正常报错逻辑

4. 排查底层网络问题 #

如果上面的方法都不管用，就得检查网络本身了：

• 手动打开目标网络文件夹，确认能正常读写文件，排除权限变更的问题
• 如果是无线网络，换成有线连接试试，减少波动
• 检查共享文件夹所在的服务器是否正常运行，共享设置有没有被修改

另外提醒下：你的代码原本应该是用于本地文件夹的吧？本地文件夹的对象几乎不会失效，但网络文件夹完全不一样，必须把连接稳定性的考量加进去~

内容的提问来源于stack exchange，提问作者TurboCoder