获取VBS脚本以使用网络共享位置

Option Explicit

Dim objFSO, objFile
Dim strSourcePath, strDestinationPath

' 设置源文件路径和目标文件路径
strSourcePath = "\\network_share\path\to\file.ext"
strDestinationPath = "C:\destination\path\file.ext"

' 创建文件系统对象
Set objFSO = CreateObject("Scripting.FileSystemObject")

' 检查源文件是否存在
If objFSO.FileExists(strSourcePath) Then
    ' 复制文件到目标位置
    objFSO.CopyFile strSourcePath, strDestinationPath
    WScript.Echo "文件复制成功！"
Else
    WScript.Echo "源文件不存在！"
End If

' 释放对象
Set objFSO = Nothing