Отправлено: 19.08.24 10:04. Заголовок: Logo LetoDb ?

Кто подскажет, есть ли официальный логотип LetoDb ?
И где его можно скачать ?

 Отправлено: 22.08.24 09:47. Заголовок: Привет !

Нашел я у себя ето, не помню кто делал https://postimg.cc/CRRGcqr9

 Отправлено: 22.08.24 11:41. Заголовок: Спасибо. Сделал пока..

Спасибо.
Сделал пока такое...

 Отправлено: 23.08.24 00:36. Заголовок: Как можно получить с..

Как можно получить список всех файлов на сервере LetoDB с корневого каталога ?

 Отправлено: 23.08.24 02:29. Заголовок: Как можно получить с..

Как можно получить список всех файлов на сервере LetoDB с корневого каталога ?
Корневым каталогом LetoDbf будет из ini DataPath = .\DataBase\
LetoDbf. Readme.txt

 
 ... 
       7.6 File functions 
 ... 
       Leto_Directory( [ cDir ] [, cnAttr] )                    ==> aDirectory 
  Returns a content of directory at the server in the same format as Directory() function. 
  With no given <cDir> the DataPath root directory is used. 
 ... 
 

Можешь написать UDF функцию, запустив на сервере ее, можешь определить массив (что будет доступно) ф-ей hb_Directory(), вернув из UDF полученный массив (мне ни разу не понадобилось)

 Отправлено: 23.08.24 08:06. Заголовок: Да это читал. Только..

Да это читал.
Только папки вложенные могут быть.
Как в таком случае делать ?

Использую уже давно DirectoryRecurse(...)
Думал есть похожая функция уже в LetoDB.

 Отправлено: 23.08.24 09:11. Заголовок: Andrey пишет Как в т..

Andrey пишет

цитата:

Как в таком случае делать ?

Как обычно, применяя вместо Directory() leto_Directory(), т.е.
aDir := leto_directory()
показал, выбрал cDir
aDir := leto_directory(cDir)
и т.д. - это диалог или поправь DirectoryRecurse(...) на исп. leto_directory()

 Отправлено: 23.08.24 10:19. Заголовок: Не благодари http://..

Не благодари
http://clipper.borda.ru/?1-4-0-00001051-000-0-0-1427848859
DirEval()
В ней можно заменить Directory() на leto_Directory()

 Отправлено: 23.08.24 11:23. Заголовок: Dima пишет: DirEval..

Dima пишет:

цитата:

DirEval()

Не пашет ...

   aList := DirEval( GetStartUpFolder()  )  
    ? "aList=", aList 
 

В логе:

 aList=   ARRAY[0] 

 Отправлено: 23.08.24 12:08. Заголовок: Вот так работает: Fu..

Вот так работает:

Function DirEval2( cInitDir, lStart )  
 Local i, arlen, aFiles, aDop, aFRet := {}  
 Default lStart := .T. 
   
    IF Right( cInitDir,1 ) != "\" 
       cInitDir += "\" 
    ENDIF  
  
    aFiles := Directory( cInitDir + "*.*", "HSD" )  
    arlen := Len( aFiles )  
    FOR i := 1 TO arlen  
       IF "D" $ aFiles[ i,5 ]  
          IF "." != aFiles[ i,1 ] .AND. ".." != aFiles[ i,1 ]  
             aDop := DirEval2( aFiles[i,1] )  
             AMERGE(aFRet, aDop) 
          ENDIF  
       ELSE  
          IF lStart  
             aFiles[i,1] := UPPER(cInitDir) + LOWER(aFiles[i,1]) 
          ENDIF 
          AADD( aFRet, aFiles[i,1] ) 
       ENDIF  
    NEXT  
  
 Return aFRet 

 Отправлено: 23.08.24 12:52. Заголовок: Andrey пишет: IF Ri..

Andrey пишет:

цитата:

IF Right( cInitDir,1 ) != "\" cInitDir += "\" ENDIF

cInitDir:=hb_DirSepAdd(cInitDir) // так проще

 Отправлено: 23.08.24 13:08. Заголовок: Если у Leto_Director..

Если у Leto_Directory такие же параметры , то Directory() нужно заменить на неё