How can I delete all of the wallpapers in the walls dir...?

[Cobra_1_Stas]

in the WINDOWS\Web\Wallpaper?

[gunsmokingman]

Try this VBS Script

Save As DeleteWallpapers.vbs

strComputer = "."
 Dim Act, Fso, DelWallpaper
  Set Act = CreateObject("Wscript.Shell")
  Set Fso = CreateObject("Scripting.FileSystemObject")
  DelWallpaper  = Act.ExpandEnvironmentStrings("%SystemRoot%\Web\Wallpaper")
'/-> WMI QUERRY
  Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
  Set colFileList = objWMIService.ExecQuery _
 ("ASSOCIATORS OF {Win32_Directory.Name='" & DelWallpaper & "'} Where ResultClass = CIM_DataFile")
  Dim colFileList, objFile
'/-> LOOP THAT USES THE WMI QUERRY FOR THE WINDOW\WALLPAPER\WEB
	For Each objFile In colFileList
	  Fso.DeleteFile(objFile.Name)
	Next

[Cobra_1_Stas]

where to put the file?

and it deletes all the files in folder or the folder?

[gunsmokingman]

The first script only deletes the contents of the wallpaper folder.

It can be ran from any spot on the local computer.

This script delete the folder and all it contents, this can be ran from

any spot on the local computer.

Save as RemoveWallpaperFolder.vbs

Dim Act, Fso, Wallpaper
  Set Act = CreateObject("Wscript.Shell")
  Set Fso = CreateObject("Scripting.FileSystemObject")
  Wallpaper  = Act.ExpandEnvironmentStrings("%SystemRoot%\Web\Wallpaper")
  Fso.DeleteFolder(Wallpaper), True

[Cobra_1_Stas]

Thanks, but I found easier way:

DEL "%systemroot%\Web\Wallpaper\*.jpg"

=))

[Yzöwl]

This version should work for any 'non fresh' install, for that folder too!

@ECHO OFF
PUSHD %SYSTEMROOT%\Web\Wallpaper &&(
  FOR %%? IN (BMP DIB GIF HTM JPE JPG PNG) DO (DEL/Q "*.%%?")
  POPD)
GOTO :EOF

<Edit>

I say 'that folder' because it isn't the only location used for backgrounds

</Edit>

Edited June 13, 2006 by Yzöwl