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