Dim list As New List(Of String)(IO.File.ReadAllLines(Pfad))
Me.Text = list.Count

Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim list As New List(Of String)(IO.File.ReadAllLines(Pfad))
        For Each zeile As String In List
            MessageBox.Show(zeile)
        Next
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        Dim flist As New List(Of String)(IO.Directory.GetFiles(Pfad))
        Dim s As String = String.Empty
        For Each zeile As String In flist
            s &= zeile & Environment.NewLine
        Next
        MessageBox.Show(s)
    End Sub
End Class

IO.File.Copy("vonPfad", "nachPfad")

My.Computer.FileSystem.DeleteDirectory("Pfad", _
  FileIO.DeleteDirectoryOption.DeleteAllContents)

Dim vPfad As String = "C:\"
Dim nPfad As String = "D:\"
Dim fName As String = "Test.bat.bak"
IO.File.Copy(IO.Path.Combine(vPfad, fName), IO.Path.Combine(nPfad, fName))