Arsip: apikasi untuk me-Rename file

 
user image
more 18 years ago

jarangkonek

Mas2&Mbak2 Delphi-id-ers.. Informasinya donk. ada gak program delphi yang me-rename file. kebetulan aku disuruh rename file tp jumlahnya ribuan file .jpg dan .mpg dalam satu folder. format file nya sih hampir sama semua. contoh: 123456 - apapun_caranya-ini_harushilang.jpg atau 234567 - ini_juga_ilang.mpg harus direname menjadi 123456.jpg dan 234567.mpg sekarang ini sih saya rename secara manual. klo ada sourceCodenya atau aplikasinya yg udah jd juga boleh. matur nuwun sanget yeeeee....
user image
more 18 years ago

mas_kofa

pake komponen filelistbox lalu tentukan directory-nya ke folder tersebut

listbox1.directory := foldergambar;
lalu scan file pada filelistbox

for i := 0 to filelistbox1.items.count - 1 do
begin
   filelistbox1.itemindex := i;
   ext := extractfileext(filelistbox1.filename); // ambil extensi file,
   renamefile(filelistbox1.filename,nama_baru_file + ext;
end;
selamat mencoba S'moga menjadi ilmu yang bermanfaat..............
user image
more 18 years ago

jarangkonek

@mas_kofa:

for i := 0 to filelistbox1.items.count - 1 do
begin
   filelistbox1.itemindex := i;
   ext := extractfileext(filelistbox1.filename); // ambil extensi file,
   renamefile(filelistbox1.filename,nama_baru_file + ext;
end;
Bro Kofa maksih ya atas script nya...diatas tp mau tny lagi nih untuk baris

   renamefile(filelistbox1.filename,nama_baru_file + ext;
nah, nama_baru_file ini didapat dari 6 baris pertama nama file tersebut filelistbox1.filename berati kita harus mendefinisikan nama_baru_file := ???
user image
more 18 years ago

mas_kofa

nah, nama_baru_file ini didapat dari 6 baris pertama nama file tersebut filelistbox1.filename
6 baris pertama ???? atau 6 huruf pertama ??? kalo 6 huruf pertama tambahin / rubah coding jd sbb : for i := 0 to filelistbox1.items.count - 1 do begin filelistbox1.itemindex := i; nf := extractfilename(filelistbox1.filename); ext := extractfileext(filelistbox1.filename); // ambil extensi file, renamefile(filelistbox1.filename,copy(nf,1,6) + ext); end;
user image
more 18 years ago

jarangkonek

hehe...tul 6 huruf pertama... makasih ya atas scripnya Bro mas kofa...
more ...
  • Pages:
  • 1
Share to

AI Forward

🚀 We're thrilled to partner with Alibaba Cloud for "AI Forward - Alibaba Cloud Global Developer Summit 2025" in Jakarta! Join us and explore the future of AI. Register now: https://int.alibabacloud.com/m/1000400772/
#AlibabaCloud #DeveloperSummit #Jakarta #AIFORWARD

Random Topic

Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com