FTP-DGAC-SYS-LEEHSIEHJUI/FTP-DGAC-SYS/FTP-DGAC-SYS.vb

Imports System.IO
Imports System.Text
Public Class FTP_DGAC_SYS
    Dim FTP位置, file_name, strDirName As String
    Dim 刪除數, 位置1, 總數, N1, N2, N3, N4, N5, N6, N7 As Integer
    Dim Strs As String = Application.StartupPath
    Dim Str As String = Application.StartupPath
    Private Sub FTP_DGAC_SYS_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Panel1.SendToBack() : 位置1 = -1
        捷徑_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6)
        捷徑_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        捷徑_dgv.ColumnHeadersHeight = 25 : 捷徑_dgv.AllowUserToAddRows = False
        捷徑_dgv.RowTemplate.Height = 20 : 捷徑_dgv.Columns(0).FillWeight = 30
        捷徑_dgv.Columns(0).ReadOnly = True

        剔除清單_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6)
        剔除清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        剔除清單_dgv.ColumnHeadersHeight = 25 : 剔除清單_dgv.AllowUserToAddRows = False
        剔除清單_dgv.RowTemplate.Height = 20 : 剔除清單_dgv.Columns(0).FillWeight = 30
        剔除清單_dgv.Columns(0).ReadOnly = True
    End Sub
    Private Sub FTP_DGAC_SYS_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
        '--------------自動循環---------------------------------------------------------------------
        If File.Exists(Strs & "\OPAUTO.CSV") Then : 自動循環_ch.Checked = True : Else : 自動循環_ch.Checked = False : End If
        '--------------類計數量---------------------------------------------------------------------
        If File.Exists(Str + "\DLNUD.CSV") Then
            Dim filereader = My.Computer.FileSystem.OpenTextFileReader(Str + "\DLNUD.CSV", System.Text.Encoding.Default)
            Dim Text As String = "" : Dim line As String = filereader.ReadLine()
            While Not (line Is Nothing) : Text = Text & line & vbCrLf : line = filereader.ReadLine() : End While : filereader.Close()
            計數_nud.Value = Text
        Else
            計數_nud.Value = 0
        End If
        '--------------FTP位置---------------------------------------------------------------------
        If File.Exists(Str + "\FTPLINE.CSV") Then
            Dim filereader = My.Computer.FileSystem.OpenTextFileReader(Str + "\FTPLINE.CSV", System.Text.Encoding.Default)
            Dim Text As String = "" : Dim line As String = filereader.ReadLine()
            While Not (line Is Nothing) : Text = Text & line & vbCrLf : line = filereader.ReadLine() : End While : filereader.Close()
            計算分流1.Enabled = True : 計算分流2.Enabled = True : 停頓1.Enabled = True
        Else
            If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then
                FTP位置 = FolderBrowserDialog1.SelectedPath
                Dim strDirName As String
                If File.Exists(Strs & "\FTPLINE.CSV") Then : File.Delete(Strs & "\FTPLINE.CSV") : End If
                strDirName = Strs & "\FTPLINE.CSV"
                Try
                    Using fs As IO.FileStream = New IO.FileStream(strDirName, FileMode.Append)
                        Using sw As StreamWriter = New StreamWriter(fs, Encoding.Default)
                            Dim strd As String = FTP位置
                            sw.WriteLine(strd)   '插入一整行
                            sw.Flush()
                        End Using
                    End Using
                Catch ex As Exception
                End Try
                計算分流1.Enabled = True : 計算分流2.Enabled = True : 停頓1.Enabled = True
            Else
                MsgBox("請先選擇資料夾路徑!!")
            End If
        End If
    End Sub
    Private Sub FTP_DGAC_SYS_Closing(sender As Object, e As EventArgs) Handles MyBase.Closing
        If File.Exists(Strs & "\DLNUD.CSV") Then : File.Delete(Strs & "\DLNUD.CSV") : End If
        strDirName = Strs & "\DLNUD.CSV"
        Try
            Using fs As IO.FileStream = New IO.FileStream(strDirName, FileMode.Append)
                Using sw As StreamWriter = New StreamWriter(fs, Encoding.Default)
                    Dim str As String
                    str = 計數_nud.Value : sw.WriteLine(str) : sw.Flush()
                End Using
            End Using
        Catch ex As Exception
        End Try
    End Sub
    Private Sub 自動運行_Tick(sender As Object, e As EventArgs) Handles 自動運行.Tick
        運行自動刪除()
    End Sub
    Private Sub 停頓1_Tick(sender As Object, e As EventArgs) Handles 停頓1.Tick
        If 自動循環_ch.Checked = True Then : 運行自動刪除() : 自動運行.Enabled = True : End If
        停頓1.Enabled = False
    End Sub
    Private Sub 計算分流1_Tick(sender As Object, e As EventArgs) Handles 計算分流1.Tick
        計算分流1.Enabled = False
        If File.Exists(Str + "\FTPLINE.CSV") Then
            Dim filereader = My.Computer.FileSystem.OpenTextFileReader(Str + "\FTPLINE.CSV", System.Text.Encoding.Default)
            Dim line As String = filereader.ReadLine()
            While Not (line Is Nothing) : FTP位置 = line : line = filereader.ReadLine() : End While
            filereader.Close()
        End If
        FTP主要位置_tb.Text = FTP位置 : N1 = 0 : N2 = 0 : N3 = 0 : N4 = 0 : N5 = 0 : N6 = 0
        路徑暫存1_cb.Items.Clear() : 路徑暫存2_cb.Items.Clear() : 路徑暫存3_cb.Items.Clear()
        路徑暫存4_cb.Items.Clear() : 路徑暫存5_cb.Items.Clear() : 路徑暫存6_cb.Items.Clear()
        For Each foundFile As String In My.Computer.FileSystem.GetDirectories(FTP位置)
            路徑暫存1_cb.Items.Add(foundFile) : N1 += 1
        Next
        For i = 1 To N1 : For Each foundFile As String In My.Computer.FileSystem.GetDirectories(路徑暫存1_cb.Items(i - 1).ToString)
                路徑暫存2_cb.Items.Add(foundFile) : N2 += 1 : Next
        Next
        For i = 1 To N2 : For Each foundFile As String In My.Computer.FileSystem.GetDirectories(路徑暫存2_cb.Items(i - 1).ToString)
                路徑暫存3_cb.Items.Add(foundFile) : N3 += 1 : Next
        Next
        For i = 1 To N3 : For Each foundFile As String In My.Computer.FileSystem.GetDirectories(路徑暫存3_cb.Items(i - 1).ToString)
                路徑暫存4_cb.Items.Add(foundFile) : N4 += 1 : Next
        Next
        For i = 1 To N4 : For Each foundFile As String In My.Computer.FileSystem.GetDirectories(路徑暫存4_cb.Items(i - 1).ToString)
                路徑暫存5_cb.Items.Add(foundFile) : N5 += 1 : Next
        Next
        For i = 1 To N5 : For Each foundFile As String In My.Computer.FileSystem.GetDirectories(路徑暫存5_cb.Items(i - 1).ToString)
                路徑暫存6_cb.Items.Add(foundFile) : N6 += 1 : Next
        Next
        總數 = N1 + N2 + N3 + N4 + N5 + N6
        If N6 > 0 Then : MsgBox("子資料夾可能不只有四級，層級不足!!") : End If

        For i As Integer = 0 To 捷徑_dgv.Rows.Count - 1 : 捷徑_dgv.Rows.RemoveAt(0) : Next
        For i As Integer = 0 To 總數 - 1 : 捷徑_dgv.Rows.Insert(0) : Next
        For i As Integer = 0 To N1 - 1
            捷徑_dgv.Rows(i).Cells(0).Value = 路徑暫存1_cb.Items(i).ToString
        Next
        For i As Integer = N1 To N1 + N2 - 1
            捷徑_dgv.Rows(i).Cells(0).Value = 路徑暫存2_cb.Items(i - N1).ToString
        Next
        For i As Integer = N1 + N2 To N1 + N2 + N3 - 1
            捷徑_dgv.Rows(i).Cells(0).Value = 路徑暫存3_cb.Items(i - (N1 + N2)).ToString
        Next
        For i As Integer = N1 + N2 + N3 To N1 + N2 + N3 + N4 - 1
            捷徑_dgv.Rows(i).Cells(0).Value = 路徑暫存4_cb.Items(i - (N1 + N2 + N3)).ToString
        Next
        For i As Integer = N1 + N2 + N3 + N4 To N1 + N2 + N3 + N4 + N5 - 1
            捷徑_dgv.Rows(i).Cells(0).Value = 路徑暫存5_cb.Items(i - (N1 + N2 + N3 + N4)).ToString
        Next
        For i As Integer = N1 + N2 + N3 + N4 + N5 To N1 + N2 + N3 + N4 + N5 + N6 - 1
            捷徑_dgv.Rows(i).Cells(0).Value = 路徑暫存6_cb.Items(i - (N1 + N2 + N3 + N4 + N5)).ToString
        Next
    End Sub
    Private Sub 計算分流2_Tick(sender As Object, e As EventArgs) Handles 計算分流2.Tick
        計算分流2.Enabled = False
        N7 = 0
        If File.Exists(Str + "\FTPDELETE.CSV") Then
            Dim filereader = My.Computer.FileSystem.OpenTextFileReader(Str + "\FTPDELETE.CSV", System.Text.Encoding.Default)
            Dim line As String = filereader.ReadLine()
            While Not (line Is Nothing)
                line = filereader.ReadLine()
                If line Is Nothing Then : Else : 剔除清單_cb.Items.Add(line.ToString) : N7 += 1 : End If
            End While
            filereader.Close()
        End If
        If 剔除清單_dgv.Rows.Count > 1 Then
            For i As Integer = 0 To 剔除清單_dgv.Rows.Count - 1 : 剔除清單_dgv.Rows.RemoveAt(0) : Next
        End If
        If N7 > 1 Then
            For i As Integer = 0 To N7 - 1 : 剔除清單_dgv.Rows.Insert(0) : Next
        End If
        For i As Integer = 0 To N7 - 1
            剔除清單_dgv.Rows(i).Cells(0).Value = 剔除清單_cb.Items(i).ToString
        Next
    End Sub
    Private Sub 剔除清單_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 剔除清單_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            位置1 = e.RowIndex
        End If
    End Sub
    Private Sub 讀取料夾路徑_bt_Click(sender As Object, e As EventArgs) Handles 讀取料夾路徑_bt.Click
        If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then
            FTP位置 = FolderBrowserDialog1.SelectedPath
            If File.Exists(Strs & "\FTPLINE.CSV") Then : File.Delete(Strs & "\FTPLINE.CSV") : End If
            strDirName = Strs & "\FTPLINE.CSV"
            Try
                Using fs As IO.FileStream = New IO.FileStream(strDirName, FileMode.Append)
                    Using sw As StreamWriter = New StreamWriter(fs, Encoding.Default)
                        Dim strd As String = FTP位置
                        sw.WriteLine(strd)   '插入一整行
                        sw.Flush()
                    End Using
                End Using
            Catch ex As Exception
            End Try
            計算分流1.Enabled = True
        Else
            MsgBox("請先選擇資料夾路徑!!")
        End If
    End Sub
    Private Sub 加入剔除檔案_bt_Click(sender As Object, e As EventArgs) Handles 加入剔除檔案_bt.Click
        If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            file_name = OpenFileDialog1.SafeFileName
        Else : file_name = "" : End If
        If file_name <> "" Then
            剔除清單_dgv.Rows.Insert(0) : 剔除清單_dgv.Rows(0).Cells(0).Value = file_name
            Dim SELE As Boolean = False
            If 剔除清單_dgv.Rows.Count - 1 > 0 Then
                SELE = True
            End If
            If SELE = True Then
                剔除檔案存檔()
            End If
        Else : End If
    End Sub
    Private Sub 刪除剔除檔案_bt_Click(sender As Object, e As EventArgs) Handles 刪除剔除檔案_bt.Click
        If 位置1 <> -1 And 位置1 > 剔除清單_dgv.Rows.Count Then : MsgBox("沒有選擇剃除檔案!!")
        Else : 剔除清單_dgv.Rows.Insert(位置1) : 位置1 = -1
            剔除檔案存檔()
        End If
    End Sub
    Private Sub 剔除檔案存檔()
        If File.Exists(Strs & "\FTPDELETE.CSV") Then : File.Delete(Strs & "\FTPDELETE.CSV") : End If
        strDirName = Strs & "\FTPDELETE.CSV"
        Try
            Using fs As IO.FileStream = New IO.FileStream(strDirName, FileMode.Append)
                Using sw As StreamWriter = New StreamWriter(fs, Encoding.Default)
                    Dim str As String
                    str = "******************" : sw.WriteLine(str)
                    For I As Integer = 0 To 剔除清單_dgv.Rows.Count - 1
                        str = 剔除清單_dgv.Rows(I).Cells(0).Value : sw.WriteLine(str)   '插入一整行
                    Next : sw.Flush()
                End Using
            End Using
        Catch ex As Exception
        End Try ': 計算分流2.Enabled = True
    End Sub
    Private Sub 自動循環_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 自動循環_ch.Click

        If 自動循環_ch.Checked = False Then
            If File.Exists(Strs & "\OPAUTO.CSV") Then : File.Delete(Strs & "\OPAUTO.CSV") : End If
        Else
            If File.Exists(Strs & "\OPAUTO.CSV") Then : File.Delete(Strs & "\OPAUTO.CSV") : End If
            strDirName = Strs & "\OPAUTO.CSV"
            Try
                Using fs As IO.FileStream = New IO.FileStream(strDirName, FileMode.Append)
                    Using sw As StreamWriter = New StreamWriter(fs, Encoding.Default)
                        Dim str As String
                        str = "******************" : sw.WriteLine(str) : sw.Flush()
                    End Using
                End Using
            Catch ex As Exception
            End Try
        End If
    End Sub
    Private Sub 運行自動刪除()
        If 捷徑_dgv.Rows.Count > 0 And 剔除清單_dgv.Rows.Count > 0 And FTP主要位置_tb.Text <> "" Then
            For ii As Integer = 0 To 剔除清單_dgv.Rows.Count - 1
                If File.Exists(FTP主要位置_tb.Text & "\" & 剔除清單_dgv.Rows(ii).Cells(0).Value.ToString) Then
                    File.Delete(FTP主要位置_tb.Text & "\" & 剔除清單_dgv.Rows(ii).Cells(0).Value.ToString) : 刪除數 += 1
                End If
            Next
            For i As Integer = 0 To 捷徑_dgv.Rows.Count - 1
                For ii As Integer = 0 To 剔除清單_dgv.Rows.Count - 1
                    If File.Exists(捷徑_dgv.Rows(i).Cells(0).Value.ToString & "\" & 剔除清單_dgv.Rows(ii).Cells(0).Value.ToString) Then
                        File.Delete(捷徑_dgv.Rows(i).Cells(0).Value.ToString & "\" & 剔除清單_dgv.Rows(ii).Cells(0).Value.ToString) : 刪除數 += 1
                    End If
                Next
            Next
            計數_nud.Value += 刪除數
        Else
            MsgBox("系統基礎設定尚未完成!!")
        End If
        If 自動循環_ch.Checked = True Then
            通知_lb.Text = "☆☆☆☆☆☆☆☆☆☆   已自動運行   ☆☆☆☆☆☆☆☆☆☆" : 通知_lb.ForeColor = Color.Green
        Else
            通知_lb.Text = "☆☆☆☆☆☆☆☆☆☆   未自動運行   ☆☆☆☆☆☆☆☆☆☆" : 通知_lb.ForeColor = Color.Red
        End If
    End Sub
    Private Sub 運行自動刪除_bt_Click(sender As Object, e As EventArgs) Handles 運行自動刪除_bt.Click
        If 自動循環_ch.Checked = True Then
            運行自動刪除() : 自動運行.Enabled = True
        Else
            運行自動刪除() : MsgBox("可疑檔案刪除完成!!")
        End If
    End Sub
    Private Sub 計數歸零_bt_Click(sender As Object, e As EventArgs) Handles 計數歸零_bt.Click
        計數_nud.Value = 0
    End Sub
End Class