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 |