This should work then Const SMP = &H17& Set oShell = CreateObject("Shell.Application") Dim fso Set fso = CreateObject("Scripting.FileSystemObject") Set oFolderItem = oShell.Namespace(SMP).Self fso.DeleteFolder oFolderItem.Path & "\RA", true
Just using xp pro sp3(dutch language) if i don't add the \ after the name of the shortcut folder it simply won't work always acces denied do these scripts still work on vista btw?
Thanks for the help one more question to move/delete multiple shortcuts do i just copy the last two lines and change the filenamùe or can i put all the filesnames between "'s with ,'s <Edit> </Edit>
create a shortcut to shutdown.exe in system32 folder and add the appropriate parameter -i Display GUI interface, must be the first option -l Log off (cannot be used with -m option) -s Shutdown the computer -r Shutdown and restart the computer -a Abort a system shutdown -m \\computername Remote computer to shutdown/restart/abort -t xx Set timeout for shutdown to xx seconds -c "comment" Shutdown comment (maximum of 127 characters) -f Forces running applications to close without warning -d [p]:xx:yy The reason code for the shutdown u is the user code p is a planned shutdown code xx is the major reason code (positive integer less than 256) yy is the minor reason code (positive integer less than 65536)
what would i need to change in that script to move the shortcuts instead of deleting them? i want shortcuts from c:/docs and sett/user/desktop to desktop/folder