Visual Basic

Using sw As StreamWriter = New StreamWriter(oFile, False, System.Text.Encoding.Default)
    Using sa As StreamReader = New StreamReader(iFile, System.Text.Encoding.Default)
        File.Copy(iFile, "c:\DB\Output1\Similar1.txt", True)
        temp = sa.ReadLine()
        ....
        sw.WriteLine(sa.ReadLine())

        While sa.Peek() >= 0
            temp = sa.ReadLine()
            ....
            If Trim(name).Substring(0, 2) = "01" Then
                sw.WriteLine(name & child & desF & desAF & desA & desAA & ecn & dnf & baloon & dateTime & qty)
            Else
                Dim foundLaterMatch As Boolean = False
                Using sa1 As StreamReader = New StreamReader("c:\DB\Output1\Similar1.txt", System.Text.Encoding.Default)
                    sa1.ReadLine()
                    sa1.ReadLine()

                    While (sa1.Peek() >= 0 ) AndAlso (Not foundLaterMatch)
                        temp1 = sa1.ReadLine()
                        .....
                        If name = name1 And child = child1 And dnf = dnf1 And baloon = baloon1 And result < 0 Then
                            foundLaterMatch = True
                        End If
                    End While
                End Using
                If Not foundLaterMatch Then
                    sw.WriteLine(currentLine)
                End If
            End If
        End While
    End Using
End Using

If Not IO.directory.exists("C:\Backup") Then
IO.Directory.Create("C:\Backup")
End If

Dim a As String = "C:\Myproject\bin\debug\my.mdf"
Dim d As String = "C:\Backup\my.mdf"
IO.File.Copy(a,d)
MsgBox("Backup of 'my.mdf' was succesfull.")

Dim DLLFileName As String
DLLFileName = Application.StartUpPath & "\yourfile.dll"

jan212r wrote:

TableLayoutPanel

jan212r wrote:

Controls.Count