Penulis Topik: (ask) cara mengecek file size  (Dibaca 1930 kali)

Offline richardyusan

  • Pro3
  • **
  • Tulisan: 6
  • Reputation: 48
    • Lihat Profil
(ask) cara mengecek file size
« pada: Juli 15, 2010, 08:10:07 PM »
gan cara mengecek file size gimana yo ?

contoh : kita buat program sizenya 100 kb, trus keinfeksi virus otomatis size file berubah, cara menampilkan dialog notifikasi bahwa program dah berubah size gimana ya ? ;D

Offline nyiurmelambai

  • Pro100
  • ****
  • Tulisan: 119
  • Reputation: 738
  • Jenis kelamin: Pria
    • Lihat Profil
    • http://ewin74.blogspot.com
Re: (ask) cara mengecek file size
« Jawab #1 pada: Juli 16, 2010, 08:14:31 AM »
Kode: (Vb6) [Pilih]
Private Sub Form_Load()
On Error GoTo err
If FileLen(App.EXEName + ".exe") <> 20480 Then '20480 byte adalah ukuran exe setelah dikompile
    MsgBox "File Korup!!! Mungkin terinfeksi virus.", vbCritical, "Error"
End If
err:
End Sub


Flowchart (gw dpt waktu kul smstr 2, :P )
(START)
   |
/NAMA FILE=Project.exe/
   |
[CEK FILE SIZE=NAMA FILE]
   |
<Ukuran = 20480 byte ??> tidak ->  /Pesan: Error, file korup/
   | Ya                                               |
   | ----------<-------------------------|
(SELESAI)       
« Edit Terakhir: Juli 16, 2010, 08:27:28 AM oleh nyiurmelambai »
http://ewin74.blogspot.com
nyiur always melambai

Offline nova_edp

  • Pro500
  • ******
  • Tulisan: 817
  • Reputation: 26823
    • Lihat Profil
    • Toko Software dan Source Code Online
Re: (ask) cara mengecek file size
« Jawab #2 pada: Juli 16, 2010, 09:42:10 AM »
ni ada sedikit kode function bwt ngeliat ukuran file.
silahkan dikembangkan:

// returns file size in bytes or -1 if not found.

 function FileSize(fileName : wideString) : Int64;
 var
   sr : TSearchRec;
 begin
   if FindFirst(fileName, faAnyFile, sr ) = 0 then
      result := Int64(sr.FindData.nFileSizeHigh) shl Int64(32) + Int64(sr.FindData.nFileSizeLow)
   else
      result := -1;
 
   FindClose(sr) ;
 end;