Программа размера файла

С помощью этой мини-программы вы может получить размер файла или директории. Вам нужна клавиша команды, чтобы запустить программу.

Код

PUBLIC SUB Button1_Click()
Dialog.OpenFile()
WITH Stat(Dialog.Path)
PRINT .Size; " K"
END WITH
END

Если вы хотите разместить размер в текстовой области, тогда вы должны выбрать следующие изменения:

PUBLIC SUB Button1_Click()
DIM mysize AS string
Dialog.OpenFile()
WITH Stat(Dialog.Path)
PRINT .Size; " K"
END WITH
TextArea1.Text = mysize & " K"
END

-- ReinerHoffmann - 09 Sep 2004