Здравствуйте!
Проблема ,вроде бы обсуждалась, но эту тему на форуме я не нашел.
Программа Бэст4.
Нижеследующий плагин работает нормально, если путь к открываемому файлу состоит из латинских символов.
Если файл,который нужно открыть находится в подпапке,имя которой содержит кириллицу,то программа ругается на отсутствие файла.Как победить?
Private aDbf,aSet,aSetKey
Private nt,nL,_do,Path,Path_1,cMaska
nt:=10
nL:=10
Path:="C:\temp\base2010\"
cMaska:={"DBF"}
dbPush()
aSet:=SaveSet()
aSetKey:=SaveSetKey()
//sayandwait("Выбираем только файлы справочников.ВЫбор осуществляется до нажатие ESC")
_do := .t.
Do While _do
If LastKey() == 27
_do := .F.
else
Path_1:=Select_Files( nT, nL, Path,cMaska)
sayandwait(Path_1)
NETUSE('_SPRAV',Path_1[1])
sayandwait(alias()+' '+Path_1[1])
_SPRAV->( DbCloseArea())
endif
enddo
RestSetKey(aSetKey)
RestSet(aSet)
dbpop()
Заранее спасибо.
Проблема ,вроде бы обсуждалась, но эту тему на форуме я не нашел.
Программа Бэст4.
Нижеследующий плагин работает нормально, если путь к открываемому файлу состоит из латинских символов.
Если файл,который нужно открыть находится в подпапке,имя которой содержит кириллицу,то программа ругается на отсутствие файла.Как победить?
Private aDbf,aSet,aSetKey
Private nt,nL,_do,Path,Path_1,cMaska
nt:=10
nL:=10
Path:="C:\temp\base2010\"
cMaska:={"DBF"}
dbPush()
aSet:=SaveSet()
aSetKey:=SaveSetKey()
//sayandwait("Выбираем только файлы справочников.ВЫбор осуществляется до нажатие ESC")
_do := .t.
Do While _do
If LastKey() == 27
_do := .F.
else
Path_1:=Select_Files( nT, nL, Path,cMaska)
sayandwait(Path_1)
NETUSE('_SPRAV',Path_1[1])
sayandwait(alias()+' '+Path_1[1])
_SPRAV->( DbCloseArea())
endif
enddo
RestSetKey(aSetKey)
RestSet(aSet)
dbpop()
Заранее спасибо.