VB script to delete certain folders

[PTD]

Hi

I am after a VB script that will check all folders within a folder called G:\Profiles and delete those that are have the name
Username.Domain_nfrs

We have slow replication and sometimes a user profile folder gets created twice, the second time with the _nfrs appended to the folder.

I would like to delete this.

Can anyone possibly help? and wouldn't mind explaining what each part does?

Thanks

I'm new to scriptin

[PTD]

Thanks, appreciate answer but for some reason these don't take care of themselves so we end up with a few replicated files.. hebce the need to delete them, we been doing it manually so far.. but it'ss a pain!!

[PTD]

Thanks but it doesn't seem to remove the folder.

[maniac]

Try these two lines of VB script, they will remove all folders and their contents where the folder ends in _nfrs

Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFolder("G:\profiles\*_nfrs.*")

mike.

[apeo]

Heres a vbs version of the same thing:

Dim Path
Dim fso: Set fso = CreateObject("Scripting.FileSystemObject")

Path = WScript.Arguments(0)

DeleteFolders(Path)

Public Function DeleteFolders(Byval Path)
	Dim n: n = 0
	Dim Folder: Set Folder = fso.GetFolder(Path)
	DeleteFolder(Folder)
	SearchSubfolder(Folder)

	set Folder = nothing
End Function

Public Function SearchSubfolder(Folder)
	dim SubFodlers: Set Subfolders = Folder.subfolders
	dim Subfolder

	For each Subfolder in Subfolders
		DeleteFolder(SubFolder)
		SearchSubfolder(Subfolder)
	next
	
	set Subfolders = nothing
End Function

Public Function DeleteFolder(Folder)
	Dim Files: Set Folders = Folder.subfolders
	Dim i: i = Folders.Count
	Dim CheckFolder
	Dim CheckPath

	For Each CheckFolder In Folders
		If instr(checkfolder.name,"_nfrs") Then	
			fso.deletefolder checkfolder.path
		end if
	Next
	Set Folders = Nothing
End Function

Usage:
In command prompt -
cscript nameofscript.vbs "Path"
eg
cscript nameofscript.vbs "g:\profiles"

NOTE: This will recursively search all folders in the root folder for folders with the name of "*_nfrs*" and delete it, use with care/at your own risk.

[PTD]

Hi

It still doesn't delete the folder..

I'm trying it on a test box at moment the username appears in Killprofile.txt but doesn't delete folder.


Manic

is that all i need or is there more??

[maniac]

There's a GPO setting that allows you to let admin users have access to profiles as well as the user the profile belongs to. We have this set, and it solves a lot of problems with accessing stuff when we need to. It only works when the profile is created by the network for the first time however, so switching it on won't alter the permissions on profiles you already have. However you can run a XCALS command on the necessary folders to do this, but be careful as in my experience it's easy to mess up permissions on profile folders, then they won't work properly!

That VBS script I posted should just work as is, as long as the user running it has access to the folder its deleting of course! Please test it somewhere non-critical first thou!

Mike.

[PTD]

Brillaint, the script works

Many Thanks to the both of you for your help.