i think this command is useful to you guy's... because on my Last Project... i really2 need this command... for you i present this command that i get from http://mc-computing.com/languages/Delphi/DelphiFileIO.htm...
   File Manager Commands 
See SysUtils / File-management routines and System / I/O routines
|    | |
|---|---|
| Change Directory | SetCurrentDir('c:\path') | 
| Make Directory | CreateDir('c:\path')                                 ForceDirectories('c:\path1\path2')  | 
| Remove Directory | RemoveDir('c:\path') RmDir(str)  | 
| Change Drive | (no known function) | 
| Rename a File | RenameFile('test.txt', 'string.tst')                               ChangeFileExt('test.txt', 'doc')  | 
| Delete a File | DeleteFile('c:\*.tst') - Don't know if wildcards are allowed | 
| Search for File | t_str := FileSearch('readme.txt', 'c:\;c:\windows');                               t_int := FindFirst ('c:\*.tst', attr, F) ;  | 
| Current Drirectory | t_str := GetCurrentDir ; | 
| Get File Attributes | temp = FileGetAttr('c:\filename.tst') | 
| Get File Mode | TSearchRec.Attr (use with FindFirst or FindNext) | 
| Set File Attributes | FileSetAttr('c:\filename.tst', faReadOnly) | 
| Get File Length | TSearchRec.Size                                  (use with FindFirst or FindNext)                                FileSize(var F)  | 
| Get File Date/Time | tempDate := FileGetDate(Handle) ; | 
| Set File Date/Time | FileSetDate(Handle, Age) | 
| Test File existance | if FileExists('c:\filename.tst') then | 
| Test Directory existance | if DirectoryExists('c:\temp') then | 
0 comments:
Post a Comment