TAKE FROM FTP4
Материал из Фабиус wiki
Версия от 17:05, 26 февраля 2018; Hisava (обсуждение | вклад)
TAKE_FROM_FTP4 - это программа из справочника R266
Конец
TAKE_FROM_FTP4()
Текст
local temp_path, aa, name name := 'Fill_and_dance.txt' temp_path := Nice_Path( ExpandUNCFileName( TempPath ) ) aa := Rat( '\', temp_path ) temp_path := Left( temp_path, aa - 1 ) aa := Rat( '\', temp_path ) temp_path := Left( temp_path, aa - 1 ) temp_path := Nice_Path( temp_path ) temp_path := temp_path + '_' if !DirectoryExists( temp_path ) CreateDir( temp_path, true ) endif temp_path := Nice_Path( temp_path ) WRITELINETOTXTFILE( temp_path, name, 'окончание приема' )