Delphi-PRAXiS
Seite 3 von 3     123   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)
-   -   FTP Upload per Batchscript (https://www.delphipraxis.net/153748-ftp-upload-per-batchscript.html)

Luckie 29. Nov 2011 09:36

AW: FTP Upload per Batchscript
 
Hat sich erledigt. Ich habe eine andere Lösung gefunden:
Code:
rem Projekt         : FTP-Backup
rem Autor         : Michael Puff <mail@michael-puff.de>
rem Datum         : 2011-11-29
rem Beschreibung   : Backupskript zur Übertragung von passwortgeschützen mit 7Zip gepackten
rem                 Archiven auf einen FTP-Server. 7Zip muss vorhanden sein und im Suchpfad
rem                 liegen.

@echo off
cls
echo FTP Backup Script
echo =================
echo.
echo Zugangsdaten fuer zeus03.de
echo ----------------------------
set /P user="Benutzer: "
set /P pw="Passwort: "

cls
:PW
echo Passwort fuer Archive
echo ---------------------
set /P pw1="Passwort: "
cls
set /P pw2="Passwort wiederholen: "
if %pw1% == %pw2% (
   cls
   goto MENU
) else (
   echo "Passwoerter stimmen nicht ueberein"
   echo.
   goto PW
)

rem Menü
:MENU
if EXIST script.ftp del script.ftp
echo.
echo Dateiauswahl
echo ------------
echo [1] Abrechnungen
echo [2] Briefe
echo [3] Computer
echo [4] Dokumente
echo [5] Sonstige Dateien
echo [6] Tagebuch
echo [7] Vorlagen
echo [0] Beenden
echo.

set asw=0
set /P asw="Auswahl: "

if %asw%==0 goto :EOF
if %asw%==1 goto ABR
if %asw%==2 goto BRIEFE
if %asw%==3 goto COMPUTER
if %asw%==4 goto DOKS
if %asw%==5 goto SONSTIGEDATEIEN
if %asw%==6 goto TAGEBUCH
if %asw%==7 goto VORLAGEN

:ABR
set DIRECTORY="d:\Abrechnungen"
set FILENAME=Abrechnungen
goto UPLOAD
:BRIEFE
set DIRECTORY="d:\Briefe"
set FILENAME=Briefe
goto UPLOAD
:COMPUTER
set DIRECTORY="d:\Computer"
set FILENAME=Computer
goto UPLOAD
:DOKS
set DIRECTORY="d:\Privat\Dokumente"
set FILENAME=Dokumente
goto UPLOAD
:SONSTIGEDATEIEN
set DIRECTORY="d:\Sonstige Dateien"
set FILENAME=Sonstige_Dateien
goto UPLOAD
:TAGEBUCH
set DIRECTORY="d:\Tagebuc"
set FILENAME=Tagebuch
goto UPLOAD
:VORLAGEN
set DIRECTORY="d:\Vorlagen"
set FILENAME=Vorlagen
goto UPLOAD

:UPLOAD
echo Sichere %FILENAME%
echo Packe %FILENAME%...
call 7z a d:\Computer\%FILENAME%.7z "%DIRECTORY%" -mx9 -mmt -p%pw1% -mhe -x!*.mp3
dir %FILENAME%.7z /W
echo Uebtrage %FILENAME% auf Server...
rem FTP-Scriptdatei erstellen
echo open zeus03.de>> script.ftp
echo %user%>> script.ftp
echo %pw%>> script.ftp
echo hash>> script.ftp
echo binary>> script.ftp
echo cd html/Admin/Backup>> script.ftp
echo lcd "d:\Computer">> script.ftp
echo put "%FILENAME%.7z">> script.ftp
echo close>> script.ftp
echo quit>> script.ftp
call ftp -s:script.ftp
rem Aufräumen
echo Loesche FTP-Scriptdatei...
del script.ftp
echo Loesche Archiv...
del %FILENAME%.7z
GOTO MENU
rem ***************************************************************************

:EOF


Alle Zeitangaben in WEZ +1. Es ist jetzt 13:44 Uhr.
Seite 3 von 3     123   

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz