Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
Dim value As String = My.Application.Info.DirectoryPath
 
Dim directory As New System.IO.DirectoryInfo(My.Application.Info.DirectoryPath _
  & "\files")
For Each file1 As System.IO.FileInfo In directory.GetFiles
If file1.Extension = ".php" Or file1.Extension = ".PHP" Then
ComboBox1.Items.Add(file1.Name)
End If
Next
End Sub

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal _
  e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
TextBox1.Text = My.Computer.FileSystem.ReadAllText( _
My.Application.Info.DirectoryPath & "\files\" & ComboBox1.Text)
Dim Pfad As String = ComboBox1.Text
Me.Text = Pfad.Replace(".php", "")
TextBox2.Text = (Me.Text)
End Sub