'Non-UI application (console / server application)
#Region Project Attributes
#CommandLineArgs:
#MergeLibraries: True
#End Region
Sub Process_Globals
End Sub
Sub AppStart (Args() As String)
Dim cFile As String = "compiletime.txt"
Dim cDirFiles As String = "..\Files\"
Dim iComp As Int
Dim mmap As Map
'
mmap.Initialize
DateTime.DateFormat = "dd.MM.yyyy HH:mm:ss"
'
Try
mmap = File.ReadMap(cDirFiles,cFile)
iComp = mmap.Get("autoversion")
Catch
iComp = 0
End Try
iComp = iComp +1
'
mmap.Put("autoversion",iComp)
mmap.Put("time",DateTime.Now)
'
File.WriteMap(File.DirApp,cFile,mmap)
File.Copy(File.DirApp,cFile, "..\Files\",cFile)
End Sub