OLEObject 	obj_shell, obj_folder, obj_item

obj_shell = CREATE OLEObject
obj_shell.ConnectToNewObject( 'shell.application' )

IF FileExists(ls_file) THEN
    obj_folder = obj_shell.NameSpace( ls_path )
    IF IsValid( obj_folder ) THEN
	obj_item = obj_folder.ParseName( ls_file)
	ls_size = obj_folder.GetDetailsOf( obj_item,  1  ) //   5 , 378  KB
    END IF
END IF