Поиск файла с Unicode-символами

В привиденном ниже примере файл находиться в 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

Автор публикации

не в сети 16 лет

technik

0
Комментарии: 0Публикации: 1Регистрация: 15-11-2006
Оставить комментарий
Авторизация
*
*
Генерация пароля