[elgokr]

استخدم الكود كما يلى

كود :

Dim txtFile As String = Application.StartupPath & "P2.html"
       Dim hamdane As String = "FirAs"
       File.WriteAllText(txtFile, File.ReadAllText(txtFile).Replace(hamdane, Me.channels_url))

بخصوص الجزء الخاص بـ

كود :

Dim hamdane As String = "FirAs"

على ما اعتقد من المفترض ان يكون

كود :

Dim hamdane As String = "mediasource="

حسب ما فهته من الفكرة ومن الملفات المرفقة

ويرجع الامر لك فى الاول والاخر

تحياتى لك

وتمنياتى لك التوفيق