summaryrefslogtreecommitdiffstats
path: root/win/Handbrake/frmDVDData.vb
diff options
context:
space:
mode:
Diffstat (limited to 'win/Handbrake/frmDVDData.vb')
-rw-r--r--win/Handbrake/frmDVDData.vb50
1 files changed, 0 insertions, 50 deletions
diff --git a/win/Handbrake/frmDVDData.vb b/win/Handbrake/frmDVDData.vb
deleted file mode 100644
index ca2d5f53f..000000000
--- a/win/Handbrake/frmDVDData.vb
+++ /dev/null
@@ -1,50 +0,0 @@
-Imports System.IO
-
-Public Class frmDvdData
-
-
- Private Sub frmSelect_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- Dim break As Boolean = False
- Dim ErrorCounter As Integer = 0
-
- Try
- Dim file_path As String = Application.StartupPath
- rtf_dvdInfo.Text = ""
-
- Dim line As StreamReader = File.OpenText(file_path & "\dvdinfo.dat")
- Dim readLine
-
- readLine = "------- DVD Information -------"
- While readLine <> Nothing
-
- If (rtf_dvdInfo.Text = "") Then
- rtf_dvdInfo.Text = readLine
- Else
- rtf_dvdInfo.Text = rtf_dvdInfo.Text & vbCrLf & readLine
- End If
- readLine = line.ReadLine()
-
- If break = True Then
- readLine = Nothing
- ElseIf readLine = "" Then
- readLine = " "
- ErrorCounter = ErrorCounter + 1
- If ErrorCounter = 5 Then
- readLine = Nothing
- End If
- readLine = Nothing
- Else
- ErrorCounter = 0
- End If
-
- End While
- Catch ex As Exception
- MessageBox.Show(ex.ToString) ' Debug
- End Try
- '# -- END
- End Sub
-
- Private Sub btn_close_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_close.Click
- Me.Close()
- End Sub
-End Class \ No newline at end of file