Я пытаюсь автоматизировать загрузку файла в домашние каталоги моих пользователей, но застрял в ошибке "Отказано в доступе" - здесь появляется строка 6 при вызове CopyFile.
Существуют и другие части скрипта (не показаны), которые создают и копируют содержимое папки, используя одни и те же исходные и целевые каталоги, и они отлично работают. Это только когда я использую CopyFile, что это терпит неудачу.
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FileExists("H:\Minecraft\.minecraft\options.txt") Then
fso.CopyFile "C:\Minecraft\options.txt", "H:\Minecraft\.minecraft\"
End If
Set fso = Nothing
H:
- домашний сетевой каталог, в котором текущий пользователь имеет полные права на чтение/запись.
Я попытался добавить/удалить завершающие косые черты из путей, добавить "options.txt"
к пути назначения, удалить аргумент false
... Не уверен, что еще можно попробовать. Есть мысли?
К вашему сведению, этот фрагмент кода, который поступает непосредственно перед ошибочным битом, описанным выше, прекрасно выполняется каждый раз:
If Not fso.FolderExists("H:\Minecraft\.minecraft\bin\") Then
If Not fso.FolderExists("H:\Minecraft\.minecraft\") Then
fso.CreateFolder("H:\Minecraft\.minecraft\")
End If
fso.GetFolder("C:\Minecraft\bin\").Copy "H:\Minecraft\.minecraft\"
End If