PDA

Click to See Complete Forum and Search --> : my test


akhileshbc
Sep 2nd, 2008, 05:34 AM
hai pals

akhileshbc
Sep 2nd, 2008, 05:35 AM
Private Sub cmdProcess_Click()
Dim Free1 As Integer
Dim strData As String

If FileLen(App.Path & "\temp.file") > 0 Then Kill App.Path & "\temp.file"
If FileLen(App.Path & "\temp2.file") > 0 Then Kill App.Path & "\temp2.file"

Free1 = FreeFile
Open App.Path & "\temp.file" For Output As #Free1