Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7 Dim objFSO Set objFSO = CreateObject ("Scripting.FileSystemObject") strPath = Session.Property("PROPERTYNAME") nbr = Len(strPath)-1 strPath = Left(Session.Property("PROPERTYNAME"),nbr) objFSO.DeleteFolder strPath, True
Partager