Niveau
..........
En rapport...

Effacer récursivement des dossiers vides

Il peut être utile de supprimer une arborescence vide.
Cette fonction va s'en charger pour vous. Elle comporte 1 paramètre :

Tous les sous dossiers seront aussi vérifier.
Si le dossier d'origine est vide ou si l'un des sous dossier est vide, on l'efface.

asp
Private Sub mkDir(byVal path)
	dim oFs, bErr, sDescErr
	on error resume next
	bErr = False
	Set oFs = Server.CreateObject("Scripting.FileSystemObject")
	oFs.CreateFolder path
	if Err Then 
		bErr = True
		sDescErr = Err.Description
	end if
	Set oFs = nothing
	on error goto 0
	if bErr then 
		Err.Raise 5101, "fonction mkDir", sDescErr
End Sub


06/03/2007 09:25 -

iDo –