Einzelnen Beitrag anzeigen

Benutzerbild von _frank_
_frank_

Registriert seit: 21. Feb 2003
Ort: Plauen / Bamberg
922 Beiträge
 
Delphi 3 Professional
 
#12

Re: [batch] ordnernamen

  Alt 8. Jun 2008, 12:50
danke, du hast mich da auf eine idee gebracht, auch wenn man keine schleife dafür braucht
hab auch festgestellt, dass ich auch nur 1 ebene hoch muss

hier meine komplette batch, vielleicht nützt sie jemanden noch:
Code:
@echo off

cd %~dp0

rem removing backups
del /S *.~*
del /S *.dcu
del /S *.map
del /S *.drc
del /S _bak_\*.*
rmdir _bak_

goto getfoldername
:DirsUp
pushD ..
:getfoldername
rem getting name of current folder

rem replace spaces
set dir=%cd: =#%

rem parsing last foldername
for %%i in (%dir:\=,%) do set folder="%%i"

rem replace back to spaces
set folder=%folder:#= %
rem remove quotes
set folder=%folder:~1,-1%

rem echo %folder%
rem pause
if "%folder%"=="trunk" goto DirsUp

set zipname="%folder%.zip"
set _7za="D:\system\7-zip\7za.exe"
set exclude=-x!*.svn*

popd
%_7za% u -r -tzip %exclude% %zipname% .\

pause
Gruß Frank
  Mit Zitat antworten Zitat