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]
>