В привиденном ниже примере файл находиться в 4х из шести методов. Т.е. ADIR() и sys(2000) по короткому пути и FSO.FileExists() как по короткому так и по полному. Если COMPROP() убрать, то только по короткому
CLEAR all show_dir(GETDIR()) RETURN FUNCTION show_dir(cFolder) oFSO=CreateObject("Scripting.FileSystemObject") loDir=oFSO.GetFolder(cFolder) COMPROP(oFSO, "UTF8", 1) FOR EACH loFolder IN loDir.SubFolders LOCAL ARRAY aFile[1,5] FOR EACH oFile IN loDir.Files COMPROP(oFile, "UTF8", 1) ? "---------------------------------" ?(oFile.Path) + CHR(9); + iif(File(oFile.Path),"-НАЙДЕН!", "-не найден...") ?(oFile.ShortPath) + CHR(9); + iif(!EMPTY(SYS(2000,oFile.ShortPath)),"-НАЙДЕН!", "-не найден...") ?(oFile.ShortPath) + CHR(9); + iif(adir(aFile,oFile.ShortPath, "SH")>0,"-НАЙДЕН!", "-не найден...") ?(oFile.Path) + CHR(9); + iif(adir(aFile,oFile.Path, "SH")>0,"-НАЙДЕН!", "-не найден...") ?(oFile.ShortPath) + CHR(9); + iif(oFSO.FileExists(oFile.ShortPath),"-НАЙДЕН!", "-не найден...") ?(oFile.Path) + CHR(9); + iif(oFSO.FileExists(oFile.Path),"-НАЙДЕН!", "-не найден...") ENDFOR ENDFOR RETURN
Автор публикации
Комментарии: 0Публикации: 1Регистрация: 15-11-2006