How To Automatically Delete an Icon or Folder from the Desktop (197425)


The information in this article applies to:

  • Microsoft Visual Basic, Scripting Edition 3.0
  • the operating system: Microsoft Windows 95
  • the operating system: Microsoft Windows 98
  • the operating system: Microsoft Windows NT 4.0
  • Microsoft Internet Explorer (Programming) 5
  • Microsoft Internet Explorer (Programming) 5.5
This article was previously published under Q197425

SUMMARY

This article contains a sample VBScript file that automates the deletion of files or folders from the desktop.

Please note that if you are using Windows 95, you need to install WSH.exe from the following Web site to enable Windows Script Host:

http://msdn.microsoft.com/scripting

MORE INFORMATION

Administrators can automate the deletion of files and or folders by adding a line similar to the following in the login script: 
   Cscript \\<server>\<share>\RemoveIt.VBS //T:5 //B
Where <server> is the name of the server and <share> is the name of the share.

//T:5 Terminates the script after 5 seconds if it is still running.

//B Tells the script to run in non-interactive mode.

Sample Code

Using a text editor, create a VBScript file called RemoveIt.vbs with the following lines: 
   '-----------------------------------------------------------------------
   ' For Windows 95 Windows Script Host must be installed.
   ' The following VBScript sample will delete a file called Sample.txt and
   ' a folder called "Sample Folder" from the desktop.
   ' NOTE: To view the results of this script create a file called
   ' "Sample.txt" and a folder called "Sample Folder" on your desktop
   ' before you run the script.
   ' ----------------------------------------------------------------------
   Dim WSHShell, DesktopPath
   Set WSHShell = WScript.CreateObject("WScript.Shell")
   DesktopPath = WSHShell.SpecialFolders("Desktop")
   ' ON ERROR RESUME NEXT prevents error messages from appearing.
   ' Useful if the file or folder might have already been removed.
   on error resume next
   Icon = DesktopPath & "\sample.txt"
   Folder = DesktopPath & "\sample folder"
   Set fs = CreateObject("Scripting.FileSystemObject")
   Set A = fs.GetFile(Icon)
   A.Delete
   set B = fs.GetFolder(folder)
   B.Delete
   WScript.Quit

REFERENCES

For additional information on Windows Script Host and VBScript Language Reference, please see the following Web site:

http://msdn.microsoft.com/scripting

Modification Type:MinorLast Reviewed:6/29/2004
Keywords:kbAutomation kbhowto KB197425
©2004 Microsoft Corporation. All rights reserved.