Copying to all users desktop

[redlair]

I am still having problems copying a file(.lnk) to the all users desktop. Acualy I get the same error when copying to any profile folder. The OS is XP and the error is "Permission denied". All I am doing is a simple Fso.Copyfile, I do not understand. I can copy to other folders on in the system.

'''''''''''''''''''''''''''''''''''''''''''''''''''

Dim FSO, WshShell, StrDesktop, MyFile

Set FSO =CreateObject("scripting.FileSystemObject")

Set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
FSO.CopyFile "C:\Microtype_Network.lnk", strDesktop

wsh.echo StrDesktop

'Set MyFile = fso.GetFile("L:\Microtype_Network.lnk")
'MyFile.Copy ("C:\Documents and Settings\All Users\Desktop")

 

[tsuji]

>[tt]FSO.CopyFile "C:\Microtype_Network.lnk", strDesktop[/tt]
[tt]FSO.CopyFile "C:\Microtype_Network.lnk", strDesktop [red]& "\"[/red][/tt]
In case it fails still, make sure that if the destination exists before copyfile, that file is not having read-only attribute. If it does, either delete it or eliminate the read-only attribute before doing the copyfile. If it is a general worry, script this operation as well.