Be io farei cosi, utilizzerei la funzione Replace che vai a sostituire il tag che ti sei creato $systemDir$ con quello che ti serve:
Codice VB.NET :
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
report.Load(Sostituisce("c:\Programmi"))
End Sub
Private Function Sostituisce(ByVal nuovoPercorso) As String
Dim Percorso As String = "$systemDir$\clienti\rptClienti.rpt"
Dim risultato As String = Percorso.ToString.Replace("$systemDir$", nuovoPercorso)
Debug.WriteLine(risultato)
Return risultato
End Function
Se ti serve in VB6 scrivimi che ti aiuto ma è semplice da convertirlo.
Saluti Davide
Blog ImaginSystems
http://blogs.dotnethell.it/imaginsystems
http://www.imaginsystems.it
http://www.alpacasrl.it