diff --git a/build/set_df_path.vbs b/build/win32/set_df_path.vbs
similarity index 100%
rename from build/set_df_path.vbs
rename to build/win32/set_df_path.vbs
diff --git a/build/win64/set_df_path.vbs b/build/win64/set_df_path.vbs
new file mode 100644
index 000000000..1d494a2e5
--- /dev/null
+++ b/build/win64/set_df_path.vbs
@@ -0,0 +1,32 @@
+Option Explicit
+
+Const BIF_returnonlyfsdirs   = &H0001
+
+Dim wsh, objDlg, objF, fso, spoFile
+Set objDlg = WScript.CreateObject("Shell.Application")
+Set objF = objDlg.BrowseForFolder (&H0,"Select your DF folder", BIF_returnonlyfsdirs)
+
+Set fso = CreateObject("Scripting.FileSystemObject")
+If fso.FileExists("DF_PATH.txt") Then
+    fso.DeleteFile "DF_PATH.txt", True
+End If
+
+If IsValue(objF) Then 
+    If InStr(1, TypeName(objF), "Folder") > 0 Then
+        Set spoFile = fso.CreateTextFile("DF_PATH.txt", True)
+        spoFile.WriteLine(objF.Self.Path)
+    End If
+End If
+
+Function IsValue(obj)
+    ' Check whether the value has been returned.
+    Dim tmp
+    On Error Resume Next
+    tmp = " " & obj
+    If Err <> 0 Then
+        IsValue = False
+    Else
+        IsValue = True
+    End If
+    On Error GoTo 0
+End Function
\ No newline at end of file