Sub FileReplace
Dim File1 As String
File1 = Map1.Get("File1Status")
log(File1) 'or use MsgBox(File1 ,"")
If File1 <> "updated" Then
File.Delete(File.DirInternal,"File1.txt")
File.Copy(File.DirAssets,"File1.txt",File.DirInternal,"File1.txt")
log("Replaced File...") 'or Msgbox("Replaced File...", "")
Map1.Put("File1Status","updated")
File.WriteMap(File.DirInternal,"Map.dat",Map1)
End If
End Sub