1 files changed, 21 insertions, 0 deletions
diff --git a/tcl/win/mkd.bat b/tcl/win/mkd.bat
new file mode 100644
index 00000000000..2bd2388394f
--- /dev/null
+++ b/tcl/win/mkd.bat
@@ -0,0 +1,21 @@
+@echo off
+rem RCS: @(#) $Id$
+
+if exist %1\tag.txt goto end
+
+if "%OS%" == "Windows_NT" goto winnt
+
+md %1
+if errorlevel 1 goto end
+
+goto success
+
+:winnt
+md %1
+if errorlevel 1 goto end
+
+:success
+echo TAG >%1\tag.txt
+echo created directory %1
+
+:end