[خالد]

السلام عليكم ورحمة الله وبركاته


قد يكون المقصود هو أن تختار الملف بنفسك من الجهاز عن طريق مستكشف الويندوز
هذا الكود يفتح لك مستكشف الويندوز لتختار الملف النصي ثم يستخرج منه اسم عشوائي ويضعه في مربع نص

كود :

Dim arrNames As Array = Nothing

Using open As New OpenFileDialog With {.Filter = "Text files|*.txt"}
   If open.ShowDialog = vbOK Then

       arrNames = IO.File.ReadAllLines(open.FileName)

       Dim rand As New Random
       Dim rndIndex As Integer = rand.Next(0, arrNames.Length)
       Dim rndName As String = arrNames(rndIndex)

       TextBox1.Text = rndName

   End If
End Using

السلام عليكم ورحمة الله وبركاته