Hi... guys... Pada saat mengerjakan Tugas Akhir, penulis menemukan kesulitan untuk mencari beberapa keyword delphi untuk memanajemen file (baik itu delete, create, maupun mengetahui properties dari file dan folder)... Usut punya usut setelah melakukan searching di google, sengaja atau tidak sengaja.. penulis menemukan alamat ini.. LINK ..... Adapun perintah managemen file yang ditemukan disana.. akan penulis ketik ulang seperti berikut.
| 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 |
-----------------------------------SELAMAT BER.DELPHI RIA-----------------------------
1 comments:
wah kebetulan nih lagi ada tugas hehehe.....
ijin copy.....
Post a Comment