
Originariamente inviata da
VanessaInfo
..... Voi come fate? Vi appuntate i riferimenti non di default e poi li rimettete a mano?!?!? ........
Per trovare i riferimenti che utilizza una applicazione puoi fare cosi:
codice:
Private Sub TrRi_Click()
Dim StUsa As String
Dim NuUsa As Integer
Dim NuMan As Integer
Dim accRef As Object
For Each accRef In Application.References
If (accRef.IsBroken = False) Then
StUsa = StUsa & Left((accRef.Guid & String(50, "-")), 50) & Left((accRef.Name & String(20, "-")), 20) & accRef.FullPath & vbNewLine
NuUsa = NuUsa + 1
Else
StUsa = StUsa & accRef.Guid & vbNewLine
NuMan = NuMan + 1
End If
Next accRef
Me.txtUsati = "Totale Usati N° " & NuUsa & " Totale Manca N° " & NuMan & vbNewLine & StUsa
End Sub
.