¡ÒÃÍèÒ¹ä¿Åì áÅÐ â¿Åà´ÍÃìã¹ Remove Drive (Flash/Thumb/Handy Drive) ÀÒ¤ 1

' »ÃСÒȤèÒµÑÇá»Ã·Õè¨Óà»ç¹
Option Explicit

' Êèǹ¹Õéà»ç¹¡ÒÃàÃÕ¡ãªé§Ò¹ ScrRun.DLL
Private FSO As New Scripting.FileSystemObject

Dim mDrive As Drive    ' ä´Ã¿ì
Dim mFolder As Folder    ' â¿Åà´ÍÃì
Dim mFile As File    ' ä¿Åì

' ¢Íà¾ÔèÁàµÔÁàÃ×èͧ¢Í§¤Ø³ÊÁºÑµÔ¢Í§µÑÇ Drive àͧ
DriveType ¤èÒµÑÇàÅ¢·ÕèºÍ¡¶Ö§»ÃÐàÀ·¢Í§ Drive
' ¤èÒ 0 ËÁÒ¶֧ ¤èÒ·ÕèäÁèÊÒÁÒöÃкØä´é
' ¤èÒ 1 ËÁÒ¶֧ Removable Drive
' ¤èÒ 2 ËÁÒ¶֧ Fix Drive
' ¤èÒ 3 ËÁÒ¶֧ Network Drive
' ¤èÒ 4 ËÁÒ¶֧ CD Rom Drive
' ¤èÒ 5 ËÁÒ¶֧ RAM Drive


' ¡ÒÃÍèÒ¹ä¿Åì·Ñé§ËÁ´·ÕèÍÂÙèã¹ Remove Drive (ËÃ×Í Flash/Thumb/Handy Drive)
Private Sub ViewFiles()
    On Error Resume Next
    ' ÅÙ»¨Ó¹Ç¹ Drive ·ÕèÁÕ
    For Each mDrive In FSO.Drives
        ' µÃǨÊͺÇèÒÁÕ Drive áÅеéͧà»ç¹áºº Remove Drive à·èÒ¹Ñé¹ ... ¾Ç¡ Hard Drive äÁèµéͧàÍÒÁÒ
        If mDrive.IsReady = True And mDrive.DriveType = Removable Then
            ' ÅÙ»¨Ó¹Ç¹ä¿Åì·ÕèÁÕÍÂÙèã¹ Drive
            For Each mFile In mDrive.RootFolder.Files
                ' ã¹¢³Ð·ÕèáÊ´§¼ÅÃÒª×èÍä¿ÅìÍÍ¡ÁÒ ... ˹èÇ»ÃÐÁżšÅÒ§ ËÃ×Í CPU äÁèä´é·Ó§Ò¹ã¹Êèǹ¹ÕéáÅéÇ
                ' ¡ç¨Ð·Ó¡ÒÃÊ觤׹ CPU ä»ãËé¡ÑºÃкº»¯ÔºÑµÔ¡Òà («èдÕæ)
                DoEvents
                
                ' áÊ´§ÃÒª×èÍä¿ÅìÍÍ¡ÁÒ à©¾ÒзÕè¤Ò´ÇèÒÍÒ¨à»ç¹äÇÃÑÊ¡çä´é¹èФÃѺ¼Á
                ' ¹Ñº¨Ò¡·Ò§¢ÇÒÁÒ 3 µÑÇ (ËÃ×ÍÍèҹ੾ÒйÒÁÊ¡ØÅ) áÅéÇà»ÅÕè¹ãËéà»ç¹µÑÇÍÑ¡ÉõÑÇãË­è·Ñé§ËÁ´
                ' à¾×èÍà»ç¹à§×è͹ä¢ãËé¡Ñº Select Case ... ¾Ô¨ÒóҤÇÒÁµèÒ§¨Ò¡¡ÒÃãªé IF - THEN - ELSE ´éǹèФÃѺ
                'Select Case UCase$(Right(mFile.Path, 3))
                '    Case "BAT", "EXE", "COM", "INF", "VBS", "DLL", "OCX"
                '        lvwViewer.AddItem mFile.Path
                'End Select
                
                ' áÊ´§ä¿ÅìÍÍ¡ÁÒ·Ñé§ËÁ´àÅÂ
                lvwViewer.AddItem mFile.Path
            Next
        End If
    Next
    
    ' Íѹ¹Õé¡çá¤èá¨é§ÃÒ¡Òèӹǹä¿Åì¤ÃѺ¼Á
    fraViewer.Caption = " ¨Ó¹Ç¹ " & lvwViewer.ListCount & " ä¿Åì" & " "
End Sub

' ¡ÒÃÍèÒ¹â¿Åà´ÍÃì·Ñé§ËÁ´·ÕèÍÂÙèã¹ Remove Drive (ËÃ×Í Flash/Thumb/Handy Drive)
Private Sub ViewFolders()
    On Error Resume Next
    Dim nFiles As Integer
    
    nFiles = lvwViewer.ListCount
    
    ' ÅÙ»¨Ó¹Ç¹ Drive ·ÕèÁÕ
    For Each mDrive In FSO.Drives
        ' µÃǨÊͺÇèÒÁÕ Drive áÅеéͧà»ç¹áºº Remove Drive à·èÒ¹Ñé¹ ... ¾Ç¡ Hard Drive äÁèµéͧàÍÒÁÒ
        If mDrive.IsReady = True And mDrive.DriveType = Removable Then
            ' ÅÙ»¨Ó¹Ç¹â¿Åà´ÍÃì·ÕèÁÕÍÂÙèã¹ Drive
            For Each mFolder In mDrive.RootFolder.SubFolders
                ' DoEvents ...
                ' ¡ÒùÓä»»ÃÐÂØ¡µìãªé§Ò¹ÍÕ¡ÍÂèÒ§¡ç¤×Í ¡ÒÃÊ觧ҹ¾ÔÁ¾ì à»ç¹¨Ó¹Ç¹Ë¹éÒÁÒ¡æ´éǹèФÃѺ ... ¾Õè¹éͧ
                ' à¾×èÍãËéÃкº»¯ÔºÑµÔ¡Òà (OS) ÊÒÁÒöãªé§Ò¹ CPU ä´éÍÂèÒ§àµçÁ»ÃÐÊÔ·¸ÔÀÒ¾
                DoEvents
                
                ' áÊ´§ª×èÍâ¿Åà´ÍÃìÍÍ¡ÁÒ
                lvwViewer.AddItem mFolder.Path
            Next
        End If
    Next
    
    ' Êèǹ¢Í§¡ÒùѺ¨Ó¹Ç¹ä¿Åì ËÃ×Í â¿Åà´ÍÃì
    If nFiles <> 0 Then
        nFiles = lvwViewer.ListCount - nFiles
        fraViewer.Caption = fraViewer.Caption & " / ¨Ó¹Ç¹ " & nFiles & " â¿Åà´ÍÃì" & " "
    Else
        fraViewer.Caption = fraViewer.Caption & " ¨Ó¹Ç¹ " & lvwViewer.ListCount & " â¿Åà´ÍÃì" & " "
    End If
End Sub

' â»Ãá¡ÃÁÂèÍÂ㹡ÒÃźä¿Åì ËÃ×Í â¿Åà´ÍÃì·ÕèàÅ×Í¡
Private Sub cmdDelete_Click()
On Error Resume Next
Dim sRow As Integer
Dim lvwData As Integer
    
    lvwData = 0
    
    ' ¹Ñº¨Ó¹Ç¹·Õè¤ÅÔê¡à¤Ã×èͧËÁÒ¶١˹éÒä¿Åì (â¿Åà´ÍÃì)
    For sRow = 0 To lvwViewer.ListCount - 1
       If lvwViewer.Selected(sRow) = True Then
            lvwData = lvwData + 1
       End If
    Next
    ' µÃǨÊͺ¡è͹ÇèÒÁÕ¡ÒÃàÅ×Í¡à¤Ã×èͧËÁÒ¶١˹éÒä¿Åì (â¿Åà´ÍÃì) àÃÕºÃéÍÂáÅéÇËÃ×ÍäÁè
    If lvwData = 0 Then
        MsgBox "¡ÃسÒàÅ×Í¡ä¿Åì (â¿Åà´ÍÃì) ·Õèµéͧ¡ÒèÐźãËéàÃÕºÃéÍ¡è͹´éÇÂ.", vbExclamation, App.CompanyName
        Exit Sub
    End If
    
    ' ¶ÒÁÂ×¹Âѹ¡ÒÃźä¿Åì (â¿Åà´ÍÃì)
    If MsgBox("¤Ø³á¹èã¨ÇèÒµéͧ¡ÒÃźä¿Åì (â¿Åà´ÍÃì) ÍÍ¡?" & vbCrLf & _
                        "¡´ [OK] àÁ×è͵éͧ¡ÒÃź ËÃ×Í " & vbCrLf & _
                        "¡´ [Cancel] àÁ×è͵éͧ¡ÒáàÅÔ¡.", vbOKCancel + _
                        vbQuestion + vbDefaultButton2, "Â×¹Âѹ¡ÒÃźä¿Åì â¿Åà´ÍÃì") _
                        = vbCancel Then Exit Sub
    
    ' ÅÙ»µÒÁ¨Ó¹Ç¹ÃÒ¡Ò÷ÕèÁÕÍÂÙèã¹ ListView
    For sRow = 0 To lvwViewer.ListCount - 1
    DoEvents
        If lvwViewer.Selected(sRow) = True Then
            lvwViewer.ListIndex = sRow
            DoEvents
            ' ¡Ã³Õ·ÕèÁÕ¡ÒÃàÅ×Í¡à¤Ã×èͧËÁÒ¶١˹éÒä¿Åì (â¿Åà´ÍÃì)
            If lvwViewer.Selected(sRow) = True Then
                ' µÃǨÊͺÍÕ¡¤ÃÑé§ÇèÒÂѧÁÕä¿Åì (â¿Åà´ÍÃì) ÍÂÙèËÃ×ÍäÁè (FilesExists/FolderExists)
                If FSO.FileExists(lvwViewer.List(sRow)) = True Then
                    ' Method ¡ÒÃźä¿Åì
                    FSO.DeleteFile lvwViewer.List(sRow), True
                    ' źÃÒ¡ÒÃÍÍ¡¨Ò¡ ListView
                    lvwViewer.RemoveItem sRow
                ElseIf FSO.FolderExists(lvwViewer.List(sRow)) = True Then
                    ' Method ¡ÒÃźâ¿Åà´ÍÃì
                    FSO.DeleteFolder lvwViewer.List(sRow), True
                    ' źÃÒ¡ÒÃÍÍ¡¨Ò¡ ListView
                    lvwViewer.RemoveItem sRow
                End If
            End If
        End If
    Next
End Sub

' â»Ãá¡ÃÁÂèÍÂ㹡ÒÃàÅ×Í¡ä¿Åì·Ñé§ËÁ´
Private Sub cmdSelectALL_Click()
Dim sRow As Integer
    On Error Resume Next
    For sRow = 0 To lvwViewer.ListCount - 1
        lvwViewer.ListIndex = sRow
        lvwViewer.Selected(sRow) = True
    Next
    lvwViewer.ListIndex = 0
End Sub

' â»Ãá¡ÃÁÂèÍÂ㹡ÒÃäÁèàÅ×Í¡ä¿Åì·Ñé§ËÁ´
Private Sub cmdDeselectALL_Click()
    On Error Resume Next
    Dim sRow As Integer
    For sRow = 0 To lvwViewer.ListCount - 1
        lvwViewer.ListIndex = sRow
        lvwViewer.Selected(sRow) = Not lvwViewer.Selected(sRow)
    Next
    lvwViewer.ListIndex = 0
End Sub

' â»Ãá¡ÃÁÂèÍÂ㹡ÒÃáÊ´§¼Åä¿Åì áÅÐ â¿Åà´ÍÃì·Ñé§ËÁ´
Private Sub mnuViewALL_Click()
    lvwViewer.Clear
    fraViewer.Caption = ""
    Call ViewFiles
    Call ViewFolders
End Sub

' â»Ãá¡ÃÁÂèÍÂ㹡ÒÃáÊ´§¼Å੾ÒЪ×èÍä¿Åì
Private Sub mnuViewFiles_Click()
    lvwViewer.Clear
    fraViewer.Caption = ""
    Call ViewFiles
End Sub

' â»Ãá¡ÃÁÂèÍÂ㹡ÒÃáÊ´§¼Å੾ÒÐâ¿Åà´ÍÃì
Private Sub mnuViewFolders_Click()
    lvwViewer.Clear
    fraViewer.Caption = ""
    Call ViewFolders
End Sub