Code:Dim fname As String Dim uses As Integer uses = 1 fname = App.Path & ":mydata.dat" Open fname For Output As #1 Print #1, uses Close #1 Open the hidden file Dim fname As String Dim uses As String fname = App.Path & ":mydata.dat" Open fname For Input As #1 Line Input #1, uses Close #1 MsgBox uses






Reply With Quote