Håller på med ett Script som ska ta backup på våran bokning varje dag 02:00.
Har hittat en gratis komponent som man via vbscript kan skapa en zip fil.
BkupBok.vbs ser ut såhär.
Set objZip = CreateObject("XStandard.Zip")
objZip.Pack "C:\Bokning\*.dat", "C:\Install\Backup\"& Date() &".zip"
Set objZip = Nothing
Set fso=CreateObject("Scripting.FileSystemObject")
If fso.FileExists ("C:\Install\Backup\"& Date() &".zip") Then
fso.CopyFile "C:\Install\Backup\"& Date() &".zip", "Q:\BackupBok\"
if fso.FileExists ("Q:\BackupBok\"& Date() &".zip") Then
fso.DeleteFile ("C:\Install\Backup\"& Date() &".zip")
Else
MsgBox "Filen Kopierades Inte!"
End if
MsgBox "Bokningen säkerhetskopierades "& Now() &"."& vbcrlf & vbcrlf &"Daniel fixade eget backup program :P"
Else
MsgBox "Filen Fanns inte!"
End if
Set fso = Nothing
Koden funkar utmärkt när ja klickar på .vbs filen men när ja lägger in filen i schemaläggaren så skapas zip-filen men vägrar att kopieras över till Q: vilket är en ansluten nätverksenhet.
Antar att det har med rättigheter att göra nånstans och att det igentligen inte handlar om mitt script och att detta inlägg säkert borde ligga i nått helt annat forum.
Men om nån kunde ge mig lite tips på vad som kan strula vore jag mer än tacksam...