Tuesday, April 7, 2009

Perintah delphi untuk manajemen file

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
AdjustLinesBreaks(const S: string): string; - adjusts all line breaks in the string S to be true CR/LF

-----------------------------------SELAMAT BER.DELPHI RIA-----------------------------

1 comments:

L The Lionheart said...

wah kebetulan nih lagi ada tugas hehehe.....
ijin copy.....

Post a Comment