Uvek taze FrontEnd
28.04.2010. u 09:59 · pre 200 meseci
#1
Verovatno je i ranije o ovome bilo reči, ali ipak evo ga jedan jednostavan a efikasan skriptić koji omogućava da korisnici u lokalnoj mreži, na svojim računarima uvek imaju aktuelnu verziju FrontEnd aplikacije.
Dakle, skript pri startovanju proverava da li je datum FE fajla na lokalnom disku noviji od onoga na deljenom folderu u mreži (serveru), na kome je aktuelna verzija, i ukoliko to nije slučaj, kopira fajl sa servera na lokal, pa zatim startuje lokalnu verziju...
Skript snimite sa .vbs ekstenzijom i postavite ga kao shortcut na klijentskim računarima.
Code:
Const OverwriteExisting = TRUE
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objLocalFile = objFSO.GetFile("D:\FOLDER\Program_FE.mde")
dtmLocalDate = objLocalFile.DateLastModified
Set objServerFile = objFSO.GetFile("\\Server\Share\Program_FE.mde")
dtmServerDate = objServerFile.DateLastModified
If dtmLocalDate < dtmServerDate Then
objFSO.CopyFile objServerFile.Path, objLocalFile.Path, OverwriteExisting
End If
Sub Run(ByVal sFile)
Dim shell
Set shell = CreateObject("WScript.Shell")
shell.Run Chr(34) & sFile & Chr(34), 1, false
Set shell = Nothing
End Sub
Run "D:\FOLDER\Program_FE.mde"
Const OverwriteExisting = TRUE
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objLocalFile = objFSO.GetFile("D:\FOLDER\Program_FE.mde")
dtmLocalDate = objLocalFile.DateLastModified
Set objServerFile = objFSO.GetFile("\\Server\Share\Program_FE.mde")
dtmServerDate = objServerFile.DateLastModified
If dtmLocalDate < dtmServerDate Then
objFSO.CopyFile objServerFile.Path, objLocalFile.Path, OverwriteExisting
End If
Sub Run(ByVal sFile)
Dim shell
Set shell = CreateObject("WScript.Shell")
shell.Run Chr(34) & sFile & Chr(34), 1, false
Set shell = Nothing
End Sub
Run "D:\FOLDER\Program_FE.mde"
Dakle, skript pri startovanju proverava da li je datum FE fajla na lokalnom disku noviji od onoga na deljenom folderu u mreži (serveru), na kome je aktuelna verzija, i ukoliko to nije slučaj, kopira fajl sa servera na lokal, pa zatim startuje lokalnu verziju...
Skript snimite sa .vbs ekstenzijom i postavite ga kao shortcut na klijentskim računarima.
Re: Uvek taze FrontEnd