diff --git a/functions_korn/kdirname b/functions_korn/kdirname
new file mode 100644
index 0000000..8717f9c
--- /dev/null
+++ b/functions_korn/kdirname
@@ -0,0 +1,12 @@
+# Versión Korn Shell de dirname
+
+function kdirname {
+	# Comprobar argumentos
+	if (($# ==0 || $# > 1)); then
+		print "Uso: ${0##*/} string"
+		exit 1
+	fi
+
+	# Obtener el nombre del directorio
+	print ${1%/*}
+}