Deleting shortcut, if present

[MCubitt]

I have a folder and subfolder with shortcuts (lnk and url) as such:

../Mine/link1.lnk
../Mine/link2.lnk
../Mine/website.url
../Mine/Technical/linkupdate.lnk

I want to write a script to delete all links in Mine and Mine/technical (lnk and url) but retain the subdirectory.

Is this possible within Windows Host script (or vbs) ? if so, help, how?!

 

[PHV]

Take a look at the FileSystemObject.

Hope This Help
PH.

 

[DFinnegan]

Try this:

Dim objFSO
Set objFSO = CreateObject("Scripting.FileSystemObject&quot

objFSO.DeleteFile(&quot;<insert path>\Mine\*.lnk&quot
objFSO.DeleteFile(&quot;<insert path>\Mine\*.url&quot

Set objFSO = Nothing
WScript.Quit

**If the file is Read Only then you will have to do this:
Const DeleteReadOnly = True
Set objFSO = CreateObject(&quot;Scripting.FileSystemObject&quot
objFSO.DeleteFile(&quot;<insert path>\Mine\*.lnk&quot, _ DeleteReadOnly