TAKE FROM FTP4

Материал из Фабиус wiki
Версия от 17:06, 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, 'окончание приема' )

Смотрите также

Полезные функции

Функции Delphi