With this miniprogram you can get the size of a file or a directory. You need a commandbutton to get the program going.
The Code
PUBLIC SUB Button1_Click() Dialog.OpenFile() WITH Stat(Dialog.Path) PRINT .Size; " K" END WITH END
If you want to put the size in a textarea, then you have to choose the following variation:
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