Added wait cursor on directory select

IridiumIO · Oct 24, 2017 · 71cb9ab · 71cb9ab
1 parent 9203105
commit 71cb9ab
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 1 deletion.
diff --git a/WindowsApp1/Compact.Designer.vb b/WindowsApp1/Compact.Designer.vb
diff --git a/WindowsApp1/Compact.vb b/WindowsApp1/Compact.vb
@@ -472,6 +472,8 @@ Public Class Compact
     Dim dirLabelResults As String = ""
 
     Private Sub SelectFolder(selectedDir As String, senderID As String)
+        Cursor.Current = Cursors.WaitCursor
+
         Dim wDString = selectedDir
 
         If wDString.Contains("C:\Windows") Then                                                 'Makes sure you're not trying to compact the Windows directory. I should Regex this to catch all possible drives hey?