Dateinamen aus Ftpverzeichnis auslesen, in HTML-Links umwandeln und in .txt speichern

@echo off & setlocal
set "ftpS=ftp.server.de"  
set "User=Username"  
set "Pass=Passwort"  
set "Txt=D:\Ergebnis.txt"  
set "Dom=http://Firma.de"  
set "ini=D:\ftpini.txt"  
set "Ext=.pdf"  

set "Verz=%temp%\VerzeichnisHolen.vbs"  
echo Set V=CreateObject("Shell.Application").BrowseForFolder(0,"Verzeichnis?",0,"ftp://%User%:%Pass%@%ftpS%")>"%Verz%"  
echo If Not V Is Nothing Then Set F=V.Self:P=F.Path:WScript.Echo Mid(P,Instr(Instr(P,"@")+1,P,"/"))>>"%Verz%"  
for /f "delims=" %%i in ('cscript //nologo "%Verz%"') do set "Quelle=%%i"  
del "%Verz%"  
if not defined Quelle goto :Fehler
echo open %ftpS%>"%ini%"  
echo %User%>>"%ini%"  
echo %Pass%>>"%ini%"  
echo dir %Quelle%*%Ext%>>"%ini%"  
echo quit>>"%ini%"  
if exist "%Txt%" del "%Txt%"  
for /f "delims=" %%i in ('ftp -s:"%ini%"^|findstr /v "ftp^> dir"^|findstr "%Ext%"') do set "Zeile=%%i" & call :ProcessLine  
if exist "%ini%" del "%ini%"  
type "%Txt%"  
:: ... und was sonst noch anliegt (copy oder move oder ...)
goto :eof

:ProcessLine
echo %Dom%%Zeile:~55%>>"%Txt%"  
goto :eof
:Fehler
echo Es wurde kein Verzeichnis ausgewählt!

-rw-r-----   1 web      web         12042 Dez 11 14:37 /test/tabellen/tab-50-ghp.html

for /f "tokens=1* delims=/" %%i in ('ftp -s:"%ini%"^|findstr /v "ftp^> dir"^|findstr "%Ext%"') do echo %Dom%/%%j>>"%Txt%"  

ftpS=ftp.server.de
User=Username
Pass=Passwort
Dom=http://Firma.de
Ext=.pdf

for /f "tokens=1* delims==" %%i in (ini.txt) do set "%%i=%%j"  

@echo off & setlocal
for /f "tokens=1* delims==" %%i in (ftplister.ini) do set "%%i=%%j"  
set "ini=%temp%\ftpdata.txt"  
set "Verz=%temp%\VerzeichnisHolen.vbs"  
set "Txt=Ergebnis.txt"  
set "LOG=ERROR.LOG"  

if exist "%LOG%" del "%LOG%"  
if exist "%Txt%" del "%Txt%"  
echo Set V=CreateObject("Shell.Application").BrowseForFolder(0,"Bitte das Verzeichnis auswählen",0,"ftp://%User%:%Pass%@%ftpS%")>"%Verz%"  
echo If Not V Is Nothing Then Set F=V.Self:P=F.Path:WScript.Echo Mid(P,Instr(Instr(P,"@")+1,P,"/"))>>"%Verz%"  
for /f "delims=" %%i in ('cscript //nologo "%Verz%"') do set "Quelle=%%i"  
del "%Verz%"  
if not defined Quelle goto :Fehler

echo open %ftpS%>"%ini%"  
echo %User%>>"%ini%"  
echo %Pass%>>"%ini%"  
echo dir %Quelle%*%Ext%>>"%ini%"  
echo quit>>"%ini%"  
for /f "tokens=%Slash%* delims=/" %%i in ('ftp -s:"%ini%"^|findstr /v "ftp^> dir"^|findstr "%Ext%"') do echo %Dom%/%%j>>"%Txt%"  
if exist "%ini%" del "%ini%"  
"%Txt%"  
goto :eof

:Fehler
echo.>%LOG%
echo Es wurde kein Verzeichnis zum auslesen ausgewählt oder das Programm wurde vorzeitig beendet!>>%LOG%
echo.>>%LOG%
echo Bitte starten Sie das Tool neu, warten Sie einen Moment (ca.5-10 Sekunden, je nach Internetanbindung) und wählen Sie dann einen Ordner aus.>>%LOG%
"%LOG%"  
goto :eof

 ftpS=ftp.server.de
User=Tester01
Pass=Testerpass01
Dom=http://ftp.serve.de
Slash=2
Ext=.pdf