coba ini :

Private Sub Form_Unload(Cancel As Integer)
  fileNo = FreeFile
    Open App.Path & "\text.txt" For Output As #fileNo
       Print #fileNo, ""
  Close #fileNo
End Sub

--- In [email protected], "Indra Satriani" <[EMAIL PROTECTED]>
wrote:
>
> Program saya memakai 1 file txt yang diisi ketika program
dijalankan. Nah
> saya ingin isi dari file itu dihapus (bukan menghapus filenya) ketika
> program ditutup. Mohon pencerahannya.
> 
> -- 
> ---
> Is adult entertainment killing our children? Or is killing our children
> entertaining adults?
> http://bayuindra.wordpress.com
> http://deciana.wordpress.com
> 
> 
> [Non-text portions of this message have been removed]
>


Kirim email ke