Updated default path

dupecheck/Module1.vb

@@ -139,7 +139,7 @@
     Dim rulelist As New List(Of rule)
 
     Sub Main()
-        Dim dir As String = "V:\4chan\gf"
+        Dim dir As String = Environment.CurrentDirectory
         Console.WriteLine("Enumerating files...")
         For Each f In FileIO.FileSystem.GetFiles(dir, FileIO.SearchOption.SearchAllSubDirectories).ToList
             allfilelist.Add(New fileobj(f))