For Each foundFile As String In My.Computer.FileSystem.GetFiles( _
          Pfad.Text, _
            FileIO.SearchOption.SearchTopLevelOnly, "*.project")
 
            My.Computer.FileSystem.DeleteFile(foundFile, _
                FileIO.UIOption.OnlyErrorDialogs, _
                FileIO.RecycleOption.SendToRecycleBin)
        Next