| |
soumya_bhatta
Posts: 1
Score: 0
Joined: 10/1/2008
Status: offline
|
I am getting dreaded 800A0046 Permission Denied error while moving folders over network. I can use the same script with no problem for movng from the source server. I am running the script rdcing into the source server. Here is what I tried to for searching the forum. Entered 800A0046 in the search option and arrived at this: http://www.visualbasicscript.com/searchpro.aspx?phrase=800A0046&author=&forumid=ALL&topicreply=both&message=body&timeframe=%3E&timefilter=0&language=single&top=300&criteria=AND&submitbutton=+OK+ For relevant moveFolder, I checked the following post: http://www.visualbasicscript.com/m_54788/mpage_1/key_800A0046/tm.htm#54788 & http://www.visualbasicscript.com/m_64541/mpage_1/key_800A0046/tm.htm#64541 Here is my simple script. Tried to hide server names: ===================================================================== Option Explicit 'On Error Resume Next Dim objFSO Dim moveFolderPath Dim moveFolderName Dim moveFolderNamewithPath Dim archivePath Dim archiveFlderNamewithPath moveFolderPath = "C:\SavedBuilds\_PendingHotfixes\Completed Hotfixes\" moveFolderName = "SESMonitoringWeb__Code_HF1988_ONE_TIME_HOTFIX" archivePath = "\\myServer\myShare$\Folder1\SubFolder1\" moveFolderNamewithPath = moveFolderPath & moveFolderName archiveFlderNamewithPath = archivePath & moveFolderName WScript.Echo moveFolderNamewithPath WScript.Echo archiveFlderNamewithPath set objFSO = CreateObject("Scripting.FileSystemObject") objFSO.MoveFolder moveFolderNamewithPath,archiveFlderNamewithPath WScript.Echo "Folder Moved Successfully" ===================================================================== I have checked the permissions on the destination and the domain account that I rdced onto the source server has "Full Control" permission on the destination. What am I missing?
|
|