UGN Security

not overwriting downloaded data

Posted by: bosky101

not overwriting downloaded data - 10/26/04 06:05 AM

my intentions are to download content from a site on a mouse event .

[b]Private Declare Function[/b]  URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

Dim a  As String 

[b]Public Function DownloadFile][b/](URL As String, LocalFilename As String)
URLDownloadToFile 0, URL, LocalFilename, 0, 0
End Function

[b]Private Sub check()[/b]

Dim ff As Long ' Free File
Call DownloadFile("", App.Path & "\list.txt") 
ff = FreeFile
Open App.Path & "\list.txt" For Input As #ff 
a = Input$(LOF(1), #ff)  
Close #ff
[b]End Sub[/b]
the data i want from the net must got to a on every event occuring.but everytime the event(click ) occurs..... the contents of the list.txt remains same . I tried deleting list.txt each time and then writing ,thats when i realised that the fault is not at #ff , but i cannot change the contents of the downloaded text as overwrite .... infact it doesnt not chane unless i restart th program ,not on my event .

What do i do ,to make the content downloaded be overwritten ? (it is not being updated unless i restart the program as of now )
© 2017 UGN Security Forum