Fix archive bit trick for PO(T) scripts [hopefully finally]

diff --git a/Src/Languages/CreateMasterPotFile.vbs b/Src/Languages/CreateMasterPotFile.vbs
index 68702c3..5ade73a 100644 (file)
--- a/Src/Languages/CreateMasterPotFile.vbs
+++ b/Src/Languages/CreateMasterPotFile.vbs
@@ -52,7 +52,7 @@ Sub Main
     SetArchiveBit "MergeLang.rc", False
     For Each oFile In oFSO.GetFolder(".").Files 'For all files in the current folder...
       If (LCase(oFSO.GetExtensionName(oFile.Name)) = "po") Then 'If a PO file...
-        oFile.Attributes = oFile.Attributes XOR 32 'Set archive bit!
+        SetArchiveBit oFile.Path, True
       End If
     Next
     
@@ -357,11 +357,11 @@ Sub SetArchiveBit(ByVal sFilePath, ByVal bValue)
     Set oFile = oFSO.GetFile(sFilePath)
     If (oFile.Attributes AND 32) Then 'If archive bit set...
       If (bValue = False) Then
-        oFile.Attributes = oFile.Attributes XOR 32
+        oFile.Attributes = oFile.Attributes - 32
       End If
     Else 'If archive bit NOT set...
       If (bValue = True) Then
-        oFile.Attributes = oFile.Attributes XOR 32
+        oFile.Attributes = oFile.Attributes + 32
       End If
     End If
   End If

diff --git a/Src/Languages/UpdatePoFilesFromPotFile.vbs b/Src/Languages/UpdatePoFilesFromPotFile.vbs
index 3887ae5..c7d5233 100644 (file)
--- a/Src/Languages/UpdatePoFilesFromPotFile.vbs
+++ b/Src/Languages/UpdatePoFilesFromPotFile.vbs
@@ -224,11 +224,11 @@ Sub SetArchiveBit(ByVal sFilePath, ByVal bValue)
     Set oFile = oFSO.GetFile(sFilePath)
     If (oFile.Attributes AND 32) Then 'If archive bit set...
       If (bValue = False) Then
-        oFile.Attributes = oFile.Attributes XOR 32
+        oFile.Attributes = oFile.Attributes - 32
       End If
     Else 'If archive bit NOT set...
       If (bValue = True) Then
-        oFile.Attributes = oFile.Attributes XOR 32
+        oFile.Attributes = oFile.Attributes + 32
       End If
     End If
   End If