CTAC-KOПривет!
Возможно это очередное "открытие америки через форточку", но столкнулся с такой непоняткой:
lcCmd = 'DEL /F /S /Q ' + ADDBS(SYS( 2023 )) + '*.*'
Америку в форточках ты будешь открывать когда это заработает. SYS(2023) - это TEMP текущей пользовательской сессии, т.е. всех запущенных программ. Представь ситуацию - какая-нибудь прога создала временный файл, закрыла, после отработал твой чудокод, похерил этот файл, а та прога хочет обратно файл прочитать ...
Там же фоксового рантайма временные файлы живут. Не знаю как в VFP, а если у запущенного FPD поудалять *.tmp то он после этого почти сразу вылетает.
Я нахожу уже имеющуюся подпапку (одноименную с EXE) и делаю ее рабочей. Только пути до файлов проекта надо полностью прописывать в CONFIG.FPW
Чтобы две копии проги не работали в одной папке - создаю файл work.flg и держу открытым пока прога работает. Остальное из кода понятно.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
* Установка временной папки как текущей
func SetTempFolder
local lcPath, i
if type('gnWorkFolderHandle') = 'U'
public gnWorkFolderHandle
if justext(sys( 16 , 0 )) != 'exe'
* При работе из IDE
if right(addbs(sys( 2003 )), 5 ) != '\TMP\'
if !directory('tmp')
mkdir tmp
endif
TRY
delete File (addbs(sys( 5 ) + sys( 2003 )) + 'tmp\*.*')
CATCH
ENDTRY
set Default To (addbs(sys( 5 ) + sys( 2003 )) + 'tmp')
endif
else
* При работе EXE
lcPath = addbs(getenv("TMP"))
if empty(lcPath)
lcPath = addbs(fullpath(''))
endif
for i = 0 to 1000
lcDir = lcPath + GetExeName() + iif(i = 0 , '', astr(i))
if !directory(lcDir)
mkdir (lcDir)
endif
gnWorkFolderHandle = fcreate(lcDir + '\work.flg')
if gnWorkFolderHandle >= 0
fclose(gnWorkFolderHandle)
TRY
delete File (addbs(lcDir) + '*.*')
CATCH
ENDTRY
gnWorkFolderHandle = fcreate(lcDir + '\work.flg')
if gnWorkFolderHandle >= 0
exit
endif
endif
endfor
if gnWorkFolderHandle < 0
wait 'Не удалось выбрать временную папку' window timeout 3
cancel
else
set Default To (lcDir)
endif
endif
endif
return
delete File (addbs(lcDir) + '*.*') удаляет до первого открытого файла, потому и TRY. Если под шаблон попало 10 файлов, из них 3-й оказался открыт, то в итоге будут удалены первые два, остальные останутся.
