subir archivos de una carpeta incluyendo sus subcarpetas con ftp batch

  Bien hoy les dejo un codigo que he echo yo mismo no se si en internet ya haya algo parecido pero este es mio. Es muy simples con unos cuantos for y el comando ftp ya esta listo para subir archivos.
   Para subir los archivos solo hace falta arrastrar y soltar la carpeta encima del archivo bat 

@echo off
set serv=nombre de servidor
set usua=nombre de usuario
set cont=contraseña
set carp=carpeta raiz
::tipo de subida binary o ascii
set tipo=binary

%~d1
cd "%~s1"
::config
(
echo %usua%
echo %cont%
echo cd %carp%
echo %tipo%
)>%temp%\put.txt
goto u
:file
for %%x in (*.*) do echo put %%~sx>>%temp%\put.txt
goto:eof
:u
call :file
for /r /d %%y in (*) do (
echo mkdir "%%~ny">>%temp%\put.txt
echo cd "%%~ny">>%temp%\put.txt
cd %%~sy
call :file
)
echo quit>>%temp%\put.txt
ftp -i -s:%temp%\put.txt %serv%
pause

---------------------------------------------------------------
si preferis tener los archivos de configuracion en un archivo inf
---------------------------------------------------------------

archivo batch siguiente codigo:

@echo off
goto a
:b
set pa=%~s1
goto:eof
:a
call :b "%~dp0"
for /f "tokens=*" %%a in (%pa%/config.inf) do set %%a
%~d1
cd "%~s1"
::config
(
echo %usua%
echo %cont%
echo cd %carp%
echo %tipo%
)>%temp%\put.txt
goto u
:file
for %%x in (*.*) do echo put %%~sx>>%temp%\put.txt
goto:eof
:u
call :file
for /r /d %%y in (*) do (
echo mkdir "%%~ny">>%temp%\put.txt
echo cd "%%~ny">>%temp%\put.txt
cd %%~sy
call :file
)
echo quit>>%temp%\put.txt
ftp -i -s:%temp%\put.txt %serv%
pause

y un archivo llamdo  "config.inf" en el mismo directorio que el batch con la configuracion de acceso

serv=direccion del servidor
usua=nombre usuario
cont=contraseña
carp=carpeta raiz
tipo=binary