Lib_jsr75ex-  
  jsr75;
    , 
   Pascal.

JAVA:

public static int no_files()
public static String findfirst(String target)
public static String findnext()
public static int mkdir(String target)
public static int is_directory(String target)
public static int directory_size(String target)
public static int file_size(String target)
public static int available_size(String target)
public static int total_size(String target)
public static int used_size(String target)
public static int can_read(String target)
public static int can_write(String target)
public static int is_hidden(String target)
public static int rename(String old,String target)
public static void set_hidden(String target,int flag)
public static int file_exists(String target)

PASCAL:

function no_files:integer;
function findfirst(target:string):string;
function findnext:string;
function mkdir(target:string):integer;
function is_directory(target:string):integer;
function directory_size(target:string):integer;
function file_size(target:string):integer;
function available_size(target:string):integer;
function total_size(target:string):integer;
function used_size(target:string):integer;
function can_read(target:string):integer;
function can_write(target:string):integer;
function is_hidden(target:string):integer;
function rename(old:string;target:string):integer;
function file_exists(target:string):integer;
proceure set_hidden(target:string;flag:integer);


 set_hidden / 
"" .
 flag    1  0, 
1- , 0-.

 
function directory_size(target:string):integer;
function file_size(target:string):integer;
function available_size(target:string):integer;
function total_size(target:string):integer;
function used_size(target:string):integer;
 : 
  target
  target
    target
   target
    target


function no_files:integer;
function findfirst(target:string):string;
function findnext:string;
     target
 
no_files  1     
   0     

function findfirst(target:string):string; 
    target 
    
 
function findnext:string;
       
(no_files  1  findnext  '')
    /

function is_directory(target:string):integer;
,   target 
 1    0  


function can_read(target:string):integer;
function can_write(target:string):integer;
,   target  /
 1    0  

function is_hidden(target:string):integer;
,   target 
 1    0  


function rename(old:string;target:string):integer;
 /? old( c:/file.txt)target
( name.txt)  1    
 0   


function mkdir(target:string):integer;
  target
 1    
 0   

 function file_exists(target:string):integer;
 1  ,   target , 
  0.

:
   
<drive>:/
   
<drive>:/dir/
   
<drive>:/dir/file.txt
 ! 


    
  
!    
  .

!
  
   !

   SonyEricsson k510i
  Halmer

     .

(C) ViNT


