diff --git a/dupecheck/Module1.vb b/dupecheck/Module1.vb
index 6df6822..63ade52 100755
--- a/dupecheck/Module1.vb
+++ b/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))