title image


Smiley Versuch's mal so
Dim WSHShell, oExec



StrTimeStamp=DatePart("yyyy",date)



If Len(DatePart("m", date))=1 THEN

StrTimeStamp = StrTimeStamp & "-0" & DatePart("m",date)

Else

StrTimeStamp = StrTimeStamp & "-" & DatePart("m",date)

End If



If Len(DatePart("d", date))=1 THEN

StrTimeStamp = StrTimeStamp & "-0" & DatePart("d",date)

Else

StrTimeStamp = StrTimeStamp & "-" & DatePart("d",date)

End If



If Len(DatePart("h", Time))=1 THEN

StrTimeStamp = StrTimeStamp & "-0" & DatePart("h",Time)

Else

StrTimeStamp = StrTimeStamp & "-" & DatePart("h",Time)

End If



If Len(DatePart("n", Time))=1 THEN

StrTimeStamp = StrTimeStamp & "-0" & DatePart("n",Time)

Else

StrTimeStamp = StrTimeStamp & "-" & DatePart("n",Time)

End If



strDatei="E:\DATA\*.*"

strArchiv="I:\DATA" & strtimestamp & ".ZIP"



Set WSHShell = WScript.CreateObject("WScript.Shell")

Set oExec = WshShell.Exec("D:\Programme\WinZip\wzzip -a -r -P " & strArchiv & " " & strDatei)



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: