Genau des hab ich gemacht...
:laugh:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
sub DATUM{
($sek,$min,$std,$tag,$mon,$jahr,$wtag)=localtime(time);
$mon=$mon+1;
if (length($mon) == 1){
$mon="0$mon";
}
if(length($tag) == 1){
$tag="0$tag";
}
if($std<10){
$sdt="0$std";
}
if($min<10){
$min="0$min";
}
$jahr=$jahr+1900;
$Uhrzeit= "$std:$min";
$Datum="$tag.$mon.$jahr";
}
sub MAIN{
DATUM;
$PCNAME="TESTNAME";
$ZIELB="C\:\\Testordner";
$POWERARC="C\:\\programme\\powerarchiver\\powerarc.exe";
$WINZIP="C\:\\programme\\Winzip\\wzzip.exe";
$ZIPPFAD="C\:\\TEMP\\ZIPTEST";
unless(-e "$ZIPPFAD\\$Datum"){
mkdir($ZIPPFAD,0777);
}
unless(-e $POWERARC){
unless(-e $WINZIP){
system("copy $ZIELB $ZIPPFAD");
print"$!\n";
unlink("$ZIELB");
}
else{
system("C\:\\programme\\Winzip\\wzzip.exe -a $ZIPPFAD\\$Datum\\$PCNAME\-$Uhrzeit $ZIELB\\*");
}
}
else{
system("C\:\\programme\\powerArchiver\\powerarc.exe -a $ZIPPFAD\\$Datum\\$PCNAME\-$Uhrzeit $ZIELB\\*");
}
}
MAIN;
is nurn auszug und die Pfadnamen, die ich angegeben hab, sin auch nur so zum Test da, weil ich nix zerstören will...
Den ganzen Code, weis ich nicht, ob ich reinstellen darf..
Hoff es hilft aweng