Copying a shortcut to a new destination, Using VBS

[KiaKia]

Hi,
I have a shortcut alreay created with modifies propertiesto address a MS Access application.
What I need to do is copying this shortcut to a new destination like Desktop, using a VBScript.
PLease let me know your comments.

THanks,
Kia

 

[wvdba]

how about this:

 Set objFSO = CreateObject("Scripting.FileSystemObject")             
objfso.CopyFile "c:\source_file", "c:\target_file"

 

[jet042]

You need to use either of the Scripting.FileSystemObject methods Copy() or CopyFile(). Copy() can copy both files and folders, but only one at a time while CopyFile() can only copy files but can move multiple files with one operation. Here's some quick and dirty code that you'll need to change for your environment.

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set MyFile = objFSO.GetFile([YourFileName])
MyFile.Copy ([YourFileTarget])

 

[jet042]

Ha, and now you have examples of two different options. TMTOWTDI.

 

[KiaKia]

Hi,
I already tried both methods, they work to copy a file but not a shortcut. Even if I try to copy a file without mentioning its extention it is not working.
Should I add any extention to my shortcut name?

Thanks,
Kia

 

[Skie]

Shortcuts usually have the extension of .lnk.