Здравствуйте товарищи.
Прошу помощи в решении проблемы:
при использовании БД на сетевом ресурсе у пользователя появляется ошибки в результате использование механизма синхронизации файлов - "Автономные файлы", а именно создаются дублирующие файлы "tablename(bodasia v1).dbf" v2 и т. д. по причине использования БД несколькими пользователями. Возможно ли как то проверять файлы БД при открытии на то являются ли они "Автономными файлами".
Заранее спасибо.

Dima T,

Это не то

проблема в том что я не могу этого сделать так как не контактирую с пользователями, да и пользователей программы очень много, к тому же хочется именно программно прописать это так как написать в условиях пользования всегда можно: не использовать оффлайновые сервисы виндовс для БД. Но это как то не очень гуд

http://support.microsoft.com/kb/884739 вот кое что нарыл, но не могу разобраться как ее прикрутить может кто то подскажет?

Dima T,

http://www.microsoft.com/en-us/download/details.aspx?id=17657

Bodasia,

* Ïðîâåðêà OfflineFile
Local cFileName, objOfflineFile, objFSO, cPathFile, cFullDBPath
cFileName = oSystem.PathTemp + "OfflineFile.tmp"
If(cDBPath # "\\")
Local lcDrive, lcBuf, lnLen, k
Declare integer WNetGetConnection in mpr.dll string, string @, integer @
lcDrive = Left(cDBPath, 2)
lcBuf = Replicate(Chr(0),256)
lnLen = 0
k = WNetGetConnection(lcDrive,0,@lnLen)
If k = 234
WNetGetConnection(lcDrive,@lcBuf,@lnLen)
cFullDBPath = Alltrim(Left(lcBuf,lnLen-1)) + Substr(cDBPath,3)
cFullDBPath = Left(cFullDBPath, Len(cFullDBPath)-1)
EndIf
Else
cFullDBPath = cDBPath
EndIf

Run C:\CSCCMD /ENUM /RECURSE >&cFileName

objFSO = CreateObject('Scripting.FileSystemObject')
objOfflineFile = objFSO.OpenTextFile(cFileName)
Do While not objOfflineFile.AtEndOfStream
cPathFile = objOfflineFile.ReadLine()
If cPathFile = "\\" and not Empty(cFullDBPath)
If cPathFile = cFullDBPath
cErrMsg = 'Â âûáðàííîì êàòàëîãå ñîäåðæàòñÿ ôàéëû ñ àòðèáóòîì "Àâòîíîìíûå ôàéëû".'; &&4rs
+ Chr(13) + RsStr('LOGIN_SCX', 'Message16', 'Ñâÿæèòåñü ñ àäìèíèñòðàòîðîì ñåòè.')
Return .F.
EndIf
EndIf
EndDo
objOfflineFile.Close()
Delete File cFileName