diff --git a/bin/find-dir b/bin/find-dir
new file mode 100755
index 0000000..6fcf5dc
--- /dev/null
+++ b/bin/find-dir
@@ -0,0 +1,14 @@
+#!/bin/sh
+
+if [ -e "$1" ]
+then
+	root=$1
+	shift 1
+else
+	root=$(pwd)
+fi
+
+if [ -n "$*" ]
+then find "$root" -maxdepth 1 -type d | fzf -q "$*"
+else find "$root" -maxdepth 1 -type d | fzf
+fi