Mangler kode til månedsbackup

Option Explicit
Const NtBackup="C:\WINNT\system32\NTBACKUP.EXE Backup"

'I Hst
Const NtbackupPath="@C:\Documents and Settings\Ingeman Andersen\Local Settings\Application Data\Microsoft\Windows NT\NTBackup\data\Backup af Fildrev.bks"
Const NtBackUpfolder="F:\Backup\"

'I Bst
'Const NtbackupPath="@C:\Documents and Settings\Administrator\Local Settings\Application Data\Microsoft\Windows NT\NTBackup\data\Backup af Fildrev.bks"
'Const NtBackUpfolder="E:\Backup\"

Dim folder,ShellObj,str,BackUpParam,objFSO,files,Fn

'Gennemløber folder og sletter de filer som er ældre end 60 dage

sub ChkDelFolder(f)
  set files = f.Files
  for each folder in f.Subfolders
    ChkDelFolder(folder)
  next
  for each f in files
    if datediff("d",f.DateLastModified,now())>60 then
      f.delete
    end if
  next
end sub

   
set objFSO = CreateObject("Scripting.FileSystemObject")
set folder = objFSO.getFolder(NtBackUpFolder)
    ChkDelFolder(folder)
set folder = nothing
set objFSO = nothing
'-----------------------------------------------------------------

'Laver fuld backup
'det skal defineres af hvad i  'Backup af Fildrev.bks'

function tocifre(d)
    if len(d)=1 then
        d="0" &d
    end if
    tocifre=d
end function

Fn="Day-" & year(date()) & tocifre(month(date())) & tocifre( day(date()))
Fn=Fn & " " & left(weekdayname(weekday(date()),0,vbsunday),3) &" " &  tocifre(day(date())) & "." & monthname(month(date())) & " " & year(date()) & " " & Replace(left(time(),5),":",".")

BackUpParam=" /n """&Fn&""" /d """&Fn&""" /v:yes /r:no /rs:no /hc:off /m normal /j  ""Backup af Fildrev.job"" /l:s /f  """& NtBackUpFolder &"" & Fn &".bkf"" "
str =NtBackUp &" """& NtBackupPath &"""" & BackUpParam

set ShellObj = WScript.CreateObject("WScript.Shell")
ShellObj.run str,,true
set shellObj=nothing
 
Ovenstående kode kører hver nat 23.55 og laver et backup - koden skal udvides så den checker for om det er sidste hverdag i måneden - skal bruges til månedsbackup.