TAKE FROM FTP4

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