Új hozzászólás Aktív témák

• #10904 ollie MODERÁTOR sbazsi #10902

  Új Válasz 2009-11-27 12:22:29 #10904

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  ollie

  MODERÁTOR

  válasz sbazsi #10902 üzenetére

  Ezt lemented VBS kiterjesztéssel, majd beteszed a feladat ütemezőbe, hogy naponta futtassa:

  Option Explicit
  On Error Resume Next
  
  dim FileSys, Target
  set FileSys=CreateObject("Scripting.FileSystemObject")
  
  MsgBox "Mentsd el a munkád, lépj ki a programból, majd kattints az 'OK' gombra"
  
  Target = "c:\Path\archive\archive_" & year(date) & month(date) & day(date) & ".file"
  FileSys.CopyFile "c:\Path\filename.ext", Target, true

  Persze a megfelelő részen be kell helyettesíteni a programnevet és elérési utat.

Új hozzászólás Aktív témák