mais je cherche dans les vues les privates pour les effacer en script
un bout de code dans une base
- Code : Tout sélectionner
Forall views In Db.Views
Set PrivateFolder = views
If Isempty(PrivateFolder.Readers) = False Then
If (Left (PrivateFolder.Name, 12) = "my pending_V" Or Left (PrivateFolder.Name, 13) = "my projects_V" ) Then
If Right (PrivateFolder.Name, Len(profiledoc.fPRD_Version(0))) <> profiledoc.fPRD_Version(0) Then
Print "Updating Private folder " & PrivateFolder.name
Call PrivateFolder.Remove
End If
End If
End If
'Print ""
End Forall