Multiple instances of FileOpen

[bradley1]

Okay, here's what I want to do:

I have two of the same program running at once, and they both modify a text file based on inputs from users. Is there an easy way to prevent the programs from trying two edit the text file at the same time?

I have tried:

While 1
   $File2 = FileOpen("c:\xyz.txt", 1)
   If $File2 <> -1 Then ExitLoop
   Sleep(50)
WEnd
FileWriteLine($File2,$Line)

Should this work properly? If so, my problem lies elsewhere...

[Valuater]

with what you have you need a

FileClose($File2)

also

8)

[The Kandie Man]

You could use a filelock command by calling the system API to prevent the file from being modified by any process but the one that is currently editing the file.

You could also have parent process augment the two processes you describe.

The most primative way would be to simply have it write to an ini file saying that it is currently writing to the file so that the other process can read the ini file before it write and see that the file is already currently being modified.

[bradley1]

Okay, it's very primitive, but I think this will do the trick:

While 1
  $File = FileOpen($xyz, 1)
  If $File <> -1 And FileExists($WorkingWithFile) = 0 Then
    $File3 = FileOpen($WorkingWithFile, 2)
    ExitLoop
  EndIf
  Sleep(50)
WEnd

;after it's done updating the file.....

FileClose($File)
FileClose($File3)
FileDelete($WorkingWithFile)

Is there any foreseeable problem with this? I'm thinking it should work...testing in progress...

P.S. You guys rock

[bradley1]

Okay, it's very primitive, but I think this will do the trick:

While 1
  $File = FileOpen($xyz, 1)
  If $File <> -1 And FileExists($WorkingWithFile) = 0 Then
    $File3 = FileOpen($WorkingWithFile, 2)
    ExitLoop
  EndIf
  Sleep(50)
WEnd

;after it's done updating the file.....

FileClose($File)
FileClose($File3)
FileDelete($WorkingWithFile)

Is there any foreseeable problem with this? I'm thinking it should work...testing in progress...

P.S. You guys rock

This seems to do the trick. No problems thus far.