Visual Basic

form.show

form.ShowDialog

Private Sub OperateExcel()
  Try
    'the rest of the code here'
  Catch ex as Exception
    MsgBox(ex.tostring)
  End Try
End Sub

Sub OperateExcel()
    ' Compile with Option Strict Off to allow late binding.
    Dim xlsApp As Object
    Dim xlsBook As Object
    Dim xlsSheet As Object

    xlsApp = CreateObject("Excel.Application")
    ' Late bind an instance of an Excel workbook.
    xlsBook = xlsApp.Workbooks.Add
    ' Late bind an instance of an Excel worksheet.
    xlsSheet = xlsBook.Worksheets(1)
    xlsSheet.Activate()
    ' Show the application.
    xlsSheet.Application.Visible = True

    For Each xlsSheet In xlsBook.worksheets
        ' put your text into the cells in a simpler way
        xlsSheet.Range("H3").Value = "txtProduct"
        xlsSheet.Range("H4").Value = "txtName"
        xlsSheet.Range("H5").Value = "txtNum"
        ' A more useful way since you can iterate through rows/colums
        ' Here: Place some text in the second row of the sheet.
        xlsSheet.Cells(2, 8) = "This is column H row 2"
    Next
    xlsBook.SaveAs("D:\text.xls")
    xlsBook.Close()
    xlsApp.Quit()

    xlsSheet = Nothing
    xlsBook = Nothing
    xlsApp = Nothing
End Sub

Private Sub FTP_PutFile(ByVal DestinationFileName As String, ByVal SourceFileName As String, ByVal usr As String, ByVal pwd As String)

        Dim brwsr As New System.Net.WebClient
        Dim creds As New System.Net.NetworkCredential(usr, pwd)
        Try
            With brwsr
                .Credentials = creds
                Console.WriteLine("Uploading file...")
                .UploadFile(DestinationFileName, SourceFileName)
                Console.WriteLine("Upload successful.")
                .Dispose()
            End With

        Catch ex As Exception
            EC(ex)
        End Try
    End Sub

FTP_PutFile("ftp://server.address.or.ip/file.extension", "c:\temp\file.extension", "user", "password")

Private hashdups_m As Thread
Private hashdups_t1 As Thread
Private hashdups_t2 As Thread

Private Sub hash_folder()
    Dim di As New IO.DirectoryInfo(src_cmp_fldr)
    Dim aryFi As IO.FileInfo() = di.GetFiles("*.*")
    If di.GetFiles("*.*").Length.ToString <> 0 Then
       di_hashdups = New IO.DirectoryInfo(src_cmp_fldr)
       aryFi_hashdups = di_hashdups.GetFiles("*.*")
       hashdups_m = New Thread(AddressOf hashdups_main)
       hashdups_m.Start()
    End If
End Sub

Private Sub hashdups_main()
    progb2val_a = 0
    progb2val_b = 0
    hashdups_t1 = New Thread(AddressOf hashdups_hash1)
    hashdups_t2 = New Thread(AddressOf hashdups_hash2)
    If aryFi_hashdups.Count = 1 Then
        progb2val_b = 50
        hashdups_t1.Start()
        hashdups_t1.Join()
    End If
    If aryFi_hashdups.Count > 1 Then
        hashdups_t1.Start()
        hashdups_t2.Start()
        hashdups_t1.Join()
        hashdups_t2.Join()
    End If

    If hashdups_t1.IsAlive = False And hashdups_t2.IsAlive = False Then
        ds_db_cmp_fldr.Tables.Add("db_cmp_fldr")
        dt_db_cmp_fldr = ds_db_cmp_fldr.Tables("db_cmp_fldr")

        Dim col_fs_dec As DataColumn = New DataColumn("filesize")
        col_fs_dec.DataType = System.Type.GetType("System.Decimal")
        dt_db_cmp_fldr.Columns.Add(col_fs_dec)

        Dim col_sha1_string As DataColumn = New DataColumn("sha256hash")
        col_sha1_string.DataType = System.Type.GetType("System.String")
        dt_db_cmp_fldr.Columns.Add(col_sha1_string)

        Dim col_fn_string As DataColumn = New DataColumn("filename")
        col_fn_string.DataType = System.Type.GetType("System.String")
        dt_db_cmp_fldr.Columns.Add(col_fn_string)

        If ds_db_cmp_fldr.Tables.Contains("db_cmp_fldr_a") = True Then
        For Each drSource_a As DataRow In dt_db_cmp_fldr_a.Rows
            dt_db_cmp_fldr.ImportRow(drSource_a)
        Next
        ds_db_cmp_fldr.Tables.Remove("db_cmp_fldr_a")
        End If
        If ds_db_cmp_fldr.Tables.Contains("db_cmp_fldr_b") = True Then
        For Each drSource_b As DataRow In dt_db_cmp_fldr_b.Rows
            dt_db_cmp_fldr.ImportRow(drSource_b)
        Next
        ds_db_cmp_fldr.Tables.Remove("db_cmp_fldr_b")
        End If
        Me.Invoke(New upd_hashdups_m(AddressOf upd_hashdups_m_val), 1)
    End If
End Sub


Private Sub hashdups_hash1()
    ds_db_cmp_fldr.Tables.Add("db_cmp_fldr_a")
    dt_db_cmp_fldr_a = ds_db_cmp_fldr.Tables("db_cmp_fldr_a")

    Dim col_fs_dec_a As DataColumn = New DataColumn("filesize")
    col_fs_dec_a.DataType = System.Type.GetType("System.Decimal")
    dt_db_cmp_fldr_a.Columns.Add(col_fs_dec_a)

    Dim col_sha1_string_a As DataColumn = New DataColumn("sha256hash")
    col_sha1_string_a.DataType = System.Type.GetType("System.String")
    dt_db_cmp_fldr_a.Columns.Add(col_sha1_string_a)

    Dim col_fn_string_a As DataColumn = New DataColumn("filename")
    col_fn_string_a.DataType = System.Type.GetType("System.String")
    dt_db_cmp_fldr_a.Columns.Add(col_fn_string_a)

    Dim myNewRow As DataRow
    Dim aryficnt_a As Integer = Math.Ceiling(aryFi_hashdups.Count / 2)
    For r1 = 0 To aryficnt_a - 1
        result = Nothing
        hashclass.HashFile(aryFi_hashdups(r1).FullName)
        myNewRow = dt_db_cmp_fldr_a.NewRow()
        myNewRow("filesize") = aryFi_hashdups(r1).Length
        myNewRow("sha256hash") = result
        myNewRow("filename") = aryFi_hashdups(r1).Name
        dt_db_cmp_fldr_a.Rows.Add(myNewRow)
        progb2val_a = (50 * (r1 + 1) / aryficnt_a)
        Me.Invoke(New upd_progbar2_hash(AddressOf progbar2_val_hash), Convert.ToString(0))
    Next
    Me.Invoke(New upd_progbar2_hash(AddressOf progbar2_val_hash), Convert.ToString(0))
End Sub



Private Sub hashdups_hash2()
    ds_db_cmp_fldr.Tables.Add("db_cmp_fldr_b")
    dt_db_cmp_fldr_b = ds_db_cmp_fldr.Tables("db_cmp_fldr_b")

    Dim col_fs_dec_b As DataColumn = New DataColumn("filesize")
    col_fs_dec_b.DataType = System.Type.GetType("System.Decimal")
    dt_db_cmp_fldr_b.Columns.Add(col_fs_dec_b)

    Dim col_sha1_string_b As DataColumn = New DataColumn("sha256hash")
    col_sha1_string_b.DataType = System.Type.GetType("System.String")
    dt_db_cmp_fldr_b.Columns.Add(col_sha1_string_b)

    Dim col_fn_string_b As DataColumn = New DataColumn("filename")
    col_fn_string_b.DataType = System.Type.GetType("System.String")
    dt_db_cmp_fldr_b.Columns.Add(col_fn_string_b)

    Dim myNewRow As DataRow
    Dim aryficnt_b As Integer = Math.Ceiling(aryFi_hashdups.Count / 2)

    For r2 = aryficnt_b To aryFi_hashdups.Count - 1
        result = Nothing
        hashclass.HashFile(aryFi_hashdups(r2).FullName)
        myNewRow = dt_db_cmp_fldr_b.NewRow()
        myNewRow("filesize") = aryFi_hashdups(r2).Length
        myNewRow("sha256hash") = result
        myNewRow("filename") = aryFi_hashdups(r2).Name
        dt_db_cmp_fldr_b.Rows.Add(myNewRow)
        progb2val_b = (50 * (r2 - aryficnt_b + 1) / aryficnt_b)
        Me.Invoke(New upd_progbar2_hash(AddressOf progbar2_val_hash), Convert.ToString(0))
    Next
    Me.Invoke(New upd_progbar2_hash(AddressOf progbar2_val_hash), Convert.ToString(0))
End Sub


the hashclass:

Public Class hashclass

    Public Shared Function HashFile(ByVal File As String) As String
        Dim FN As New FileStream(File, FileMode.Open, FileAccess.Read, FileShare.Read, 8192)
        Dim HashValue(0) As Byte
        Dim Tmp As String = ""

        Dim SHA256 As New SHA256Managed
        SHA256.ComputeHash(FN)
        HashValue = SHA256.Hash
        FN.Close()

        For i As Integer = 0 To HashValue.Length - 1
            Tmp = Hex(HashValue(i))
            If Len(Tmp) = 1 Then Tmp = "0" & Tmp
            result += Tmp
        Next
        Return result
    End Function

End Class

NikWing wrote:

result = Nothing hashclass.HashFile(aryFi_hashdups(r2).FullName)
myNewRow = dt_db_cmp_fldr_b.NewRow()
myNewRow("filesize") = aryFi_hashdups(r2).Length
myNewRow("sha256hash") = result