* do cacls.cmd for read/write access IF ! EMPTY(lcCompName) * create a temp batch file *data dir STRTOFILE([cacls "]+lcPath1+[" /E /G IUSR_]+lcCompName+[:W] + CHR(13)+CHR(10),THIS.cAppStartPath+"temp.cmd",.T.) STRTOFILE([cacls "]+lcPath1+[" /E /G IWAM_]+lcCompName+[:W] + CHR(13)+CHR(10),THIS.cAppStartPath+"temp.cmd",.T.) STRTOFILE([cacls "]+lcPath1+[" /E /G IUSR_]+lcCompName+[:R] + CHR(13)+CHR(10),THIS.cAppStartPath+"temp.cmd",.T.) STRTOFILE([cacls "]+lcPath1+[" /E /G IWAM_]+lcCompName+[:R] + CHR(13)+CHR(10),THIS.cAppStartPath+"temp.cmd",.T.) *error log dir STRTOFILE([cacls "]+lcPath2+[" /E /G IUSR_]+lcCompName+[:W] + CHR(13)+CHR(10),THIS.cAppStartPath+"temp.cmd",.T.) STRTOFILE([cacls "]+lcPath2+[" /E /G IWAM_]+lcCompName+[:W] + CHR(13)+CHR(10),THIS.cAppStartPath+"temp.cmd",.T.) *app temp dir STRTOFILE([cacls "]+lcPath3+[" /E /G IUSR_]+lcCompName+[:W] + CHR(13)+CHR(10),THIS.cAppStartPath+"temp.cmd",.T.) STRTOFILE([cacls "]+lcPath3+[" /E /G IWAM_]+lcCompName+[:W] + CHR(13)+CHR(10),THIS.cAppStartPath+"temp.cmd",.T.) *general temp dir STRTOFILE([cacls "]+lcPath4+[" /E /G IUSR_]+lcCompName+[:W] + CHR(13)+CHR(10),THIS.cAppStartPath+"temp.cmd",.T.) STRTOFILE([cacls "]+lcPath4+[" /E /G IWAM_]+lcCompName+[:W] + CHR(13)+CHR(10),THIS.cAppStartPath+"temp.cmd",.T.) *individual data files FOR lnI = 1 TO lnFileCount STRTOFILE([cacls "]+lcPath1+[\]+laDataFiles(lnI,1)+[" /E /G IUSR_] +lcCompName+[:W] + CHR(13)+CHR(10),THIS.cAppStartPath+"temp.cmd",.T.) STRTOFILE([cacls "]+lcPath1+[\]+laDataFiles(lnI,1)+[" /E /G IWAM_]+lcCompName+[:W] + CHR(13)+CHR(10),THIS.cAppStartPath+"temp.cmd",.T.) STRTOFILE([cacls "]+lcPath1+[\]+laDataFiles(lnI,1)+[" /E /G IUSR_]+lcCompName+[:R] + CHR(13)+CHR(10),THIS.cAppStartPath+"temp.cmd",.T.) STRTOFILE([cacls "]+lcPath1+[\]+laDataFiles(lnI,1)+[" /E /G IWAM_]+lcCompName+[:R] + CHR(13)+CHR(10),THIS.cAppStartPath+"temp.cmd",.T.) ENDFOR>Hi