Need VB help

[Daimao]

I need a script to delete a certain folder in all users/start menu/programs

and it has to be language independent

thx to whoever helps me

[Daimao]

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

Edited May 6, 2008 by Daimao

[gunsmokingman]

Here is the same script except I added a check to see if the folder exists.

 Const SMP = &H17&
 Dim Fso, oShell,oFolderItem, Target
 Set oShell = CreateObject("Shell.Application")
 Set Fso = CreateObject("Scripting.FileSystemObject")
 Set oFolderItem = oShell.Namespace(SMP).Self
'/-> Replace Your_Folder_Name With The Name Of The Folder
  Target = oFolderItem.Path & "\Your_Folder_Name"
   If Fso.FolderExists(Target) Then
	Fso.DeleteFolder(Target)
   Else
	MsgBox "This folder does not exists" & vbCrLf & Target,4128,"Missing Folder"
   End If

[Daimao]

Thank you

I don't know any VB at all so all help was welcome ^^